vb.net: menyembunyikan windows form ke dalam system tray

Selamat malam, sebelumnya saya sudah pernah posting mengenai cara menyembunyikan form delphi ke dalam system tray. Namun rasanya ngga adil kalau seandainya saya tidak posting juga mengenai hal yang sama, tapi kali ini yang akan saya gunakan adalah bahasa pemrograman visual basic .Net.

Untuk menyembunyikan windows form ke dalam system tray menggunakan vb.net caranya hampir sama dengan delphi XE.

Kalau di delphi XE menggunakan bantuan komponen TTrayIcon, di vb.net terdapat sebuah komponen yang bernama NotifyIcon.

 Gimana tertarik untuk mencobanya? Yuk kita buka dulu IDE Visual Studionya.

Buat project baru dengan cara membuka menu file > New Project...

Pilih Windows Forms Application, ganti nama project menjadi HideFormToSystemTray. Kemudian klik button OK.

Tambahkan komponen NotifyIcon dan ContextMenuStrip ke dalam form. Atur dan tambahkan menu ke dalam ContextMenuStrip. Sesuaikan menu dengan gambar berikut ini.

Kemudian sesuaikan nilai properties dari NotifyIcon menjadi seperti gambar berikut ini.

Kemudian atur setting properties dari form tersebut seperti gambar berikut ini.

Tambahkan sebuah form baru dan beri nama dengan about. Klik kanan pada nama project, kemudian pilih add > New Item..

Pilih Windows Form dan klik button Add.

Masukkan coding berikut ini ke dalam form main.

[code language="vb"]

Public Class MAIN
Public Shared MAIN As MAIN = Nothing
Public Shared About As ABOUT = Nothing

Private Sub MAIN_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
Me.NotifyIcon1.Visible = False
End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Me.NotifyIcon1.Visible = False
End
End Sub

Private Sub ShowFormAboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowFormAboutToolStripMenuItem.Click
LaunchForm("ABOUT")
End Sub
Public Sub LaunchForm(ByVal FormName As String)
Dim saveCur As Cursor = Me.Cursor
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
If CloseAllForms() = False Then Me.Cursor = saveCur : Exit Sub

Select Case UCase(FormName)
Case "ABOUT"
About = showabout()
About.Show()
End Select
Me.Cursor = saveCur
End Sub
Private Function CloseAllForms() As Boolean
If isAlertsOpen() = True Then MAIN.Close()
Return True
End Function
Private Function isAlertsOpen() As Boolean
If About Is Nothing OrElse About.IsDisposed Then Return False Else Return True
End Function
Public Shared Property showabout() As ABOUT
Get
If About Is Nothing OrElse About.IsDisposed Then About = New ABOUT
showabout = About
End Get
Set(ByVal value As ABOUT)
About = value
End Set
End Property
End Class

[/code]

Selesai. Silahkan dicoba dan dijalankan aplikasinya. Untuk lebih jelas terutama buat kamu yang masih pemula tentu akan sedikit kebingungan. Jadi silahkan tonton saja video-video saya yang ada dibawah ini.

vb.Net hide windows form to system tray - yadishare

https://www.youtube.com/watch?v=rmtTzwfvE2E

 

Untuk link download aplikasi bisa kalian temukan pada deskripsi yang ada di video saya. Semoga bermanfaat. Silahkan tinggalkan komentar dan apabila ada pertanyaan kamu bisa sampaikan ke saya. Siapa tahu saya bisa bantu. Sampai jumpa :)

Tonton video saya mengenai :

Panduan cara instal modul addon di odoo9 buat para pemula

cara menambahkan addon show sheets with full width

tutorial cara mengenal dan membuat form di aplikasi delphi-XE ala yadishare

delphi touchkeyboard component for touch screen computer – yadishare

how to make barcode label printing with delphiXE using fastreport – yadishare

How to hide delphi form to system tray – yadishare

tutorial membuat video dengan camstudio – yadishare