Sistem Tray VB.Net

Sebelumnya saya telah menulis artikel tentang sistem tray dengan menggunkan vb 6 sekarang saya akan mencoba membahasnya di VB.Net.
Bila d bandingkan antara vb.net dan vb 6 , vb.net lebihmudah dalam hal penulisan kodenya . ga percaya ?? coba bandingkanantara kode vb 6 dan vb.net , anda bisa lihat disini .
Gimana ?? perbedaannya jelas sekali kan ??


Dalam pembuatan program ini kita memerlukan sebuah tool yaitu notify icon , notify icon ini sudah disediakan di VB.Net , berbeda dengan VB6 yang tidak memiliki tool ini.

Di bawah ini adalah kode yang di tulis di notify icon.

Private Sub NotifyIcon1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.Click

        Me.WindowState = FormWindowState.Normal
        Me.ShowInTaskbar = True
        Me.NotifyIcon1.Visible = False

End Sub

Dan kode ini di tulis di button yang di gunakan untuk proses tray programnya .

Private Sub BtnMin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMin.Click

        Dim ico As Icon
        Me.WindowState = FormWindowState.Minimized
  
        Dim file_path As String = Application.StartupPath
        file_path = file_path.Substring(0, file_path.LastIndexOf("\") + 1)
        ico = New Icon(file_path & "AA.ico")
        Me.NotifyIcon1.Icon = ico
        Me.NotifyIcon1.Visible = True
        Me.ShowInTaskbar = False

End Sub

Selamat mencoba .