Contoh Membuat Keypress di VB 6.0

Ini merupakan sedikit contoh pembuatan aplikasi dengan event keypress di VB 6.0....

1. Pertama-tama kita buat formnya dulu :

 kira - kira seperti gambar ini.. ^_^

2. Setalah itu isi Codingnya :

Private Sub Combo1_keypress(keyascii As Integer) If keyascii < 48 Or keyascii > 57 Then Combo1.Locked = False Else Combo1.Locked = True End If If keyascii = 13 Then With Combo1 .Enabled = True .SelStart = 0 .SelLength = Len(Combo1) .SetFocus Form1.SetFocus End With If Combo1.Text = "" Then MsgBox ("Gender Kosong") Command1.Enabled = False Else End If Combo1.Enabled = False End If End Sub Private Sub Command1_keypress(keyascii As Integer) If keyascii = 32 Then Dim i End If i = MsgBox("LogIn Anda Sukses.!! (Apakah ingin keluar ? tekan Yes bila iya, tekan No bila mengulang dari awal", vbYesNo, "Welcome") If i = vbYes Then End Else Text1.Enabled = True Text1 = "" Text2.Enabled = True Text2 = "" Text3.Enabled = True Text3 = "" Combo1.Enabled = True Combo1 = "" Text1.SetFocus End If End Sub Private Sub Command2_keypress(keyascii As Integer) If keyascii = 32 Then Dim i End If i = MsgBox("Anda yakin ingin keluar ?? ", vbYesNo, "Pertanyaan") If i = vbYes Then End Else End If End Sub Private Sub Command3_keypress(keyascii As Integer) If keyascii = 32 Then Text1.Enabled = True Text1 = "" Text2.Enabled = True Text2 = "" Text3.Enabled = True Text3 = "" Combo1.Enabled = True Combo1 = "" Text1.SetFocus Command1.Enabled = True Else End If End Sub Private Sub Form_Load() Form1.Caption = "ENTRY DATA" With Combo1 .AddItem ("Laki-laki") .AddItem ("Perempuan") End With End Sub Private Sub Text1_KeyPress(keyascii As Integer) If keyascii < 48 Or keyascii > 57 Then Text1.Locked = False Else Text1.Locked = True End If If keyascii = 13 Then With Text1 .Enabled = True .SelStart = 0 .SelLength = Len(Text1) .SetFocus End With If Text1.Text = "" Then MsgBox ("Nama Kosong") Command1.Enabled = False Else End If Text1.Enabled = False End If End Sub Private Sub Text2_KeyPress(keyascii As Integer) If keyascii < 48 Or keyascii > 57 Then Text2.Locked = True Else: Text2.Locked = False End If If keyascii = 13 Then With Text2 .Enabled = True .SelStart = 0 .SelLength = Len(Text2) .SetFocus End With If Text2.Text = "" Then MsgBox ("NIM kosong") Command1.Enabled = False Else End If Text2.Enabled = False End If End Sub Private Sub Text3_KeyPress(keyascii As Integer) If keyascii > 65 Or keyascii > 97 Then Text1.Locked = False Else Text1.Locked = True End If If keyascii = 13 Then With Text3 .Enabled = True .SelStart = 0 .SelLength = Len(Text3) .SetFocus End With If Text3.Text = "" Then MsgBox ("Password Kosong") Command1.Enabled = False Else End If Text3.Enabled = False End If End Sub

Demikian program VB yang dapat ane share...

ini semua masih jauh nilai GOOD, oleh karena itu kritik dan saran yang membangun sangat ane perlukan...

Matur Teng Kyu telah mengunjungi blok ane... ^_^