拖放文件窗口为什么不能设置为主窗口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

设置为主窗口时出错了，如何调整下面代码？谢谢：

AfterLoad事件：

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

主题：拖放文件窗口为什么不能设置为主窗口