Scribd
Upload
67 views

Public Class FrmMenu

This document defines the code for a menu form that handles user interactions with menu options. It includes event handlers for addition, opening, printing, saving, exiting and setting font and color properties from the menu. Selecting items on the menu will trigger the associated event handler code.

Uploaded by

juliecristenaa
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
67 views

Public Class FrmMenu

This document defines the code for a menu form that handles user interactions with menu options. It includes event handlers for addition, opening, printing, saving, exiting and setting font and color properties from the menu. Selecting items on the menu will trigger the associated event handler code.

Uploaded by

juliecristenaa
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 1

Public Class frmMenu Private Sub AdditionToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AdditionToolStripMenuItem.Click lblDisplay.Text = Val(txtNo1.Text) + Val(txtNo2.

Text) End Sub Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click OpenDlg.ShowDialog() End Sub Private Sub PrintToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintToolStripMenuItem.Click PrintDlg.ShowDialog() End Sub Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click SaveDlg.ShowDialog() End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Me.Close() End Sub Private Sub FormToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormToolStripMenuItem1.Click FontDlg.ShowDialog() Me.Font = FontDlg.Font End Sub Private Sub LabelToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelToolStripMenuItem1.Click FontDlg.ShowDialog() lblDisplay.Font = FontDlg.Font End Sub Private Sub BackgroundToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackgroundToolStripMenuItem.Click ColorDlg.ShowDialog() lblDisplay.ForeColor = ColorDlg.Color End Sub End Class

You might also like