Cara Minimize Form ke Sistem Tray (VB6)

Selamat Datang di Blog Muslih System, pada postingan kali ini saya akan membahas bagaimana cara meminimize sebuah form ke system tray, sebelumnya sistem tray adalah menu yang terdapat pada pojok kanan bawah taskbar.

Oke untuk langkah-langkah sebagai berikut:

- Buka Microsoft Visual Basic 6.0 nya, pilih standard exe.

- Masukan Sebuah Button seperti pada gambar di bawah ini:

- Kemudian Buka menu editor dengan cara pilih Tools >> Menu Eitor.

- Rancang Menunya sesuai dengan gambar dibawah ini

- Centang Visible untuk semua menu kecuali menu pertama “Systray”.

- Lalu buat sebuah module & masukan sintak berikut ini:

Option Explicit

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

Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Public Const HWND_TOPMOST = -1

Public nid As NOTIFYICONDATA

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

- Setelah itu masukn pula di Form sintak berikut:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim Sys As Long
Sys = x / Screen.TwipsPerPixelX
Select Case Sys
Case WM_LBUTTONDOWN:
Me.PopupMenu mnuSystray
End Select
End Sub
Private Sub Form_Resize()
If WindowState = vbMinimized Then
Me.Hide
Me.Refresh
With nid
.cbSize = Len(nid)
.hwnd = Me.hwnd
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallBackMessage = WM_MOUSEMOVE
.hIcon = Me.Icon
.szTip = Me.Caption & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, nid
Else
Shell_NotifyIcon NIM_DELETE, nid
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Shell_NotifyIcon NIM_DELETE, nid
End
End Sub
Private Sub mnuexit_Click()
Unload Me
End Sub
Private Sub mnuRestore_Click()
WindowState = vbNormal
Me.Show
End Sub
Private Sub Command1_Click()
WindowState = vbMinimized
End Sub

- Setelah selesai Kita jalankan programnya.

- Ketika kita klik button minimize maka aplikasi akan sembunyi di sistem tray.

- Untuk Mengembalikan kembali tinggal klik Buka dan Exit untuk Keluar.

Bagi yang mau mendownload Source Kodenya bisa di download melalui Link di bawah ini:

Sekian tutorialnya & Selamat mencoba.