Cara Pembuatan Minimize to Try Menggunakan Visual Basic 6.0 (VB6)

Kita sering menjumpai sebuah icon kecil yang terletak dikanan pojok bawah pada PC anda (Taskbar), bisa dikatakan aplikasi tersebut tetap running dengan ditandai icon aktif tetapi tidak tampil di layar PC (desktop) anda, source code kali ini tentang Cara Pembuatan Minimize to Try Menggunakan Visual Basic 6.0 (VB6). Buatlah project - Form pada Ms. Visual Basic 6.0 (VB6) tambahkan satu commandButton pada form tersebut dan tambahkan pula Module untuk mempublikasikan function dan variabel pada project.

Kurang lebihnya tampilan seperti diatas, kemudian buatlah Menu Editor, untuk langkah-langkahnya seperti urutan nomor pada gambar dibawah ini

 

Copas coding dibawah ini dan pastekan ke dalam Module yang sudah dibuat 

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

Copas juga coding dibawah ini pada form dengan catatan disesuaikan dengan letak dan prosedur pada form tersebut

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

Simpan dan Jalankan (Run)/F5, klik tombol akan secara otomatis form akan hilang dan coba dilihat dipojok kanan bawah *taskbar) akan muncul icon yang sama pada form. Untuk sourcodenya bisa didownload di LINK INI