Menyembunyikan Project icon di Tray bar (Menampilkan icon di Tray)

Pernah lihat aplikasi yang berjalan tanpa muncul di taskbar dan hanya menampilkan icon di tray....itu lho icon yang tampil di samping kanan bawah dekat jam :)

Sekarang penulis akan mencoba membahas membuat project agar bisa berjalan di tray.

1. Silahkan buka Project baru di Microsoft Visual Basic 6.0 (VB6) Pembaca
2. Siapkan 1 commandbutton, Beri caption = Sembunyikan Di Tray
3. Tambahkan Module di project pembaca

•     Klik Project di toolbar
•     Pilih Add Module

4. Silahkan Ketik/copy paste code API dibawah ini kedalam module yanng telah ditambahkan

Public 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
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const WM_MOUSEMOVE = &H200
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_LBUTTONDBLCLK = &H203 'Double-click
Public Const WM_LBUTTONDOWN = &H201 'Button down
Public Const WM_LBUTTONUP = &H202 'Button up
Public Const WM_RBUTTONDBLCLK = &H206 'Double-click
Public Const WM_RBUTTONDOWN = &H204 'Button down
Public Const WM_RBUTTONUP = &H205 'Button up

Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

5 Silahkan ketik/Copy Paste code berikut di Form

Dim nid As NOTIFYICONDATA ' deklarasi variable

Private Sub Command1_Click()
minimize_to_tray
End Sub

Sub minimize_to_tray()
Me.Hide
nid.cbSize = Len(nid)
nid.hwnd = Me.hwnd
nid.uId = vbNull
nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
nid.uCallBackMessage = WM_MOUSEMOVE
nid.hIcon = Me.Icon 
nid.szTip = " pesan saat mouse di tray icon" & vbNullChar
Shell_NotifyIcon NIM_ADD, nid
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim msg As Long
Dim sFilter As String
msg = x / Screen.TwipsPerPixelX
Select Case msg
Case WM_LBUTTONDOWN
Me.Show ' tampilkan form
Shell_NotifyIcon NIM_DELETE, nid
Case WM_LBUTTONUP
Case WM_LBUTTONDBLCLK
Case WM_RBUTTONDOWN
Case WM_RBUTTONUP
Me.Show
Shell_NotifyIcon NIM_DELETE, nid
Case WM_RBUTTONDBLCLK
End Select
End Sub

Private Sub Form_Unload(Cancel As Integer)
Shell_NotifyIcon NIM_DELETE, nid
End Sub

6. Selesai....coba jalankan project anda, lalu tekan tombol command nya dan lihat di tray ;) Jika muncul berarti sukses

Silahkan pembaca eksplorasi lebih jauh

Sample project bisa didownload disini
Password : dewakhaest