Visual Basic.NET How to Program (PDF)

536 Graphical User Interfaces Concepts: Part 2 Chapter 13
1 ' Fig. 13.8: LinkLabelTest.vb
2 ' Using LinkLabels to create hyperlinks.
3
4 Imports System.Windows.Forms
5
6 Public Class FrmLinkLabel
7 Inherits Form
8
9 ' linklabels to C:\ drive, www.deitel.com and Notepad
10 Friend WithEvents lnklblCDrive As LinkLabel
11 Friend WithEvents lnklblDeitel As LinkLabel
12 Friend WithEvents lnklblNotepad As LinkLabel
13
14 ' Visual Studio .NET generated code
15
16 ' browse C:\ drive
17 Private Sub lnklblCDrive_LinkClicked( _
18 ByVal sender As System.Object, ByVal e As _
19 System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
20 Handles lnklblCDrive.LinkClicked
21
22 lnklblCDrive.LinkVisited = True
23 System.Diagnostics.Process.Start("C:\")
24 End Sub ' lnklblCDrive
25
26 ' load www.deitel.com in Web browser
27 Private Sub lnklblDeitel_LinkClicked( _
28 ByVal sender As System.Object, ByVal e As _
29 System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
30 Handles lnklblDeitel.LinkClicked
31
32 lnklblDeitel.LinkVisited = True
33 System.Diagnostics.Process.Start( _
34 "IExplore", "http://www.deitel.com")
35 End Sub ' lnklblDeitel
36
37 ' run application Notepad
38 Private Sub lnklblNotepad_LinkClicked( _
39 ByVal sender As System.Object, ByVal e As _
40 System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
41 Handles lnklblNotepad.LinkClicked
42
43 lnklblNotepad.LinkVisited = True
44
45 ' run notepad application
46 ' full path not needed
47 System.Diagnostics.Process.Start("notepad")
48 End Sub ' lnklblNotepad_LinkClicked
49
50 End Class ' LinkLabelList
Fig. 13.8 LinkLabels used to link to a drive, a Web page and an application
(part 1 of 2).