Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 38 lines (32 sloc) 1.467 kb
159371f @issyl0 Add the VB COMP4 coursework code, for the fun of it.
authored
1 Public Class frmReportMenu
2
3 Private Sub btnQuit_Click(ByVal sender As System.Object, _
4 ByVal e As System.EventArgs) Handles btnQuit.Click
5 'On close, close this window and show the main menu.
6 Me.Close()
7 frmMainMenu.Show()
8 End Sub
9
10 Private Sub btnQuotes_Click(ByVal sender As System.Object, _
11 ByVal e As System.EventArgs) Handles btnQuotes.Click
12 'Show the quote form to the user, then hide this menu window.
13 frmReportQuote.Show()
14 Me.Hide()
15 End Sub
16
17 Private Sub btnLogs_Click(ByVal sender As System.Object, _
18 ByVal e As System.EventArgs) Handles btnLogs.Click
19 'Show the log form to the user, then hide this menu window.
20 frmReportLog.Show()
21 Me.Hide()
22 End Sub
23
24 Private Sub btnInvoices_Click(ByVal sender As System.Object, _
25 ByVal e As System.EventArgs) Handles btnInvoices.Click
26 'Show the invoice form to the user, then hide this menu window.
27 frmReportInvoice.Show()
28 Me.Hide()
29 End Sub
30
31 Private Sub btnSurvey_Click(ByVal sender As System.Object, _
32 ByVal e As System.EventArgs) Handles btnSurvey.Click
33 'Show the survey form to the user, then hide this menu window.
34 frmReportSurvey.Show()
35 Me.Hide()
36 End Sub
37
38 End Class
Something went wrong with that request. Please try again.