ne hilft leider auch nicht weiter da der code nicht mit per drag n drop
im browser funktioniert
der rest von drag n drop geht ja
auch das datei auslesen und in ne listbox eintragen
sowie zum debuggen in ne richtextbox
nur das browserlink droppen ausm firefox geht nicht
ich bekomme noch nicht mal den pfad zu dem entsprechenden favorit ausgegeben
bzw wenn ich aus einer webseite einen link "dragge" den inhalt
grad so als ob vb.net2008 das drop ignoriert
DragDropEffects-Enumeration (System.Windows.Forms)
geht auch nur auf dateien oder links ein die im OS oder desktop sind
ich schreib mal ne vereinfachte version damit wir ne basis haben
PHP-Code:
Imports System
Imports System.IO
Imports System.Collections
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Panel1.BackColor = Color.Black
Panel1.Width = "48"
Panel1.Height = "48"
Panel1.AllowDrop = True
End Sub
Private Sub Panel1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Panel1.DragEnter
e.Effect = DragDropEffects.All
End Sub
Private Sub Panel1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Panel1.DragDrop
If RichTextBox1.TextLength = 0 Then
Else
RichTextBox1.Text = RichTextBox1.Text & vbCrLf & "--------------------------------------------------------------------------------------------------------"
End If
Dim s() As String = e.Data.GetData("FileDrop", False)
Dim i1 As Integer
For i1 = 0 To s.Length - 1
Dim sReader As New StreamReader(s(i1))
Dim sZeile As String = ""
Dim arrZeile As New ArrayList()
Dim count As Integer = 0
Do
sZeile = sReader.ReadLine()
If Not sZeile Is Nothing Then
arrZeile.Add(sZeile)
count = count + 1
End If
Loop Until sZeile Is Nothing
sReader.Close()
Dim i2 As Integer = 0
Do While i2 <= count
Dim dummy As String = arrZeile(i2)
RichTextBox1.Text = RichTextBox1.Text & vbCrLf & dummy
i2 = i2 + 1
Loop
Next i1
End Sub
End Class
drag n drop :
desktop : ja
explorer : ja
firefox favorit : nein
firefox webseite : nein