Pada Visual Basic 6 ada sebuah komponen yang sering dipakai, yaitu Text Box, tapi ActiveX ini punya sedikit kelemahan yaitu misalnya untuk berpindah dari Text1 ke Text2 harus menggunakan Tab, kalaupun pakai enter harus memasukan code
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text2.SetFocus
End Sub
Memang code tersebut hanya satu baris, tapi kalau text box nya banyak ?Hehehe tentunya cukup merepotkan juga. Oleh karena itu saya mencoba membuat ActiveX yang saya beri nama Perfect Text, yaitu penyempurnaan dari Text Box.
Penyempurnaannya terletak dalam PropertiesYaitu
- Enkripsi
- SetAngka
- SetAwalKapital
- SetEnkripsi
- SetLangsung
- SetTerbilang
Enkripsi terdiri dari 10 buah hurup yang unik, artinya tidak ada yang sama, misalnya
BUDAKIRENG, MANUKHIBER, atau SAYURLODEHini dimaksudkan untuk menyembunyikan harga yang sebenarnya. Enkripsi ini akan bekerja bila nilai SetEnkripsi bernilai True
Contoh pemakaian
Penulisan Syntaks nya
Private Sub Command1_Click()
PT2.Text = PT1.Hasil
End Sub
SetAngka bila diberi nilai True, maka yang bisa dimasukan hanya angka dari 0-9 koma dan titik, huruf tidak bisa masuk, ini sangat berguna pada pemorgraman data base bila type datanya number.
SetAwalKapital bila bernilau True akan menyebabkan apa yang kita ketik awal katanya berupa huruf capital, ini sangat bermanfaat untuk memasukan data berupa nama orang sehingga kita tidak usah repot-repot menekan tombol Shift, dan untuk fasilitas ini sama sekali tidak memerlukan code
SetLangsung, bila diberi nilai True, maka kursor akan berpindah ke Perfect Text yang lainnya. Disini tidak memerlukan bahasa program, hanya diperlukan pengaturan nilai Tab Index masing-masing object
SetTerbilang, bila diberi nilai True, bisa menubah angka menjadi terbilang, contoh
Penulisan syntaks nya
Private Sub Command1_Click()
Label1.Caption = PT1.Hasil
End Sub
Bila Saudara memerlukan PT.OCX bisa di download DISINI yang berukuran hanya sekitar 61 KB, copykan file PT.ocx ini ke
Kemudian register dengan perintah
Bila berhasil, pada VB6 ActiveX tersebut sudah terdaftar sebagai Object
SEMOGA BERMANFAAT