Download
slide1 n.
Skip this Video
Loading SlideShow in 5 Seconds..
OBYEK COMBO BOX PowerPoint Presentation
Download Presentation
OBYEK COMBO BOX

OBYEK COMBO BOX

315 Views Download Presentation
Download Presentation

OBYEK COMBO BOX

- - - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript

  1. 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

  2. List : Untuk memasukan item yang akan dimunculkan

  3. 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)

  4. OBJECT : CmbHari OBJECT : CmbMatPel LATIHAN IV-1 : COMBO BOX Jika Tombol cmdOk di Click maka akan muncul kotak pesan sbb

  5. 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

  6. List : Untuk memasukan item yang akan dimunculkan Untuk meng-akses data yang dipilih, maka dapat digunakan atribut text, contoh : msgbox(list1.text)

  7. 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

  8. OBJECT LISTBOX : Contoh 2 kolom

  9. 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

  10. 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

  11. 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

  12. LATIHAN IV-2 : Kombinasi Text Box, ComboBox, ListBox & CommandButton

  13. 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

  14. FileListBox OBJECT FILELISTBOX OBJECT FILELISTBOX : gunanya untuk menampilkan daftar file yang ada pada suatu direktori. Cara penggunaanya hampir sama dengan Object ListBox

  15. 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)

  16. 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

  17. OBJECT DirListBox dan DriveListBox DirListBox, dengan nama Dir1 DriveListBox dengan nama Drive1

  18. 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

  19. 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

  20. 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