窗体最大化按钮，按下后如何控制窗体大小（vb.net）

前几天的时候我帮人解决过这个问题,现在又出来了.

创新互联基于成都重庆香港及美国等地区分布式IDC机房数据中心构建的电信大带宽，联通大带宽，移动大带宽，多线BGP大带宽租用,是为众多客户提供专业服务器托管报价，主机托管价格性价比高，为金融证券行业雅安服务器托管，ai人工智能服务器托管提供bgp线路100M独享，G口带宽及机柜租用的专业成都idc公司。

在form_Resize()事件 里判断窗口是不是最大化了 就行了,然后在把窗体大小调到自己的指定大小..

下面是我给你写的VB代码( 我没有.net编译器,不过相信你很容易就看懂了,我给你写上注释)

补充:刚才测试时有点小错误,现在更正好了.o(∩_∩)o...

Private kuandu As Long, gaodu As Long

Private Sub Form_Load()

'//将启动窗体的宽 ,高属性 赋值给全局变量

kuandu = Me.Width

gaodu = Me.Height

End Sub

Private Sub Form_Resize()

'//Resize()事件中如果最大化就会出错.错误号是384

On Error GoTo Errhandle

If Me.WindowState = 2 Then

Me.Left = 0

Me.Top = 0

Me.Width = Screen.Width '//只进行宽度变化

Me.Height = gaodu '//高度不变化

End If

Exit Sub

Errhandle:

If Err.Number = "384" Then '.net的我不知道是不是384

Me.WindowState = 0

Me.Left = 0

'Me.Top = 0

Me.Width = Screen.Width '//只进行宽度变化

Me.Height = gaodu '//高度不变化

End If

End Sub

VB.NET中设定窗体大小

窗体初始化时，设定Windowstate= maximized.

窗体分辨率仍然可以设成1920x1080。设计元素的时候拖拽，或者使用代码初始化控件。

VB.NET设计中窗体大小设定

从来只有高分辨率下为低分辨率环境开发程序的。既然开发环境是低分辨率，那就只能利用代码初始化各个控件的位置和大小了。随测随改。

vb.net如何设置窗体内部的大小（除去边框及标题栏部分的大小）

'窗体有个属性ClientSize 是除去边框及标题栏部分的为工作区

'你要的应该就是这个了。

'设置窗体工作区的大小 例为400*300

Me.ClientSize = New Size(400,300)

本文名称：vb.net控制窗口大小 vb控制窗体大小的属性
文章转载：http://hbruida.cn/article/hjeijh.html