vb中，我想在点击按钮，把窗口全屏化，应该怎么写代码？

来源：百度知道 编辑：UC知道 时间：2024/06/21 01:40:13
看清楚，不是在设计阶段里把窗体的BorderStyle给设成0、windowstate设成2。而是点击按钮来改变的，我这样试过：
Private Sub Command2_Click()
Form1.BorderStyle = 0
Form1.WindowState = 2
End Sub
WindowState就能够满屏，但是BorderStyle没反应。
该怎么弄？
我找了下，说是这样：BorderStyle 属性对 Form 对象和 Textbox 控件在运行时是只读的。不能赋值。
然后，这样子改：
Private Sub Command2_Click()
Form1.BorderStyle = 0
Form1.Caption = ""
Form1.WindowState = 2
End Sub

中间就比我的多了个Form1.Caption = ""，就能够全屏了，为什么？

下面两条都不是我要的答案，不要乱回答

这是vb的一个Bug,对Form的BorderStyle 属性赋值后，再给Caption赋值，则borderstyle属性（不一定是"",什么值都行）就起作用了，若不给Caption赋值，则borderstyle属性不起作用。

你在属性窗口那把WINDOWS改成TURN就行了.

Private Sub Command2_Click()
Form1.move 0,0,Screen.width,Screen.Height
End Sub
就搞定了
要那么复杂干什么呢

在代码里实现

top和left属性设为0

width和Height属性设置为Screen.width,Screen.Height

就可以了