VB6: Textbox Control

Property Textbox yang Umum digunakan.

Property	Keterangan
Enabled	menentukan apakah user dapat berinteraksi dengan control atau tidak
Index	menentukan index saat tombol menjadi control array
Locked	Saat nilainya true, user tidak dapat mengubah teks dalam textbox
MaxLength	Jumlah maksimum karakter yang dapat diketikan ke textbox. Nilai default = 0, yang berarti dapat menginput sebanyak-banyaknya.
MousePointer	Bentuk mouse pointer saat berada di atas textbox
Multiline	Jika nilai = true maka user bisa menginput teks lebih dari 1 baris
PasswordChar	dengan menginput karakter pada property ini teks sebenarnya akan tersembunyi digantikan dengan karakter tersebut.
ScrollBars	Property ini digunakan bersama property Multiline. Untuk mengatur tampilan scroll baik vertikal maupun horizontal
Text	Text yang akan ditampilkan dalam textbox saat runtime.
ToolTipText	Text yang biasanya berisi keterangan singkat yang muncul saat mouse bergerak diatas textbox
Visible	Mengatur apakah textbox dapat dilihat oleh user atau tidak

Event Textbox yang Umum Digunakan

Event	Keterangan
Change	terjadi saat teks pada textbox berubah.
Click	terjadi saat textbox di click.
GotFocus	terjadi saat textbox menerima fokus aktif.
LostFocus	terjadi saat textbox kehilangan fokus aktif.
KeyDown	dipanggil saat sebuah key pada keyboard ditekan saat fokus aktif pada textbox.
KeyUp	dipanggil saat sebuah key pada keyboard dilepas saat fokus aktif pada textbox.
Keypress	sama seperti keydown tetapi hanya berlaku pada tombol-tombol yang memiliki kode ASCII. Jadi tombol seperti Shift, Panah, Fungsi (F1,F2, dst), kombinasi Ctrl dan ALT, dll.

Method yang Umum Digunakan

Method	Keterangan
SetFocus	Memindahkan fokus pada textbox yang bersangkutan

Berikut ini adalah beberapa contoh penggunaan textbox:
1. Disabled Text2 saat karakter Text1 lebih dari 5 karakter
UI:

Code:
Private Sub Text1_Change()
If Len(Text1.Text) > 5 Then
   Text2.Enabled = False
Else
    Text2.Enabled = True
End If
End Sub

Runtime:


2. TextBox Control Array: Perubahan Warna Background Merah saat Click
UI:

Code:
Private Sub Text1_Click(Index As Integer)
Text1(Index).BackColor = vbRed
End Sub

Runtime:

3. Karakter Password

4. Multiline & Scroll Bar

5. Tool Tips Index

6. Event Keypress ASCII untuk Input Teks Numerik Saja (angka saja)
UI:

Code:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
  Case Is < 32
  Case 46
    If InStr(Text1.Text, ".") <> 0 Then KeyAscii = 0
  Case 48 To 57
  Case Else
       KeyAscii = 0
End Select
End Sub

Runtime:

Click here if you like this article.