Baca Juga
Kontrol ScrollBar( baik Hscrollbar maupun Vscrollbar ) merupakan kontrol yang dapat digunakan untuk melakukan penambahan atau pengurangan nilai dengan posisi hriontal dan vertikal.
Contoh nya :
1. Buka file. Setelah itu desain seperti ini :
2. Ubahlah properti masing-masing kontrol dengan ketentuan sbb :
3. Tulislah Kode berikut pada masing-masing kontrol :
Private Sub optkanan_Click() "Perintah OptKanan"
txtteks.Alignment = 1
End Sub
Private Sub optkiri_Click() "Perintah OptKiri"
txtteks.Alignment = 0
End Sub
Private Sub opttengah_Click() "Perintah OptTengah"
txtteks.Alignment = 2
End Sub
Private Sub opthijau_Click() "Perintah OptHijau"
txtteks.BackColor = vbGreen
End Sub
Private Sub optkuning_Click() "Perintah OptKuning"
txtteks.BackColor = vbYellow
End Sub
Private Sub optputih_Click() "Perintah OptPutih"
txtteks.BackColor = vbWhite
End Sub
Private Sub CmdHapus_Click() "Perintah CmdHapus"
txtteks.Text = ""
End Sub
Private Sub CmdTutup_Click() "Perintah CmdTutup"
End
End Sub
5. Jalankan Programnya
Contoh nya :
1. Buka file. Setelah itu desain seperti ini :
2. Ubahlah properti masing-masing kontrol dengan ketentuan sbb :
3. Tulislah Kode berikut pada masing-masing kontrol :
Private Sub optkanan_Click() "Perintah OptKanan"
txtteks.Alignment = 1
End Sub
Private Sub optkiri_Click() "Perintah OptKiri"
txtteks.Alignment = 0
End Sub
Private Sub opttengah_Click() "Perintah OptTengah"
txtteks.Alignment = 2
End Sub
Private Sub opthijau_Click() "Perintah OptHijau"
txtteks.BackColor = vbGreen
End Sub
Private Sub optkuning_Click() "Perintah OptKuning"
txtteks.BackColor = vbYellow
End Sub
Private Sub optputih_Click() "Perintah OptPutih"
txtteks.BackColor = vbWhite
End Sub
Private Sub CmdHapus_Click() "Perintah CmdHapus"
txtteks.Text = ""
End Sub
Private Sub CmdTutup_Click() "Perintah CmdTutup"
End
End Sub
5. Jalankan Programnya
EmoticonEmoticon