02 April 2014

VB.NET: LinkLabel Control


Control LinkLabel adalah Label yang bisa menampilkan hyperlink. Karena merupakan control inherit dari Label maka semua fasilitas yang dimiliki Label terdapat pula pada LinkLabel.


Pada contoh berikut ini adalah penggunaan Linklabel bisa untuk membuka suatu drive/folder dengan window explorer, membuka link website, dan menjalankan aplikasi tertentu.
UI:

Code:
Public Class Form1

 Private Sub Form1_Load(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles MyBase.Load
     LinkLabel1.Text = "Open Drive C:\"
     LinkLabel2.Text = "Goto: http://cctvarea.com/"
     LinkLabel3.Text = "Use IE: http://cctvarea.com/"
     LinkLabel4.Text = "Run Notepad"
 End Sub

 Private Sub LinkLabel1_LinkClicked(ByVal sender As _
     System.Object, ByVal e As _
     System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
     Handles LinkLabel1.LinkClicked

     LinkLabel1.LinkVisited = True
     System.Diagnostics.Process.Start("C:\")
 End Sub

 Private Sub LinkLabel2_LinkClicked(ByVal sender As _
     System.Object, ByVal e As _
     System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
     Handles LinkLabel2.LinkClicked

     LinkLabel2.LinkVisited = True
     System.Diagnostics.Process.Start("http://cctvarea.com/")
 End Sub

 Private Sub LinkLabel3_LinkClicked(ByVal sender As _
    System.Object, ByVal e As _
    System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
    Handles LinkLabel3.LinkClicked

    LinkLabel3.LinkVisited =
True 
    System.Diagnostics.Process.Start("IExplore", _
                            "http://cctvarea.com/")
 End Sub

 Private Sub LinkLabel4_LinkClicked(ByVal sender As _
     System.Object, ByVal e As _
     System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
     Handles LinkLabel4.LinkClicked

     LinkLabel4.LinkVisited = True
     System.Diagnostics.Process.Start("notepad")
 End Sub
End Class


Runtime:

Membuka windows explorer untuk menampilkan drive/folder tertentu.

Membuka link menggunakan default browser.

Saat membuka link menggunakan Intenet Explorer.

Saat run notepad.


Click here if you like this article.


0 comments: