Kontrol pada visual basic

Penggunaan Dasar ComboBox

formcombo

Private Sub Form_Load()

Do While adoRset.EOF = False

Combo1.AddItem

adoRset!customerid

adoRset.MoveNext Loop

End Sub

Perhatikan adoRset!customerid, berati si combobox akan menampilkan semua record customerid ke dalam ComboBox

Common dialog

CommonDialog biasanya dipakai untuk berhubungan dengan system, misalnya membuka/menyimpan file, mengganti warna/font dll. Perhatikan contoh gambar dibawah ini yang menggunakan commondialog.

formcdialog2

Pada gambar diatas, apabila tombol Ganti Warna di click, maka commondialog akan menampilkan pilihan warna seperti ini :

formwarna1

Pada contoh ini, saya mencoba memilih warna, maka bisa dilihat pd gbr diatas tulisan sudah berubah menjadi warna merah, begitu juga pada waktu saya mengclick tombol InsertFoto maka ada pilihan utk memilih foto mana yang akan ditampilkan pada form tersebut, trik ini kodenya sederhananya koq seperti dibawah ini :

‘—kode untuk menampilkan dialog pemilihan warna
Private Sub cmdWarna_Click()
With CommonDialog1
‘–kalo ditekan tombol cancel abaikan aja
.CancelError = False

‘–tampilkan pilihan warna
.ShowColor

‘–warnai huruf berdasarkan warna yg dipilih
Text1.ForeColor = .Color
Label1.ForeColor = .Color
End With
End Sub

‘—kode untuk menampilkan dialog pemilihan foto
Private Sub cmdFoto_Click()
With CommonDialog1
‘–memberi judul caption pp form dialog
.DialogTitle = “Pilih foto yang mau di insert”

‘–tampilkan form dialog untuk mencari file gbr
.ShowOpen

‘–tampilkan gambar berdasarkan file yg dipilih
Image1.Picture = LoadPicture(.FileName)
End With
End Sub

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: