Simple Login GUI & Register

Question

Help Please.

 Modify the Login GUI given . Add a Register button near the login button. Once the user clicked on the Register button, it should show a new form that will ask for the following:

1. a) Username (Textfield and Label)
2. b) Fullname (Textfield and Label)
3. c) Password (Password and Label)
4. d) Confirm Password (Password and Label)

 

2) Add 3 buttons in the form:

1. a) Back
2. b) Clear
3. c) Submit

 

3) The buttons should do the following actions:

1. a) The Back button will re-open the Login GUI.
2. b) The Clear button will clear all the values written in the textboxes.
3. c) The Submit button

Answer 1

FormLogin

-------------

'LabelUsername

'

Me.LabelUsername.AutoSize = True

Me.LabelUsername.Location = New System.Drawing.Point(32, 32)

Me.LabelUsername.Name = "LabelUsername"

Me.LabelUsername.Size = New System.Drawing.Size(55, 13)

Me.LabelUsername.TabIndex = 0

Me.LabelUsername.Text = "Username"

'

'TextBoxUsername

'

Me.TextBoxUsername.Location = New System.Drawing.Point(102, 29)

Me.TextBoxUsername.Name = "TextBoxUsername"

Me.TextBoxUsername.Size = New System.Drawing.Size(269, 20)

Me.TextBoxUsername.TabIndex = 1

'

'LabelPassword

'

Me.LabelPassword.AutoSize = True

Me.LabelPassword.Location = New System.Drawing.Point(34, 74)

Me.LabelPassword.Name = "LabelPassword"

Me.LabelPassword.Size = New System.Drawing.Size(53, 13)

Me.LabelPassword.TabIndex = 2

Me.LabelPassword.Text = "Password"

'

'TextBoxPassword

'

Me.TextBoxPassword.Location = New System.Drawing.Point(104, 71)

Me.TextBoxPassword.Name = "TextBoxPassword"

Me.TextBoxPassword.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)

Me.TextBoxPassword.Size = New System.Drawing.Size(266, 20)

Me.TextBoxPassword.TabIndex = 3

'

'cmdButLOGIN

'

Me.cmdButLOGIN.Location = New System.Drawing.Point(258, 112)

Me.cmdButLOGIN.Name = "cmdButLOGIN"

Me.cmdButLOGIN.Size = New System.Drawing.Size(112, 32)

Me.cmdButLOGIN.TabIndex = 4

Me.cmdButLOGIN.Text = "LOGIN"

Me.cmdButLOGIN.UseVisualStyleBackColor = True

'

'cmdButREGISTER

'

Me.cmdButREGISTER.Location = New System.Drawing.Point(124, 110)

Me.cmdButREGISTER.Name = "cmdButREGISTER"

Me.cmdButREGISTER.Size = New System.Drawing.Size(106, 36)

Me.cmdButREGISTER.TabIndex = 5

Me.cmdButREGISTER.Text = "Register"

Me.cmdButREGISTER.UseVisualStyleBackColor = True

Form Register

-----------------

'LabelUsername

'

Me.LabelUsername.AutoSize = True

Me.LabelUsername.Location = New System.Drawing.Point(55, 29)

Me.LabelUsername.Name = "LabelUsername"

Me.LabelUsername.Size = New System.Drawing.Size(68, 13)

Me.LabelUsername.TabIndex = 0

Me.LabelUsername.Text = "USERNAME"

'

'TextBoxUserName

'

Me.TextBoxUserName.Location = New System.Drawing.Point(155, 29)

Me.TextBoxUserName.Name = "TextBoxUserName"

Me.TextBoxUserName.Size = New System.Drawing.Size(233, 20)

Me.TextBoxUserName.TabIndex = 1

'

'LabelFullname

'

Me.LabelFullname.AutoSize = True

Me.LabelFullname.Location = New System.Drawing.Point(22, 86)

Me.LabelFullname.Name = "LabelFullname"

Me.LabelFullname.Size = New System.Drawing.Size(118, 13)

Me.LabelFullname.TabIndex = 2

Me.LabelFullname.Text = "FULL NAME (Last,First)"

'

'TextBoxFullName

'

Me.TextBoxFullName.Location = New System.Drawing.Point(155, 79)

Me.TextBoxFullName.Name = "TextBoxFullName"

Me.TextBoxFullName.Size = New System.Drawing.Size(233, 20)

Me.TextBoxFullName.TabIndex = 3

'

'LabelPassword

'

