主题：无边框代码报错

 

论坛里有无边框例子，能移动和改变窗口大小，很好，在示例里能用，但代码拷贝后，运行报错，不识别“myform”，请专家指点一下，afterload代码如下：

e.Form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None  '消除窗口的边框

myform = e.Form.BaseForm

 

Dim dc As Foxtable.FormPanel = e.Form.Panel         '窗口底层

AddHandler dc.MouseMove, AddressOf myform_MouseMove  '进入控件事件

AddHandler dc.MouseDown, AddressOf myform_MouseDown   '按下鼠标事件

 

以下也报错： 

窗口1_Panel1_MouseDown

 

If e.Button = Windows.Forms.MouseButtons.Left And e.Form.BaseForm.WindowState <> Windows.Forms.FormWindowState.Maximized Then

    MoveForm()

End If

 

论坛发帖地址：

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=128802&ID=20284&skin=1

谢谢