Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports MySql.Data.MySqlClient
- Public Class LoginClass
- 'For the login form if the user is not logged in
- Public UNStatus As Label
- Public UNInput As TextBox
- Public PWStatus As Label
- Public PWInput As TextBox
- Public Submit As Button
- 'For the homepage, if they're not logged in already
- Public Header As Label
- Public TimeandDate As Label
- Public Sub Create()
- 'Login shit:
- UNStatus.Text = "Username:"
- UNStatus.Location = New Point(25, 25)
- PWStatus.Text = "Password:"
- PWStatus.Location = New Point(25, 30)
- 'Adds Controls to Tab
- MainForm.Tabs.SelectedTab.Controls.Add(UNStatus)
- MainForm.Tabs.SelectedTab.Controls.Add(PWStatus)
- End Sub
- Public Sub ClickedOn()
- If MainForm.LoggedIn Then
- ' Logged In
- Else
- ' Not Logged In
- UNStatus.Text = "Username:"
- End If
- End Sub
- End Class
Add Comment
Please, Sign In to add comment