Membuat Browsing Foto

Membuat Browsing Foto

Untuk membuat browsing foto seperti gambar diatas,Langkah-langkah 

sebagai berikut :

Hasilnya

1. Buka form baru, klik kanan >> pilih add >> form >> open.
2. Pilihlah komponent, 1 label, 1 button, 1 picturebox, 1 commondialog
3. Label captionnya diubah menjadi Cover Buku, Button caption diubah menjadi Browse Image
4. Renamelah picturebox1 menjadi foto, commondialog1 menjadi CD, commandbutton menjadi  Browse.
5. susunlah posisi komponen tersebut, seperti berikut ini
6.  
7. Isikan skrip ini.
8. Private Sub browse_Click()
   On Error Resume Next
       Dim tipe As String
       tipe = "JPEG(*.jpg,*.jpeg,*.jpe,*.JPG,*.JPEG,*.JPE)"
      
       CD.Action = 1
           mrXx = CD.FileName
          
           If mrXx = "" Then
               Exit Sub
               foto = Nothing
           Else
               foto.Picture = LoadPicture(mrXx)
           End If
           CD.CancelError = True
   End Sub  
   
   
   # Selamat Mencoba #

I