Change Your Avatar -------------->
admin
Rank : Admin
My Pets : 
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 31
Lokasi : indonesia
 |  Subject: Membuat Icon Tray dengan visual basic 6 (Menyembunyikan aplikasi dengan vb6)  Sun 13 Feb 2011, 10:35 | |
| untuk membuat tray icon : 1. Buka aplikasi visual basic 6 2. Tambahkan sebuah module ->klik kanan di form1 ->pilih add ->pilih Module 3. masukan koding ini di dalam modul 1 - Code:
-
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
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_RBUTTONDBLCLK = &H206
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
3.Masuk ke form1 trus tambahkan button 4.double klik button1 terus hapus semua koding dengan ctrl + a trus tekan backspase/delete 5.kemudian masukan koding berikut : - Code:
-
Dim nid As NOTIFYICONDATA
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
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
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 = "Tray" & vbNullChar
Shell_NotifyIcon NIM_ADD, nid
End Sub
6. Jalankan Aplikasinya trus tekan button1 nyak lihat yang terjadi 7. salamat mencoba [You must be registered and logged in to see this link.] |
|
Change Your Avatar -------------->
poisedon21
Rank : Level two
Jumlah posting : 2
Point : 2
Reputasi : 0
Join date : 2011-08-28
| | Subject: Re: Membuat Icon Tray dengan visual basic 6 (Menyembunyikan aplikasi dengan vb6) Sun 28 Aug 2011, 12:40 | |
| oh iya gan kira2 itu bisa ga kalo kita tekan minimize terus lansung ke hide to tray otomatis??
terus satulagi, kalo bkin appnya launching bukan di double klik tapi ditehan shift+klik (kek deepfreeze) bisa ga gan?? |
|
