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 :)
Comments
Post a Comment