FORM UNLoad contoh di FORM1
private sub form1_keypress(keyascii as integer) if keyascii = 27 then unload me end sub klo kita mo tau kunci kode keyascii nya brp ( contoh diatas 27 = tombol escape) kita coba coding ini private sub form1_keypress(keyascii as integer) msgbox str(keyascii) end sub supaya tanda minus gak diterima kita buat sub .... contoh : Public Sub keyvalid(key As Integer) Dim valid As String valid = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz0123456789" If InStr(valid, VBA.Chr(key)) = 0 And key <> vbKeyBack And key <> vbKeyDelete _ And key <> vbKeyReturn And key <> vbKeySpace And key <> 27 Then key = 0 End If End Sub cara menggunakan sub tersebut misalna di text1 private sub text1_keyPress(keyascii as integer) call keyValid(keyascii) end sub sub diatas hanya memproses karakter yg ada di variable valid , yaitu a-z,0-9 semoga membantu andi all coding are taking from www.planet-source-code.com visit my blog @ www.nofear71.blogspot.com also @ www.friendster.com/cintaabadi ----- Original Message ----- From: Andi To: yogyafree-perjuangan@yahoogroups.com Sent: Thursday, July 17, 2008 10:20 PM Subject: [YF] Tanya VB Dear All Saya mau tanya tentang code VB 6.0 Saya ada textbox dan saya ingin textbox ini tidak menerima tanda"-" (minus), Seperti saat kita memasukkan serial number pada suatu software tanda minus itu tidak di process alias ngak effect dan satu lagi saya mau tanya gimana kodingnya jika tombol escape di keyboard kita tekan form1 atau formX menjadi close atau unload. Please kepada yang mengerti Terimakasih Andi
