Tipp 0203 Link mit Drag & Drop auf LinkLabel
Autor/Einsender:
Datum:
  Michael Werner
24.05.2010
Entwicklungsumgebung:   VB.Net 2008
Framework:   2.0
Über Allowdrop=True befähigt man ein Control zu Drag & Drop-Operationen. In diesem Tipp ist es ein LinkLabel, dem Link-Symbole vom Desktop oder aus der Adressleiste des Internet-Explorers per Ziehen und Loslassen übergeben werden können.
Im Event DragEnter wird mit e.Data.GetDataPresent das übergebene DataFormat (Text oder FileDrop) unterschieden. In Event DragDrop wird das übergebene File-Objekt dann übernommen. Eine Besonderheit beim LinkLabel-Control: Es braucht kein DragDrop-Event für ein Ziehen aus dem IE.
 
Private WithEvents LinkLabel1 As New LinkLabel With _
    {.Dock = DockStyle.Fill, .Allowdrop = True}

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e _
    As System.EventArgs) Handles MyBase.Load
  Me.Controls.Add(LinkLabel1)
  Me.Text = "Ziehen Sie einen Linksymbol aus dem IExplorer oder _
     vom WindowsExplorer auf das Formular!"
End Sub

Private Sub LinkLabel1_DragEnter(ByVal sender As Object, ByVal e _
    As System.Windows.Forms.DragEventArgs) _
    Handles LinkLabel1.DragEnter
  'FileDrop oder IE-Adresse übergeben
  If e.Data.GetDataPresent(DataFormats.FileDrop) Then
    e.Effect = DragDropEffects.All
  ElseIf e.Data.GetDataPresent(DataFormats.Text) Then
    Dim link As String = CStr(e.Data.GetData(DataFormats.Text))
    LinkLabel1.Text = link
  End If
End Sub

Private Sub LinkLabel1_DragDrop(ByVal sender As Object, ByVal e _
   As System.Windows.Forms.DragEventArgs) _
   Handles LinkLabel1.DragDrop
  'FileDrop oder IE-Adresse übergeben
  If e.Data.GetDataPresent(DataFormats.FileDrop) Then
    Dim droppedFiles As String() = _
        CType(e.Data.GetData(DataFormats.FileDrop), String())
    LinkLabel1.Text = droppedFiles(0)
  End If
End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, _
   ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
   Handles LinkLabel1.LinkClicked
  Process.Start(LinkLabel1.Text)
End Sub
 
Weitere Links zum Thema
Links aus Website auslesen
Datei-Drag & Drop in eine ListBox
Drag& Drop zwischen Textboxen

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (18 kB) Downloads bisher: [ 188 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Montag, 23. Januar 2012