Riprendiamo il DIscorso sulla Tray Bar..
Peppe D.
Come promesso ai partecipanti del post "Problemi con la tray bar" rendo
disponibile il codice per una gestione particolare della tray bar..!
Lo potete trovare qui : http://www.visualwebstudio.it/systray.zip
Nonostante tutto perň mi mancano un paio di chicche per rendere questo
codice perfetto...:
Per il momento iniziamo a risolvere questo problema:
1) vorrei che nel POP-UP menů...(quello che si apre con il tasto dx quando
il form č ridotto alla tray bar)...mi si visualizzasse un comando
predefinito...tipo quello che compare quando premete con il tasto destro
sull'orologio in basso (vd MODIFICA DATA e ORA..!)
Il comando predefinito...č riconoscibile xchč marchiato in grassetto....!
Chi mi aiuta a finire questo gioiellino....?
hal1961
>1) vorrei che nel POP-UP menů...(quello che si apre con il tasto dx quando
>il form č ridotto alla tray bar)...mi si visualizzasse un comando
>predefinito...tipo quello che compare quando premete con il tasto destro
>sull'orologio in basso (vd MODIFICA DATA e ORA..!)
>Il comando predefinito...č riconoscibile xchč marchiato in grassetto....!
Ahi ahi, non abbiamo letto l' help di PopupMenu ;-)
--
ciao, hal
Peppe D.
Perň lo ammetto...non c'ho proprio pensato....!!
Come hai trovato il codice...funge bene..???
"hal1961" <aldoc...@inwind.it> ha scritto nel messaggio
news:9t4bsl$alir$1...@ID-56381.news.dfncis.de...
Zanna
news:R5pJ7.1266$A6.5...@news2.tin.it...
> E daiiii hal...!!! :-))))
>
> Però lo ammetto...non c'ho proprio pensato....!!
>
> Come hai trovato il codice...funge bene..???
Io usavo mi ero fatto questa funzione da usare nel mouseemove per sapere
cosa faceva il mouse.
Devo dire che funzionava bene.
Poi ho fatto una prova di corsa sotto Win2000 e ho avuto qualche problema
(forse però non avevo settato lo scalemode a vbPixels), poi ho subito
abbandonato le verifiche.
se qualcuno vuole provare:
Function TNAIconButton(X As Single, Y As Single) As Integer
'Ritorna lo stato dei pulsanti del mouse
'sull'icona della TNA
'Richiamarla in OggettoAssociato_MouseMove()
'ScaleMode di OggettoAssociato deve essere vbPixels
If (Y = 0) Then
Select Case X 'in pixel
Case WM_LBUTTONDOWN 'Premuto pulsante Sinistro
TNAIconButton = vbLeftButton
Case WM_LBUTTONUP 'Rilasciato pulsante Sinistro
TNAIconButton = -vbLeftButton
Case WM_RBUTTONDOWN 'Premuto pulsante Destro
TNAIconButton = vbRightButton
Case WM_RBUTTONUP 'Rilasciato pulsante Destro
TNAIconButton = -vbRightButton
Case WM_MOUSEMOVE 'Solo MouseMove
TNAIconButton = 0
End Select
End If
End Function
Peppe D.
comunque...gli do un occhiata e ti fo sapere...!!!
"Zanna" <zntf...@tin.it> ha scritto nel messaggio
news:WHsJ7.1654$A6.6...@news2.tin.it...
> "Peppe D." <dee...@ciaoweb.it> ha scritto nel messaggio
> news:R5pJ7.1266$A6.5...@news2.tin.it...
> > E daiiii hal...!!! :-))))
> >
> > Perň lo ammetto...non c'ho proprio pensato....!!
> >
> > Come hai trovato il codice...funge bene..???
>
> Io usavo mi ero fatto questa funzione da usare nel mouseemove per sapere
> cosa faceva il mouse.
> Devo dire che funzionava bene.
> Poi ho fatto una prova di corsa sotto Win2000 e ho avuto qualche problema
> (forse perň non avevo settato lo scalemode a vbPixels), poi ho subito
Samuele Battarra
> Io usavo mi ero fatto questa funzione da usare nel mouseemove per sapere
> cosa faceva il mouse.
> Devo dire che funzionava bene.
> Poi ho fatto una prova di corsa sotto Win2000 e ho avuto qualche problema
> (forse però non avevo settato lo scalemode a vbPixels), poi ho subito
> abbandonato le verifiche.
>
> se qualcuno vuole provare:
>
> Function TNAIconButton(X As Single, Y As Single) As Integer
> 'Ritorna lo stato dei pulsanti del mouse
> 'sull'icona della TNA
> 'Richiamarla in OggettoAssociato_MouseMove()
>
> 'ScaleMode di OggettoAssociato deve essere vbPixels
>
Puoi evitare questa necessità semplicemente facendo:
Dim Msg As Long
Msg = X / Screen.TwipsPerPixelX
Select Case Msg
--
Samuele Battarra
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/news/