Complete Nubie to VB and first experience with Posting need some Help with VB
Note: Program to be used with Touch Screen. (No keyboard or mouse)
TODO: Get Login form to allow the input of values from clicking on Buttons 1 thru 0.*,#
NOTE: Not using a user Name Just a Password
public Class LoginForm1
'NOTE: Not using a user Name Just a Password'
'Enter Button'
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Me.Close()
End Sub
Private Sub PasswordLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasswordLabel.Click
End Sub
Private Sub PasswordTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasswordTextBox.TextChanged, Button2.Enter, Button1.Enter
Me.PasswordTextBox.MaxLength = (9)
End Sub
'Button 1'
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.PasswordTextBox.Text = +"1"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.PasswordTextBox.Text = +"2"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.PasswordTextBox.Text = +"3"
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.PasswordTextBox.Text = +"4"
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.PasswordTextBox.Text = +"5"
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Me.PasswordTextBox.Text = +"6"
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Me.PasswordTextBox.Text = +"7"
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
End Sub
'Button 0'
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
End Sub
'Button *'
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
End Sub
'Button #'
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
End Sub
'Clear Button'
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
Me.PasswordTextBox.ResetText() REM Cursor dissappering on clear from text box Rem
'Me.PasswordTextBox.Cursor()' Rem This does not work to put Cursor back in Text Box rem
End Sub
End Class