PEMROGRAMAN I (VB) Pertemuan 5
By: Augury
[email protected] [email protected]
Unit Kontrol Dasar Keterangan
Untuk tiap object hanya ditampilkan beberapa properties umum, yang dijelaskan hanya yang dipakai saja. Properties yang dicetak dengan huruf Tebal miring merupakan property yang sering diolah, diubah atau dipanggil dalam pemrograman. Untuk tiap object hanya ditampilkan beberapa events yang umum dipakai saja yang dijelaskan.
Unit Kontrol Dasar TextBox
Unit kontrol ini menampilkan Text, pemakai dapat mengisikan nilai text sebagai isi dari text box.
Properties yang sering dipakai: Properties Name
Keterangan Isi
Name
TxtNamaobject
Text
Isi/nilai text (string atau numerik)
Enabled
True Æ TextBox dapat diisi False Æ tidak dapat diisi
Visible
True Æ dapat dilihat False Æ Tidak dapat dilihat
Unit Kontrol Dasar TextBox
Event Umum :
Change() Æ
event ini terjadi apabila nilai pada object tersebut mengalami perubahan, untuk object ini yaitu nilai property text
Click() Æ
event ini terjadi apabila pemakai melakukan click terhadapnya
GotFocus() Æ
event ini terjadi pada saat object mendapat focus (cursor sedang berada pada object tersebut)
LostFocus() Æ
event ini terjadi pada saat object kehilangan Focus (cursor berpindah dari object tersebut ke object lain)
Unit Kontrol Dasar TextBox - Contoh Name : FrmTextBox Caption : Latihan Text Box
Name : cmdEnable Caption : True Name : cmdEnableFalse Caption : FALSE
Name : txtEnable Enabled : False Text : enabled = false Name : txtVisible Visible : False Text : Visible = false Name : cmdVisible Caption : TRUE
Name : cmdVisibleFalse Caption : FALSE
Unit Kontrol Dasar TextBox - Contoh
Private Private Sub Sub cmdEnable_Click() cmdEnable_Click() txtEnable.Enabled txtEnable.Enabled == True True txtEnable.Text = "enabled txtEnable.Text = "enabled == true" true" End Sub End Sub Private Private Sub Sub cmdEnableFalse_Click() cmdEnableFalse_Click() txtEnable.Enabled txtEnable.Enabled == False False txtEnable.Text = "enabled txtEnable.Text = "enabled == false" false" End Sub End Sub Private Private Sub Sub cmdVisible_Click() cmdVisible_Click() txtVisible.Visible txtVisible.Visible == True True txtVisible.Text = "visible txtVisible.Text = "visible == true" true" End Sub End Sub Private Private Sub Sub cmdVisibleFalse_Click() cmdVisibleFalse_Click() txtVisible.Visible txtVisible.Visible == False False txtVisible.Text = "visible txtVisible.Text = "visible == true" true" End Sub End Sub
Unit Kontrol Dasar Label
Unit Kontrol ini hanya menampilkan Text dan pemakai tidak dapat mengisikan nilai terhadapnya.
Properties yang sering dipakai: Properties Name
Keterangan Isi
Name
lblNamaobject
Caption
Text/tulisan yang ditampilkan
Visible
True Æ dapat dilihat False Æ Tidak dapat dilihat
Unit Kontrol Dasar Label
Event
Umum :
Change() Æ
event ini terjadi apabila nilai pada object tersebut mengalami perubahan, untuk object ini yaitu nilai property Caption
Click()
Æ
event ini terjadi apabila pemakai melakukan click terhadapnya.
Unit Kontrol Dasar Label - Contoh Name : FrmTextBox Caption : Latihan Text Box
Name : cmdVisibleFalse Caption : FALSE Name : cmdVisibleTrue Caption : TRUE
Name : lblLatihan Visible : TRUE Caption : Tekan tombol FALSE untuk menghilangkan Label ini. Tekan tombol TRUE untuk menammpilkan Label ini.
Name : cmdUbah Caption : Ubah Caption Label
Unit Kontrol Dasar Label - Contoh
Private Private Sub Sub cmdUbah_Click() cmdUbah_Click() lblLatihan.Caption lblLatihan.Caption == "Caption "Caption lblLatihan lblLatihan sudah sudah Diubah" Diubah" End End Sub Sub Private Private Sub Sub cmdVisibleFalse_Click() cmdVisibleFalse_Click() lblLatihan.Visible lblLatihan.Visible == False False End End Sub Sub Private Private Sub Sub cmdVisibleTrue_Click() cmdVisibleTrue_Click() lblLatihan.Visible lblLatihan.Visible == True True End End Sub Sub Private Private Sub Sub lblLatihan_Change() lblLatihan_Change() pesan pesan == MsgBox("Caption MsgBox("Caption lblLatihan lblLatihan sudah sudah di di ubah", ubah", vbOKOnly) vbOKOnly) End End Sub Sub
Unit Kontrol Dasar Command Button
Unit Kontrol ini akan memberikan sebuah perintah atau tindakan ketika digunakan.
Properties yang sering dipakai: Properties Name
Keterangan Isi
Name
cmdNamaobject
Caption
Judul/Tulisan yang tampil pada object
Cancel
True Æ Tombol ter-klik jika tombol Esc ditekan False Æ Tombol berfungsi normal
Enabled
True Æ Object dapat diberikan suatu aksi False Æ tidak dapat diisi
Visible
True Æ dapat dilihat False Æ Tidak dapat dilihat
Unit Kontrol Dasar Command Button
Event Umum :
Click()
Æ
event ini terjadi apabila pemakai melakukan click terhadapnya
GotFocus()
Æ
event ini terjadi pada saat object mendapat focus (cursor sedang berada pada object tersebut)
LostFocus() Æ
MouseDown() Æ event ini terjadi pada saat tombol kiri mouse masih
event ini terjadi pada saat object kehilangan Focus (cursor berpindah dari object tersebut ke object lain)
dibawah pada saat terjadi click pada object tersebut
MouseUp()
Æ
event ini terjadi pada saat tombol kiri mouse dilepas (naik keatas) pada saat terjadi click pada object tersebut.
Unit Kontrol Dasar
Command Button - Contoh Name : cmdEnabledFalse Caption : FALSE
Name : cmdEnabledTrue Caption : TRUE
Name : cmdVisibleTrue Caption : TRUE Name : cmdVisibleFalse Caption : FALSE
Name : cmdUbahCaption Caption : UBAH CAPTION
Name : lblStatus Caption : Status Tombol Name Caption
: cmdEnabledTrue : Tombol
Name : cmdKeluar Caption : Keluar Cancel : True
Private Sub cmdEnabledFalse_Click() cmdTombol.Enabled = False End Sub Private Sub cmdEnabledTrue_Click() cmdTombol.Enabled = True End Sub Private Sub cmdKeluar_Click() Unload Me 'untuk keluar dari form End Sub Private Sub cmdTombol_GotFocus() lblStatus.Caption = "cmdTombol Got Focus, cursor sedang di cmdTombol" End Sub Private Sub cmdTombol_LostFocus() lblStatus.Caption = "cmdTombol Lost Focus, cursor meninggalkan cmdTombol" End Sub Private Sub cmdTombol_MouseDown (Button As Integer, Shift As Integer, X As Single, Y lblStatus.Caption = "Tombol mouse sedang di tekan pada cmdTombol" End Sub
As Single)
Private Sub cmdTombol_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As lblStatus.Caption = "tekanan Tombol mouse pada cmdTombol dilepas" End Sub
Single)
Private Sub cmdUbahCaption_Click() cmdTombol.Caption = "READY" End Sub
Thank’s
See Ya Next Week
