vb.net如何设置一个窗体为 宽度不能调节，而高度可以调节

　　vb.net设置一个窗体为，宽度不能调节，而高度可以调节，
　　代码设置方法：
Dim form_width As Integer = Me.Width
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
If Me.Width <> form_width Then
Me.Width = form_width
'Debug.Print(TimeString & "-" & CStr(Me.Width))
End If
End Sub
　　vb.net，即Visual Basic.NET是基于微软.NET Framework之上的面向对象的编程语言。其在调试时是以解释型语言方式运作,而输出为EXE程序是是以编译型语言方式运作。可以看作是Visual Basic在.Net Framework平台上的升级版本，增强了对面向对象的支持。

设置窗体的minimumSize和maximumSize,设置他们的width为你需要的固定宽度值.height设置成你允许的范围值.比如minimumSize的width=800,height=0;
maximumSize的width=800,height=2000;

原理：在启动时把窗体宽度放在一个变量（form_width）里，当窗体大小发生改变（Resize事件）时，如果改变后的宽度与初始宽度（form_width中保存）不符合，则重新把初值赋给窗体宽度。
可以用代码设置：
Dim form_width As Integer = Me.Width
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
If Me.Width <> form_width Then
Me.Width = form_width
'Debug.Print(TimeString & "-" & CStr(Me.Width))
End If
End Sub