Visual Basic

Rahajeng When Ever rekan-rekan…

Kali ini saya akan menampilkan sebuah cara yang cukup sedehana untuk membuka filegambar di VB6, pertama-tama load dulu componentnya yaitu common dialog, caranya adalah klik kanan pada standard toolbar seperti gambar di bawah

pilih Components... selanjutnya pilih microsoft commont dialog control 6.0 (sp6):

selanjutnya ambil gelas dan buat kopi, hee.. bercanda. serius selanjutnya tambah komponentnya pada form:

and then tambahkan sebuah tombol dengan caption = &Browse dan sebuah Image seperti dibawah ini:

nah sekarang kodingnya ya...

'klik dua kali pada form dan isi koding ini:

Private Sub Form_Load()
    Image1.Stretch = True
End Sub

'Selanjutnya pada tombol yang bercaption browse beri coding:

Private Sub Command1_Click()
    CommonDialog1.Filter = "JPEG | *.jpg" 'fungsi memilih file jpg saja
    CommonDialog1.ShowOpen 'membuka dialog
    If Not CommonDialog1.CancelError Then 'jika tidak cancel mnjadi pilihan
    On Error GoTo SALAHGAMBAR 'jika gambar salah pergi ke label salahgambar

'menggunakan nama tujuan dialog sebagai gambar image1

    Image1.Picture = LoadPicture(CommonDialog1.FileName)
    Exit Sub
SALAHGAMBAR:
    MsgBox "Gambar tidak support", vbCritical, "Perhatian"
    End If
   
End Sub

Gampangkan? bila kurang jelas bisa didownload di sini dan selamat mencoba ya...