Jumat, 08 April 2011

Hari ke 64 PI

Saya menambahkan script untuk menampilkan gambar


CommonDialog1.Filter = "All Picture files|*.bmp;*.jpg;*.gif;*.dib*|JPEG Images|*.jpg|Bitmaps|*.bmp|All Files|*.*"
        CommonDialog1.ShowOpen
        Text(7).Text = CommonDialog1.FileName
        Image1.Picture = LoadPicture(Text(7).Text)

Tidak ada komentar:

Posting Komentar