11/02/08 13:23
polpy87
ho risolto, grazie lo stesso.
aaa
11/02/08 14:04
Shutdown
Come hai risolto?
Qual era il problema?
Spiega, per piacere...
Potrebbe servire ad altri.
Ultima modifica effettuata da Shutdown 11/02/08 14:05
aaa
05/05/08 9:49
GrG
Scusate se riprendo questo vecchi post ma anche io vorrei sapere come mettere un prog in TrayIcon.
Diciamo che ci sono riuscito aggiustando il codice di gius, infatti ne lform ho messo:
Private Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uId As Long
uFlags As Long
ucallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Dim T As NOTIFYICONDATA
Private Sub Command1_Click()
T.cbSize = Len(T)
T.hWnd = Me.hWnd
T.uId = 1&
T.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
T.ucallbackMessage = WM_MOUSEMOVE
T.hIcon = Me.Icon
T.szTip = "Recent" & Chr$(0)
Shell_NotifyIcon NIM_ADD, T
Me.Hide
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
T.cbSize = Len(T)
T.hWnd = Me.hWnd
T.uId = 1&
Shell_NotifyIcon NIM_DELETE, T
Me.Show
End Sub
e tutto funziona alla grande, ma se per esempio voglio che il progr. ritorni normale quando gli viene fatto un doppio click come faccio?
p.s. Ho provato a mettere il codice per mostrare la form nel Form_DblClick() solo che nn funziona :S :S
-----------------------------------------------
Ho appena capito che devo usare la costante:
WM_LBUTTONDBLCLK
ma come?
Ultima modifica effettuata da GrG 05/05/08 10:00
aaa
01/09/08 0:12
Reinhard
Scusate potreste spiegare meglio come si fa?
Io a un form ho aggiunto un commandbutton e vorrei che come premessi il commandbutton , il form/programma vada in trayicon...
come si fa?
aaa
01/09/08 9:30
super rambo
salve, anche a me interessa ridure in trayicon un form, ho utilizzato il codice del link che ha postato GrG e funziona, però il form viene ridotto in trayicon alla pressione del pulsante che dovrebbe ridurre a icona. Si potrebbe fare in modo di creare un command vicino al tasto che riduce a icona che riduce in trayicon?? Spero di essermi spiegato.. Grazie!!
aaa
01/09/08 9:43
GrG
Ah ma tu intendi tipo in emule?
Se è così penso non si possa fare, ma lo puoi mettere in un command nel form
aaa
