Membuat User Control pada Sebuah Aplikasi Form

Sebelum qt-qt orang baca-pelajari tutorial kali niy yah…minimal qt khan harus tau dulu pa

Definisi UserControl..

UserControl is:

(cari deh di mbah google)

Buka new Project exe qm divb,

Klik kanan di form pada jendela project sebelah kanan pilih add dan klik user control..

Maka muncul dialog add user control, pilih user control pada tab new kemudian klik open.

Klik TextBox pada toolbox, n Buat layout seperti ini… okay bro!

Di property TextBox dihilangkan nama text1 pada text,

Sedangkan pada property UserControl ganti textku pada name di tab alphabetic.

Ketik coding ini pada UserControl;

Dim keterangan As kode

Public Enum kode

angkasaja = 1

HurufBesar = 2

HurufKecil = 3

End Enum

Public Property Get status() As kode

status = keterangan

End Property

Public Property Let status(edata As kode)

keterangan = edata

End Property

Private Sub Text1_KeyPress(KeyAscii As Integer)

If keterangan = 1 Then

If KeyAscii = 8 Then Exit Sub '8 -> backspace

If KeyAscii <> 57 Then

KeyAscii = 0

End If

ElseIf keterangan = 2 Then

KeyAscii = Asc(UCase(Chr(KeyAscii)))

Else

KeyAscii = Asc(LCase(Chr(KeyAscii)))

End If

End Sub

Public Property Let tulisan(edata As Variant)

Text1 = edata

End Property

Lalu tutup jendela UserControl. Maka akan muncul UserControl yang tadi kita buat diarea toolbox. Biasanya ia ada dipaling bawah area toolbox.

Kembali ke Form1 n qm..

Buat layout seperti dibawah ini:

Eit!! Inga-inga’ utk pembuatan TextBox gunakan UserControl yang telah kita buat tadi. Tinggal lo klik, drag n drop

Tulis coding ini..

Private Sub Bersih_Click()

Textku1.tulisan = ""

Textku2.tulisan = ""

Textku3.tulisan = ""

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

Textku1.status = angkasaja

Textku2.status = HurufBesar

Textku3.status = HurufKecil

End Sub

**selamat mencoba**
gud luaack! :)

• 
• 
• 
• 
•