Imports System.IO
Imports System.Windows.forms
Public Class frmBetrachter
 
#Region "DragDrop"
 
    Private Sub frmBetrachter_DragDrop(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
        Dim Dateien() As String = CType(e.Data.GetData(DataFormats.FileDrop), _
        String())
        Ausgeben(Dateien)
    End Sub
    Private Sub frmBetrachter_DragEnter(ByVal sender As Object, _
                ByVal e As System.Windows.Forms.DragEventArgs) _
                Handles Me.DragEnter
        Dim pruefe = DirectCast(e.Data, DataObject)
        If pruefe IsNot Nothing AndAlso pruefe.ContainsFileDropList Then
            e.Effect = DragDropEffects.Copy
        End If
    End Sub
#End Region
 
#Region "Clipboard"
 
    Dim ptMaus As Point
    Private Sub frmBetrachter_MouseMove(ByVal sender As Object, _
                ByVal e As System.Windows.Forms.MouseEventArgs) _
                Handles Me.MouseMove
        ptMaus = e.Location
 
 
    End Sub
 
    Private Sub frmBetrachter_KeyDown(ByVal sender As Object, _
                ByVal e As System.Windows.Forms.KeyEventArgs) _
                Handles Me.KeyDown
 
        If e.Control And e.KeyCode = Keys.V Then
            Refresh()
            ClipDatenEinfügen()
        ElseIf e.Control And e.KeyCode = Keys.F Then
            Dim meinPea As New PaintEventArgs(CreateGraphics, ClientRectangle)
            ClipFormateEinfügen(meinPea)
        End If
    End Sub
 
    Private Sub tsiEinfügen_Click(ByVal sender As System.Object, _
                        ByVal e As System.EventArgs) _
                        Handles tsiEinfügen.Click
        ClipDatenEinfügen()
    End Sub
 
    Private Sub tsiFormateAnzeigen_Click(ByVal sender As System.Object, _
                        ByVal e As System.EventArgs) _
                        Handles tsiFormateAnzeigen.Click
 
        Dim meinPea As New PaintEventArgs(CreateGraphics, ClientRectangle)
        ClipFormateEinfügen(meinPea)
    End Sub
#End Region

MFG Gizmo