Meletakkan Aplikasi Pada System Tray di VB 6.0

Diposting oleh Slavara's Blog On Senin, 05 Juli 2010 0 komentar

Berikut adalah kode VB 6.0 untuk meletakkan aplikasi yang telah kita buat pada system tray windows:

Option Explicit 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 Declare Function Shell_NotifyIcon Lib "shell32" _ Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid _ As NOTIFYICONDATA) As Boolean Dim t As NOTIFYICONDATA Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Timer1.Enabled = False t.cbSize = Len(t) t.hWnd = Picture1.hWnd t.uId = 1& Shell_NotifyIcon NIM_DELETE, t End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Hex(X) = "1E3C" Then Me.PopupMenu menu1 End If End Sub Private Sub Timer1_Timer() Static i As Long, img As Long t.cbSize = Len(t) t.hWnd = Picture1.hWnd t.uId = 1& t.uFlags = NIF_ICON t.hIcon = Picture1.Picture Shell_NotifyIcon NIM_MODIFY, t Timer1.Enabled = True i = i + 1 If i = 2 Then i = 0 End Sub Private Sub Form_Load() t.cbSize = Len(t) t.hWnd = Picture1.hWnd t.uId = 1& t.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE t.ucallbackMessage = WM_MOUSEMOVE t.hIcon = Picture1.Picture t.szTip = "System Tray" & Chr$(0) Shell_NotifyIcon NIM_ADD, t Timer1.Enabled = True Me.Hide App.TaskVisible = False End Sub

Semoga membantu...