您 好!

我的窗口最大化,电脑下边任务栏不见了,修改那个代码才保留见得到任务栏?

请指教!!!

谢谢老师!!!

您好!

窗口最大化,最大的尺寸可不可以设置在任务栏上边,不要大到挡住任务栏.

我的代码可能是大到挡住任务栏.

请老师指教!!!谢谢!!!

您好!

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  

最小化

e.Form.BaseForm.WindowState =  System.Windows.Forms.FormWindowState.Minimized

最大化

If e.Form.BaseForm.WindowState =  System.Windows.Forms.FormWindowState.Maximized Then

    e.Form.BaseForm.WindowState =  System.Windows.Forms.FormWindowState.Normal

 

   e.Sender.Image = getimage("LLL.png")

Else

    e.Form.BaseForm.WindowState =  System.Windows.Forms.FormWindowState.Maximized

    e.Sender.Image = getimage("LL.png")

End If

退出   Dim vebm As WinForm.Button = e.Form.Controls("Button5")

vebm.PerformClick()

Panel

MouseMove

resizeDir = ResizeDirection.None

MouseDown

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

    MoveForm()

End If

 谢谢!