WindowsTradeApp/MainNav.vb at master · ddskier/WindowsTradeApp · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Public Class MainNav

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        GlobalSettings.LoggedIn = False


    End Sub
    Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
        Form1.Show()
    End Sub

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
        If GlobalSettings.LoggedIn Then
            MsgBox("You are now Logged Out!")
            GlobalSettings.LoggedIn = False
            Login.PasswordTextBox.Text = ""
            Login.UserIDTextBox.Text = ""
        Else
            Login.Show()

        End If

    End Sub

    Private Sub Label4_Click(sender As Object, e As EventArgs) Handles Label4.Click
        If GlobalSettings.LoggedIn Then
            Dim holdingsForm As New Holdings()
            holdingsForm.Show()
        Else
            MsgBox("You Must Login First!")
        End If


    End Sub

    Private Sub Label5_Click(sender As Object, e As EventArgs) Handles Label5.Click
        If GlobalSettings.LoggedIn Then
            Dim accountForm As New AccountForm()
            accountForm.Show()
        Else
            MsgBox("You Must Login First!")
        End If
    End Sub
End Class