| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 拖放文件窗口为什么不能设置为主窗口 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118087) |
| -- 作者：ZJZK2018 -- 发布时间：2018/4/24 22:56:00 -- 拖放文件窗口为什么不能设置为主窗口 设置为主窗口时出错了，如何调整下面代码？谢谢： 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 |
| -- 作者：有点蓝 -- 发布时间：2018/4/24 23:20:00 -- 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 basemainform.AllowDrop = True AddHandler basemainform.DragEnter, AddressOf ListBox1_DragEnter AddHandler basemainform.DragDrop, AddressOf ListBox1_DragDrop2 BeforeClose自己改改
|
| -- 作者：ZJZK2018 -- 发布时间：2018/4/24 23:43:00 -- 谢谢 |