Saturday, April 19, 2014

Picture Box Visual Basic 6.0


PICTURE BOX


PictureBox selain digunakan untuk menampilkan gambar, dapat pula digunakan untuk mengelompokkan komponen lain,  komponen dapat didrag didalam pictureBox untuk mengelompokkannya menjadi satu group, sehingga akan mempermudah dalam mendesain Form, karena memungkinkan untuk menggeser-geser komponen sekaligus.



PictureBox dapat digunakan untuk meletakkan komponen-komponen dalam MDI-Form

Cara Menampilkan Gambar dalam PictureBox
1. Dengan Mengubah Propertiesnya
    Picture    :  Cari file gambarnya
    Autosize :  True (lebar dan tinggi pictureBox akan menyesuaikan lebar dan tinggi gambar)
                       False (lebar dan tinggi tidak terpengaruh lebar dan tinggi gambar)

2. Dengan coding.
    Picture1.Picture = LoadPicture("lokasi gambar")


Jika ada warning "invalid picture", berarti visual basic 6.0 tidak dapat menampilkan gambar tersebut, memang hanya gambar-gambar dengan format tertentu yang dapat ditampilkan  seperti (*.ico,*.jpg,*.bmp)

Selengkapnya silakan kunjungi :
http://msdn.microsoft.com/en-us/library/zzt5x46b%28v=vs.90%29.aspx

Monday, September 20, 2010

Mengetahui ukuran file

Code : 

Private Sub Command1_Click()
    Dim fln, result
    Dim fname As String
   
    fname = "c:\db1.mdb"
   
    fln = FileLen(Trim(fname))
    result = CInt((fln / 1024) / 1024) & " MB" & "(" & fln & " BYTES)"
   
    MsgBox "FileSize is -->" & result
End Sub

 * Tambahkan sebuah form dan letakkan sebuah commandbutton kedalam Project vb6 Anda, kemudian copy-paste code diatas pada jendela coding Anda.