Guest User

Untitled

a guest
Sep 1st, 2018
116
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.96 KB | None | 0 0
  1. Imports MySql.Data.MySqlClient
  2.  
  3. Public Class LoginClass
  4.  
  5. 'For the login form if the user is not logged in
  6. Public UNStatus As Label
  7. Public UNInput As TextBox
  8. Public PWStatus As Label
  9. Public PWInput As TextBox
  10. Public Submit As Button
  11.  
  12. 'For the homepage, if they're not logged in already
  13. Public Header As Label
  14. Public TimeandDate As Label
  15.  
  16. Public Sub Create()
  17. 'Login shit:
  18. UNStatus.Text = "Username:"
  19. UNStatus.Location = New Point(25, 25)
  20. PWStatus.Text = "Password:"
  21. PWStatus.Location = New Point(25, 30)
  22.  
  23. 'Adds Controls to Tab
  24. MainForm.Tabs.SelectedTab.Controls.Add(UNStatus)
  25. MainForm.Tabs.SelectedTab.Controls.Add(PWStatus)
  26.  
  27. End Sub
  28.  
  29. Public Sub ClickedOn()
  30. If MainForm.LoggedIn Then
  31. ' Logged In
  32. Else
  33. ' Not Logged In
  34. UNStatus.Text = "Username:"
  35. End If
  36. End Sub
  37. End Class
Add Comment
Please, Sign In to add comment