Visual Basic.NET How to Program (PDF)

Chapter 13 Graphical User Interfaces Concepts: Part 2 529
12 ' main menu (contains file and format menus)
13 Friend WithEvents mnuMainMenu As MainMenu
14
15 ' file menu
16 Friend WithEvents mnuFile As MenuItem
17 Friend WithEvents mnuitmAbout As MenuItem
18 Friend WithEvents mnuitmExit As MenuItem
19
20 ' format menu (contains format and font submenus)
21 Friend WithEvents mnuFormat As MenuItem
22
23 ' color submenu
24 Friend WithEvents mnuitmColor As MenuItem
25 Friend WithEvents mnuitmBlack As MenuItem
26 Friend WithEvents mnuitmBlue As MenuItem
27 Friend WithEvents mnuitmRed As MenuItem
28 Friend WithEvents mnuitmGreen As MenuItem
29
30 ' font submenu
31 Friend WithEvents mnuitmFont As MenuItem
32 Friend WithEvents mnuitmTimes As MenuItem
33 Friend WithEvents mnuitmCourier As MenuItem
34 Friend WithEvents mnuitmComic As MenuItem
35 Friend WithEvents mnuitmDash As MenuItem
36 Friend WithEvents mnuitmBold As MenuItem
37 Friend WithEvents mnuitmItalic As MenuItem
38
39 ' Visual Studio .NET generated code
40
41 ' display MessageBox
42 Private Sub mnuitmAbout_Click( _
43 ByVal sender As System.Object, _
44 ByVal e As System.EventArgs) Handles mnuitmAbout.Click
45
46 MessageBox.Show("This is an example" & vbCrLf & _
47 "of using menus.", "About", MessageBoxButtons.OK, _
48 MessageBoxIcon.Information)
49 End Sub ' mnuitmAbout_Click
50
51 ' exit program
52 Private Sub mnuitmExit_Click( _
53 ByVal sender As System.Object, _
54 ByVal e As System.EventArgs) Handles mnuitmExit.Click
55
56 Application.Exit()
57 End Sub ' mnuitmExit_Click
58
59 ' reset font color
60 Private Sub ClearColor()
61
62 ' clear all checkmarks
63 mnuitmBlack.Checked = False
64 mnuitmBlue.Checked = False
Fig. 13.5 Menus for changing text font and color (part 2 of 5).