在窗口AfterLoad

Dim ListBox1 As WinForm.ListBox = e.Form.Controls("ListBox1")

ListBox1.BaseControl.AllowDrop = True

AddHandler ListBox1.BaseControl.DragEnter, AddressOf ListBox1_DragEnter

AddHandler ListBox1.BaseControl.DragDrop, AddressOf ListBox1_DragDrop

在窗口BeforeClose

Dim ListBox1 As WinForm.ListBox = e.Form.Controls("ListBox1")

RemoveHandler ListBox1.BaseControl.DragEnter, AddressOf ListBox1_DragEnter

RemoveHandler ListBox1.BaseControl.DragDrop, AddressOf ListBox1_DragDrop

ListBox1.BaseControl.AllowDrop = False

以上代码可以实现将拖动的文件名（含路径）添加到listbox

请教老师可以将上述功能添加到table1的第一列吗？另可以排除拖动的文件夹吗？因为只想拖动的是文件