Page 34 - Programming VB.NET

30 Chapter 2: Graphical User Interface

Private Sub mnuopen_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles mnuopen.Click

dlgopen.ShowDialog()
End Sub

Private Sub mnusave_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles mnusave.Click

dlgsave.ShowDialog()
End Sub

Private Sub mnuprint_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles mnuprint.Click

dlgprint.ShowDialog()

End Sub

Private Sub mnucolor_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)

dlgcolor.ShowDialog()

lbldisplay.ForeColor = dlgcolor.Color

Me.BackColor = dlgcolor.Color

End Sub