290 likes | 710 Views
Down Button. Combo Box. OBYEK COMBO BOX. OBYEK COMBO BOX DIGUNAKANSEBAGAI OBYEK UNTUK MEMBERIKN INPUTAN TERHADAP PROGRAM, DENGAN MEMBERIKAN BEBERAPA ALTERNATIF PILIHAN YANG DAPAT DI TAMPILKAN BILA DI KLIK DOWN BUTTON-NYA. Combo Box sebelum di buka. Combo Box sesudah di buka.
E N D
Down Button • Combo Box OBYEK COMBO BOX OBYEK COMBO BOX DIGUNAKANSEBAGAI OBYEK UNTUK MEMBERIKN INPUTAN TERHADAP PROGRAM, DENGAN MEMBERIKAN BEBERAPA ALTERNATIF PILIHAN YANG DAPAT DI TAMPILKAN BILA DI KLIK DOWN BUTTON-NYA Combo Box sebelum di buka Combo Box sesudah di buka
Style : jenis combo box A. 0-DropDown Combo : Combo box akan menampilkan pilihan bila drop button di Click, dan text box dapat di entri, sehingga dapat menerima masukkan teks dari keyboard B. Simple Combo : Combo box tidak menampilkan alternatif pilihan, sehingga tidak beda dengan text box C. DropDown List : Combo box akan menampilkan pilihan bila drop button di Click, namun text box tidak dapat di entri, sehingga tidak dapat menerima masukkan teks dari keyboard Untuk mengambil value dari item yang dipilih, dapat di ambil dari atribut text contoh : msgbox(cmbHari.text)
OBJECT : CmbHari OBJECT : CmbMatPel LATIHAN IV-1 : COMBO BOX Jika Tombol cmdOk di Click maka akan muncul kotak pesan sbb
OBJECT LISTBOX OBYEK List BOX DIGUNAKANSEBAGAI OBYEK UNTUK MEMBERIKN INPUTAN TERHADAP PROGRAM, DENGAN MEMBERIKAN BEBERAPA ALTERNATIF PILIHAN YANG DI TAMPILKAN PADA DAFTAR ITEM • List Box • Scroll Bar : untuk menggeser daftar pilihan ke atas dan ke bawah
List : Untuk memasukan item yang akan dimunculkan Untuk meng-akses data yang dipilih, maka dapat digunakan atribut text, contoh : msgbox(list1.text)
OBJECT LISTBOX : menggunakan Beberapa kolom Object ListBox dapat menggunakan beberapa Kolom. Untuk Mengaturnya dengan mengubah atribut Columns. Bila 0 maka tidak ada kolom, Jika 1 akan terdiri dari 1 kolom, artinya bisa di Scroll ke kiri dan ke k anan List Tidak ada Kolom List satu Kolom
Style : Jenis ListBox. Default-nya adalah “0-Standard” Pilihan yang lain adalah “1-CheckBox”, artinya pilihan-pilihan tersebut dapat dipilih lebih dari satu OBJECT LISTBOX : menggunakan Style Check Box
OBJECT LISTBOX : Mengisi item ListBox dari program • Pengisian item pada listBox (dan juga Combo Box) dapat terdiri dari dua cara • Dari menu Properti, yaitu dengan mengisi atribut list • Dari program, yaitu dengan memanfaatkan fungsi Form_load() • Untuk mengaktifkan fungsi Form_load(), dengan cara double click pada form. Private Sub Form_Load() listMatkul.AddItem ("Algoritma") listMatkul.AddItem ("Struktur Data") listMatkul.AddItem ("Sistem Berkas") listMatkul.AddItem ("Bahasa C") listMatkul.AddItem ("I M K ") listMatkul.AddItem ("S B P ") listMatkul.AddItem ("Pancasila") listMatkul.AddItem ("Kewiraan") End Sub
OBJECT LISTBOX : mengakses item yang dipilih bila menggunakan Style CheckBox Private Sub Command1_Click() For i = 0 To 7 If listMatkul.Selected(i) Then MsgBox listMatkul.List(i) End If Next i End Sub
LATIHAN IV-2 : Kombinasi Text Box, ComboBox, ListBox & CommandButton
LATIHAN IV-2 : Kombinasi Text Box, ComboBox, ListBox & CommandButton ( lanjutan ) Bila tombol “Ok” pada slide halaman 12 di tekan maka akan muncul kotak pesan sbb : Bila tombol “Close” pada slide halaman 12 di tekan maka akan mengakhiri program
FileListBox OBJECT FILELISTBOX OBJECT FILELISTBOX : gunanya untuk menampilkan daftar file yang ada pada suatu direktori. Cara penggunaanya hampir sama dengan Object ListBox
OBJECT FILELISTBOX : mengambil nama file Object TextBox, dengan nama txtNamaFile Object FileListBox, dengan nama File1 Agar txtNamaFile dapat menampilkan nama file yang dipilih pada File1, maka pada event click diberi perintah sbb : Private Sub File1_Click() txtNamaFile.Text = File1.filename End Sub (Untuk mengaktifkan bagian pemrograman “Private sub File1_click()”, maka anda cukup meng-click object File1 tersebut)
OBJECT FILELISTBOX : Menentukan Patern PATERN adalah properti dari object FILELISTBOX yang berguna untuk mem-filter jenis file yang akan ditampilkan pada object tersebut Private Sub Form_Load() cmbPatern.AddItem ("*.*") cmbPatern.AddItem ("*.BMP") cmbPatern.AddItem ("*.GIF") cmbPatern.AddItem ("*.JPG") cmbPatern.AddItem ("*.ICO") End Sub Private Sub cmbPatern_Change() File1.Pattern = cmbPatern End Sub Private Sub cmbPatern_Click() File1.Pattern = cmbPatern End Sub Object ComboBox, dengan nama cmbPatern
OBJECT DirListBox dan DriveListBox DirListBox, dengan nama Dir1 DriveListBox dengan nama Drive1
OBJECT DirListBox dan DriveListBox : mengakses value Agar obyek Dir1 dapat menampil-kan direktori-direktori yang terdapat pada drive yang dipilih, maka anda harus mengedit fungsi drive1_change() sbb : Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Agar obyek File1 dapat menampil-kan File-file yang terdapat pada direktori yang dipilih, maka anda harus mengedit fungsi dir1_change() sbb : Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub
LATIHAN IV-3 : OBJECT DirListBox dan DriveListBox Object CommandButtoin dengan nama cmdView Object Image, dengan nama image1. Atribut stretch = true, agar gambar dapat menjadi sebesar ukuran kotak image1 Private Sub cmdView_Click() picture1.Picture = LoadPicture(File1.Path + "\" + txtNamaFile.Text) End Sub
LATIHAN IV-4 : OBJECT DirListBox dan DriveListBox Buatlah agar program berikut ini tidak perlu menggunakan Command Button untuk menampilkan gambar, melainkan pada saat di FileListBox di Clik, secara otomatis menampilkan gambar