Me.LabelPassword.AutoSize = True

Me.LabelPassword.Location = New System.Drawing.Point(55, 132)

Me.LabelPassword.Name = "LabelPassword"

Me.LabelPassword.Size = New System.Drawing.Size(70, 13)

Me.LabelPassword.TabIndex = 4

Me.LabelPassword.Text = "PASSWORD"

'

'TextBoxPassword

'

Me.TextBoxPassword.Location = New System.Drawing.Point(155, 132)

Me.TextBoxPassword.Name = "TextBoxPassword"

Me.TextBoxPassword.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)

Me.TextBoxPassword.Size = New System.Drawing.Size(233, 20)

Me.TextBoxPassword.TabIndex = 5

'

'LabelConfirmPassword

'

Me.LabelConfirmPassword.AutoSize = True

Me.LabelConfirmPassword.Location = New System.Drawing.Point(12, 178)

Me.LabelConfirmPassword.Name = "LabelConfirmPassword"

Me.LabelConfirmPassword.Size = New System.Drawing.Size(128, 13)

Me.LabelConfirmPassword.TabIndex = 6

Me.LabelConfirmPassword.Text = "RE-ENTER PASSWORD"

'

'TextBoxConfirmPassword

'

Me.TextBoxConfirmPassword.Location = New System.Drawing.Point(155, 178)

Me.TextBoxConfirmPassword.Name = "TextBoxConfirmPassword"

Me.TextBoxConfirmPassword.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)

Me.TextBoxConfirmPassword.Size = New System.Drawing.Size(233, 20)

Me.TextBoxConfirmPassword.TabIndex = 7

'

'cmdButBACK

'

Me.cmdButBACK.Location = New System.Drawing.Point(25, 230)

Me.cmdButBACK.Name = "cmdButBACK"

Me.cmdButBACK.Size = New System.Drawing.Size(75, 23)

Me.cmdButBACK.TabIndex = 8

Me.cmdButBACK.Text = "<< BACK"

Me.cmdButBACK.UseVisualStyleBackColor = True

'

'cmdButCLEAR

'

Me.cmdButCLEAR.Location = New System.Drawing.Point(167, 230)

Me.cmdButCLEAR.Name = "cmdButCLEAR"

Me.cmdButCLEAR.Size = New System.Drawing.Size(75, 23)

Me.cmdButCLEAR.TabIndex = 9

Me.cmdButCLEAR.Text = "CLEAR"

Me.cmdButCLEAR.UseVisualStyleBackColor = True

'

'cmdButSUBMIT

'

Me.cmdButSUBMIT.Location = New System.Drawing.Point(313, 230)

Me.cmdButSUBMIT.Name = "cmdButSUBMIT"

Me.cmdButSUBMIT.Size = New System.Drawing.Size(75, 23)

Me.cmdButSUBMIT.TabIndex = 10

Me.cmdButSUBMIT.Text = "SUBMIT >>"

Me.cmdButSUBMIT.UseVisualStyleBackColor = True

'

Public Class FormLogin

Private Sub cmdButLOGIN_Click(sender As System.Object, e As System.EventArgs) Handles cmdButLOGIN.Click

If TextBoxUsername.Text <> "" And TextBoxPassword.Text <> "" Then

MsgBox(" Thank you for logging in")

End If

End Sub

Private Sub cmdButREGISTER_Click(sender As System.Object, e As System.EventArgs) Handles cmdButREGISTER.Click

FormRegister.Show()

Me.Hide()

End Sub

End Class

Public Class FormRegister

Private Sub cmdButBACK_Click(sender As System.Object, e As System.EventArgs) Handles cmdButBACK.Click

FormLogin.Show()

Me.Hide()

End Sub

Private Sub cmdButSUBMIT_Click(sender As System.Object, e As System.EventArgs) Handles cmdButSUBMIT.Click

If TextBoxUserName.Text <> "" And TextBoxFullName.Text <> "" And TextBoxPassword.Text <> "" _

And TextBoxPassword.Text = TextBoxConfirmPassword.Text Then

MsgBox("Thank you for registering")

FormLogin.Show()

Me.Hide()

End If

End Sub

Private Sub cmdButCLEAR_Click(sender As System.Object, e As System.EventArgs) Handles cmdButCLEAR.Click

TextBoxUserName.Text = ""

TextBoxFullName.Text = ""

TextBoxPassword.Text = ""

TextBoxConfirmPassword.Text = ""

TextBoxUserName.Focus()

End Sub

End Class