VB6: Textbox Control


Property Textbox yang Umum digunakan.
Property Keterangan
Enabledmenentukan apakah user dapat berinteraksi dengan control atau tidak
Indexmenentukan index saat tombol menjadi control array
LockedSaat nilainya true, user tidak dapat mengubah teks dalam textbox
MaxLengthJumlah maksimum karakter yang dapat diketikan ke textbox. Nilai default = 0, yang berarti dapat menginput sebanyak-banyaknya.
MousePointerBentuk mouse pointer saat berada di atas textbox
MultilineJika nilai = true maka user bisa menginput teks lebih dari 1 baris
PasswordChardengan menginput karakter pada property ini teks sebenarnya akan tersembunyi digantikan dengan karakter tersebut.
ScrollBarsProperty ini digunakan bersama property Multiline. Untuk mengatur tampilan scroll baik vertikal maupun horizontal
TextText yang akan ditampilkan dalam textbox saat runtime.
ToolTipTextText yang biasanya berisi keterangan singkat yang muncul saat mouse bergerak diatas textbox
VisibleMengatur apakah textbox dapat dilihat oleh user atau tidak

Event Textbox yang Umum Digunakan
EventKeterangan
Changeterjadi saat teks pada textbox berubah.
Clickterjadi saat textbox di click.
GotFocusterjadi saat textbox menerima fokus aktif.
LostFocusterjadi saat textbox kehilangan fokus aktif.
KeyDowndipanggil saat sebuah key pada keyboard ditekan saat fokus aktif pada textbox.
KeyUpdipanggil saat sebuah key pada keyboard dilepas saat fokus aktif pada textbox.
Keypresssama 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
MethodKeterangan
SetFocusMemindahkan 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.


Post a Comment

0 Comments