Drop & drap – Visual Basic – Fórum – Programujte.com

Potřeboval bych poradit, jak naprogramovat, aby při přetažení souboru (např. z plochy) se v textovém poli zobrazila cesta k tomuto souboru.
Mockrát díky

Neumím VB6, ale v C# jsem to udělal takto:
string[] formátyPřetaeníSouboru = new string[] {
"Shell IDList Array",
"Shell Object Offsets",
"DragImageBits",
"DragContext",
"InShellDragLoop",
"FileDrop",
"FileName",
"FileName"
};

private void textBox1_DragDrop(object sender, DragEventArgs e)
{

IDataObject o = e.Data;
string[] ff = o.GetFormats(false);
foreach (string var in formátyPřetaeníSouboru)
{
object obj = o.GetData(var);
Debug.Print("Formát:" + var + "Data: " + obj.ToString());
if (var == "FileDropData")
{
textBox1.Text = obj.ToString();
}
if (var.Contains("File"))// == "FileDropData")
{
string[] o2 = (string[])obj;
foreach (string var2 in o2)
{
Debug.Print(var2);
}
}
}
}

private void textBox1_DragEnter(object sender, DragEventArgs e)
{
e.Effect = DragDropEffects.All;
}

private void textBox1_DragOver(object sender, DragEventArgs e)
{
e.Effect = DragDropEffects.All;
}

U toho daného txt musíš povolit DD. H2,3 jsou pro efekt drop(zobrazí kurzor plus), 1 provádí samotné zjištění názvu pomocí formátu. Formáty s file vracejí název(at uz dos nebo windows), zbytek stream, viz:
Formát:Shell IDList ArrayData: System.IO.MemoryStream
Formát:Shell Object OffsetsData: System.IO.MemoryStream
Formát:DragImageBitsData: System.IO.MemoryStream
Formát:DragContextData: System.IO.MemoryStream
Formát:InShellDragLoopData: System.IO.MemoryStream
Formát:FileDropData: System.String[]
F:\Moňa\Visual Studio 2005\Projects\SomeExperiments\VytvářeníCatchBloků\VytvářeníCatchBloků\bs\a.txt
Formát:FileNameData: System.String[]
F:\MOA~1\VISUAL~1\Projects\SOMEEX~1\VYTVEN~1\VYTVEN~1\bs\a.txt
Formát:FileNameData: System.String[]
F:\MOA~1\VISUAL~1\Projects\SOMEEX~1\VYTVEN~1\VYTVEN~1\bs\a.txt
The thread 0x14b0 has exited with code 0 (0x0).
The program '[2160] DragDrop.vshost.exe: Managed' has exited with code 0 (0x0).