vb 如何使一个窗体的大小无法调节

来源：百度知道 编辑：UC知道 时间：2024/05/05 07:57:46
不设置borderstyle

Dim a, b

Private Sub Form_Load()
a = Me.Height
b = Me.Width
End Sub

Private Sub Form_Resize()
Me.Height = a
Me.Width = b
End Sub

Prirate Sub Form_Resize()
Me.Heigh = 你想要的窗体高度数值
Me.Width = 你想要的窗体宽度数值
End Sub

Dim a, b

Private Sub Form_Load()
a = Me.Height
b = Me.Width
End Sub

Private Sub Form_Resize()
Me.Height = a
Me.Width = b
End Sub
'------------------------------------------------

Prirate Sub Form_Resize()
Me.Heigh = 你想要的窗体高度数值
Me.Width = 你想要的窗体宽度数值
End Sub

BorderStyle属性设为1、3、4、0都可以