Re: [YF][JAWAB] VB

[Andi]

Mas, 

Makasih codingnya, ini berhasil 100 persen

Trus kalo boleh mas saya mau tanya lagi

saya ada 2 textbox, saya mau jika saya melakukan koreksi di textbox2 dan 
setelah textbox2.text ="" dan backspace key tetap saya tekan otomatiss 
text1.text nya set focus

sama seperti di serial number
dari textbok yang terakhir jika kita backspace terus setfocusnya akan tetap 
mundur.

Please, terimakasih sebelumnya


best regarsd
Andi




  ----- Original Message ----- 
  From: SampOernaMild 
  To: [EMAIL PROTECTED] 
  Sent: Friday, July 18, 2008 11:16
  Subject: Re: [YF] Tanya VB


   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