Anasayfa > Kodlar > Visual Basic ile Picturebox1 kullanımı

Visual Basic ile Picturebox1 kullanımı

Private Sub Form_Load()
File1.Pattern = "*.BMP;*.ICO;*.WMF;*.DIB;*.JPG;*.GIF"
Picture1.AutoSize = True
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
ChDir (File1.Path)
End Sub

Private Sub Drive1_Change()
ChDrive Drive1.Drive
Dir1.Path = Drive1.Path
End Sub

Private Sub File1_Click()
On Local Error GoTo r
Picture1.Picture = LoadPicture(File1.FileName)
Exit Sub
r:
MsgBox ("resim hatası")
Exit Sub
End Sub

Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: