VB 窗体大小问题

直接设置窗体的属性BorderStyle为1,3,4都不能够改变窗口大小

Public form_w As Integer
Public form_h As Integer

Private Sub Form_Load()
form_w = Me.Width
form_h = Me.Height
End Sub

Private Sub Form_Resize()
If Me.WindowState = 0 Then
Me.Width = form_w
Me.Height = form_h
End If
If Me.WindowState = 2 Then Me.WindowState = 0
End Sub

form1.borderstyle =1或者3都行
这条好像必须要从属性里修改不能通过赋值语句进行，因为一旦窗体打开则次属性成为只读属性

运行后窗体是可以改变的。用form1.width 和form1.height进行赋值就可以改变窗体大小。写入代码中！！

在开始设计的时候设置一下bodersyle属性为0或别的，你自己试试。

可以修改form的borderstyle属性。0-None，1-Fixed Single，3-Fixed Dialog和4-Fixed ToolWindow都不能修改窗体大小