Visual Basic.NET How to Program (PDF)

530 Graphical User Interfaces Concepts: Part 2 Chapter 13
65 mnuitmRed.Checked = False
66 mnuitmGreen.Checked = False
67 End Sub ' ClearColor
68
69 ' update menu state and color display black
70 Private Sub mnuitmBlack_Click(ByVal sender As System.Object, _
71 ByVal e As System.EventArgs) Handles mnuitmBlack.Click
72
73 ' reset checkmarks for color menu items
74 ClearColor()
75
76 ' set color to black
77 lblDisplay.ForeColor = Color.Black
78 mnuitmBlack.Checked = True
79 End Sub ' mnuitmBlack_Click
80
81 ' update menu state and color display blue
82 Private Sub mnuitmBlue_Click(ByVal sender As System.Object, _
83 ByVal e As System.EventArgs) Handles mnuitmBlue.Click
84
85 ' reset checkmarks for color menu items
86 ClearColor()
87
88 ' set color to blue
89 lblDisplay.ForeColor = Color.Blue
90 mnuitmBlue.Checked = True
91 End Sub ' mnuitmBlue_Click
92
93 ' update menu state and color display red
94 Private Sub mnuitmRed_Click(ByVal sender As System.Object, _
95 ByVal e As System.EventArgs) Handles mnuitmRed.Click
96
97 ' reset checkmarks for color menu items
98 ClearColor()
99
100 ' set color to red
101 lblDisplay.ForeColor = Color.Red
102 mnuitmRed.Checked = True
103 End Sub ' mnuitmRed_Click
104
105 ' update menu state and color display green
106 Private Sub mnuitmGreen_Click(ByVal sender As System.Object, _
107 ByVal e As System.EventArgs) Handles mnuitmGreen.Click
108
109 ' reset checkmarks for color menu items
110 ClearColor()
111
112 ' set color to green
113 lblDisplay.ForeColor = Color.Green
114 mnuitmGreen.Checked = True
115 End Sub ' mnuitmGreen_Click
116
Fig. 13.5 Menus for changing text font and color (part 3 of 5).