form的border style 设为2-Sizable
form的maxbutton 设为falseOption Explicit
Dim fWidth, fHeight As IntegerPrivate Sub Form_Load()
fWidth = Me.width
fHeight = Me.height
End SubPrivate Sub Form_Resize()
On Error Resume Next
Me.width = fWidth
Me.height = fHeight
End Sub
form的maxbutton 设为falseOption Explicit
Dim fWidth, fHeight As IntegerPrivate Sub Form_Load()
fWidth = Me.width
fHeight = Me.height
End SubPrivate Sub Form_Resize()
On Error Resume Next
Me.width = fWidth
Me.height = fHeight
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货