Sabtu, 24 April 2010

coding chek in pada VB

Chek In:
Private Sub Command1_Click()
intHasil = MsgBox("Anda Sudah menyimpan?", vbYesNo, "PERHATIAN!!")
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub from_Load()
List1.AddItem "Laki-laki"
List1.AddItem "Perempuan"
End Sub
Private Sub Text1_GotFocus()
Text1.Text = " "
End Sub
Private Sub Text2_GotFocus()
Text2.Text = " "
End Sub
Private Sub Text3_GotFocus()
Text3.Text = " "
End Sub
Private Sub Text4_GotFocus()
Text4.Text = " "
End Sub
Private Sub Text5_GotFocus()
Text5.Text = " "
End Sub
Private Sub Text6_GotFocus()
Text6.Text = " "
End Sub

Tidak ada komentar:

Posting Komentar