Perfect Text, ActiveX Penyempurnaan Dari Text Box

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