Forum Informatika
Silahkan Login

Kami sarankan anda register atau daftar terlebih dahulu agar anda dapat mendownload atau membuka category forum secara keseluruhan....
karena ada beberapa forum yang tertutup untuk tamu dan dengan Login Anda bisa menggunakan fasilitas Chatting yang kami miliki.

Selamat Bergabung

Forum Informatika

Created By Hanafi Sukawa Ginting
 
HomeFAQPasang Iklanfacebook InformatikaRegisterLog inNew Tab Newscomputer

Share | 
 

 Membuat Icon Tray dengan visual basic 6 (Menyembunyikan aplikasi dengan vb6)

View previous topic View next topic Go down 
AuthorMessage


Change Your Avatar -------------->


admin

Admin
Rank : Admin


My Pets :
Jumlah posting : 550
Point : 2147483647
Reputasi : 47
Join date : 2010-04-23
Age : 24
Lokasi : indonesia

PostSubject: 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


Download SourceCodenya disini
Back to top Go down
http://software-download1001.blogspot.com/


Change Your Avatar -------------->


poisedon21

Level two
Rank : Level two


Jumlah posting : 2
Point : 2
Reputasi : 0
Join date : 2011-08-28

PostSubject: 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??
Back to top Go down
 

Membuat Icon Tray dengan visual basic 6 (Menyembunyikan aplikasi dengan vb6)

View previous topic View next topic Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
Forum Informatika ::  :: VB6-
Jump to:  

Forumotion.com | © phpBB | Free forum support | Contact | Report an abuse | Free forum