- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口的变大与变小 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=75184)
-- 发布时间：2015/9/29 17:00:00
-- [求助]窗口的变大与变小
Dim pl As WinForm.Panel = e.Form.Controls("Panel1")
If pl.Width <700 Then
e.Form.SetBounds(e.Form.BaseForm.Left,e.Form.BaseForm.Top,1000,528)
Else
e.Form.SetBounds(e.Form.BaseForm.Left,e.Form.BaseForm.Top,500,528)
End If
如上代码，我点击某按钮后能实现窗口的变大~ 但是再次点击无法变回小的~ 大神帮看下什么情况？
详见实例！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.zip |
-- 发布时间：2015/9/29 17:18:00
--
你panel的停靠，要设置成bottom。
或者改代码
If e.Form.Width <700 Then
e.Form.SetBounds(e.Form.BaseForm.Left,e.Form.BaseForm.Top,1000,528)
Else
e.Form.SetBounds(e.Form.BaseForm.Left,e.Form.BaseForm.Top,500,528)
End If
-- 发布时间：2015/9/29 17:39:00
--
噢噢~ 原来如此！~ 感谢！