vb.net |
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim dosya As String
On Error Resume Next
Dim op As New OpenFileDialog
If (op.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
dosya = op.FileName
PictureBox1.Image = System.Drawing.Bitmap.FromFile(dosya)
End If
End Sub
'Alttaki komut satırları resim kutusundaki resmi silmek için kullanılır.
' Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
' PictureBox1.Image.Dispose()
' PictureBox1.Image = Nothing
' End Sub
End Class
Sitemizin daha kaliteli paylaşımları yapabilmesi için sizin yorumlarınıza ihtiyacımız var :)
0 yorum :
Yorum Gönder