12-25-2013, 08:20 PM
biar sekalian aja setelah nulis nulis di delphi sekarang di Net.. langsung aja deh cara membuat Hide To Tray di vb 2010
![[Image: Untitled.png]](https://images.weserv.nl/?url=s20.postimg.cc%2Fc99zlt91p%2FUntitled.png)
yang dibutuhkan
-NotifyIcon
-1 button
- klik NotifyIcon dan isikan icon dan text pada properties
-klik button dan isikan code berikut
ganti name button dan NotifyIcon diatas sesuai dengan yang ada di project anda .
contoh source code download dibawah
![[Image: Untitled.png]](https://images.weserv.nl/?url=s20.postimg.cc%2Fc99zlt91p%2FUntitled.png)
yang dibutuhkan
-NotifyIcon
-1 button
- klik NotifyIcon dan isikan icon dan text pada properties
-klik button dan isikan code berikut
Code:
Private Sub Buttonhide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonhide.Click
Me.WindowState = FormWindowState.Minimized
Me.Visible = False
NotifyIcon1.Visible = True
End Sub
Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
Me.Visible = True
Me.WindowState = FormWindowState.Normal
NotifyIcon1.Visible = False
End Sub
Private Sub NotifyIcon1_MouseDoubleClick_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
End Sub
ganti name button dan NotifyIcon diatas sesuai dengan yang ada di project anda .
contoh source code download dibawah
Code:
http://www.tusfiles.net/ud1h5qq1cs3y
[Only registered and activated users can see links Click here to register]