Rabu, 27 November 2013

34. Microsoft Visual Basic Coding Masuk


IF Text1.Text = “ “ Then

Text1.Setfocus

Else IF NOT Text1.Text = “Nama Depan Anda” Then

MsgBox “UserName Salah! “, vbxclamation

Text1.Setfocus

Text1 = “ “

Else

Text2.Setfocus

IF Text2.Text = “ “ Then

Text2. Setfocus

Else IF NOT Text2.Text = “Nama Belakang Anda” Then

MsgBox “Password Salah! “, vbexclamation

Text2.Setfocus

Text2 = “ “

Else

Form2.show

Unload Me

End IF

End Sub

Tidak ada komentar:

Posting Komentar