SHARE
TWEET

Untitled

a guest Aug 13th, 2017 48 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  'Form1 coding:
  2.  
  3. Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
  4.         MsgBox("Your Password Hint is: " + My.Settings.PasswordHint)
  5.         'displays a messagebox with your password hint
  6.     End Sub
  7.  
  8.  
  9. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  10.         If TextBox1.Text = My.Settings.Username And
  11.             TextBox2.Text = My.Settings.Password Then
  12.             MsgBox("Logged In") 'if the first textbox's text is the username and the second textbox's text is the password then display a messagebox that says you're logged in.
  13.         Else
  14.             MsgBox("Incorrect Username or Password") 'if the username and password are incorrect then show a messagebox that says your username or password is incorrect.
  15.         End If
  16.     End Sub
  17.  
  18.  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  19.         Form2.Show() 'shows the Create Account form so that the user can create an account.
  20.     End Sub
  21.  
  22.  
  23. 'Form 2 Coding:
  24.  
  25.  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  26.         TextBox1.Text = My.Settings.Username 'makes the first textbox's text the username
  27.         TextBox2.Text = My.Settings.Password 'makes the second textbox's text the password
  28.         TextBox3.Text = My.Settings.PasswordHint 'makes the third textbox's text the password hint
  29.         My.Settings.Save()
  30.     End Sub
RAW Paste Data
Pastebin PRO Summer Special!
Get 40% OFF on Pastebin PRO accounts!
Top