Rubrik: | VB-Versionen: VB2005, VB2008, VB2010 | 01.11.11 |
Diesmal zeigen wir Ihnen, wie sich eine Bilddatei via Drag & Drop aus dem Windows Explorer in einer PictureBox anzeigen lässt.
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
' Drop Aktion zulassen
PictureBox1.AllowDrop = True
End Sub
Private Sub PictureBox1_DragEnter(ByVal sender As Object, _
ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragEnter
' Prüfen, ob eine FileDrop-Operation vorliegt
If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
e.Effect = DragDropEffects.Copy
End If
End Sub
Private Sub PictureBox1_DragDrop(ByVal sender As Object, _
ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragDrop
' ausgewählte Datei in der PictureBox anzeigen
Dim sFile As String = e.Data.GetData(DataFormats.FileDrop)(0)
Try
PictureBox1.Image = Image.FromFile(sFile)
Catch ex As Exception
e.Effect = DragDropEffects.None
MsgBox("Das Bild kann nicht angezeigt werden!" & vbCrLf & vbCrLf & _
"Fehlermeldung" & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub