如下代码: Private Sub Form_Load() Me.WindowState = 2 End Sub当然这里没有取还原按钮,还原到窗体后还是可以调节大小的, 有以下几种解决方法。 1、将上面代码改为Private Sub Form_Load() Me.BorderStyle = 3 '将窗体改成只有关闭按钮 Me.WindowState = 2 End Sub1、有一个比较无齿的办法代码如下Private Sub Form_Load()Me.WindowState = 2 End Sub '要窗体的Resize事件中加入判断,除过最下化以外的窗体大小改变通通者使窗体变回最大化 Private Sub Form_Resize() If Me.WindowState <> 1 Then '判断不是窗体最下化 Me.WindowState = 2 End If End Sub3 .可以用API将还原按钮屏蔽 不好意思用那一个我记不起来了。
至于保留任务栏不明白什么意思
要么你就不要用windowstate=2了,自己写代码,
设置me.height=*****试试
Private Sub Form_Load()
Me.WindowState = 2
End Sub当然这里没有取还原按钮,还原到窗体后还是可以调节大小的,
有以下几种解决方法。
1、将上面代码改为Private Sub Form_Load()
Me.BorderStyle = 3
'将窗体改成只有关闭按钮
Me.WindowState = 2
End Sub1、有一个比较无齿的办法代码如下Private Sub Form_Load()Me.WindowState = 2
End Sub
'要窗体的Resize事件中加入判断,除过最下化以外的窗体大小改变通通者使窗体变回最大化
Private Sub Form_Resize()
If Me.WindowState <> 1 Then '判断不是窗体最下化
Me.WindowState = 2
End If
End Sub3 .可以用API将还原按钮屏蔽 不好意思用那一个我记不起来了。
这样可以实现初始窗口最大化了,并且窗口的调整不能调整
但是我发现还有一个问题:就是点击最大化按钮后在点击还原按钮(最大化以后最大化按钮变为了还原按钮)窗体不响应resize事件也不响应paint事件
不知道是我得设置不对还是本来就是这样子?
请再指教一下吧
我先谢谢各位了