设置为主窗口时出错了，如何调整下面代码？谢谢：
Dim ListBox1 As WinForm.ListBox = e.Form.Controls("ListBox1")
ListBox1.BaseControl.AllowDrop = True
'MessageBox.Show(11)
AddHandler ListBox1.BaseControl.DragEnter, AddressOf ListBox1_DragEnter
AddHandler ListBox1.BaseControl.DragDrop, AddressOf ListBox1_DragDrop
'MessageBox.Show(22)
Dim frm As WinForm.Form = Forms("拖放文件")
frm.BaseForm.AllowDrop = True
'MessageBox.Show(33)
AddHandler frm.BaseForm.DragEnter, AddressOf ListBox1_DragEnter
AddHandler frm.BaseForm.DragDrop, AddressOf ListBox1_DragDrop2
BeforeClose事件：
Dim frm As WinForm.Form = Forms("拖放文件")
frm.BaseForm.AllowDrop = False
RemoveHandler frm.BaseForm.DragEnter, AddressOf ListBox1_DragEnter
RemoveHandler frm.BaseForm.DragDrop, AddressOf ListBox1_DragDrop2
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
加好友 
发短信
Post By：2018/4/24 22:56:00 [只看该作者]
