PicturuBox Örneği

Yazar jawscod2

Private Sub Command1_Click()
Clipboard.Clear ‘panoyu sil
Clipboard.SetData Picture1.Picture ‘resmi panoya kopyala
End Sub

Private Sub Command2_Click()
Picture1.Picture = Clipboard.GetData ‘panodan resim al
End Sub

Private Sub Command3_Click()
‘dosya adı sor ve o dosyaya kaydet
SavePicture Picture1.Picture, InputBox(”dosya adı”)
End Sub

Private Sub Dir1_Change()
‘dizin değiştirildiğinde o dizindeki dosyaları göster
File1.Path = Dir1.Path
ChDir (File1.Path)
End Sub

Private Sub Drive1_Change()
’sürücü değiştiğinde dizin/dosya gösteren kontrolleri değiştir
ChDrive Drive1.Drive
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
On Local Error GoTo resimhatası
‘tıklanan dosyayı yükle
Picture1.Picture = LoadPicture(File1.FileName)
Exit Sub
resimhatası:
MsgBox (”resim hatalı”)
Exit Sub
End Sub
Private Sub Form_Load()
’sadece resim dosyalarını göster
File1.Pattern = “*.BMP;*.ICO;*.WMF;*.JPG;*.GIF”
Picture1.AutoSize = True
End Sub

Bu yazı toplamda 31, bugün ise 0 kez görüntülenmiş