展开全部
有两种方法实现窗体固定大小
1)设置窗体的BorderStyle属性。如下图。将属性设置为图中红色框出的任意一个值即可实现窗体大小固定不变。
2)编程控制
如果将Form的BorderStyle设置为 2 - Sizeable,通过编程也可以实现窗体固定大小
Option Explicit
Dim frmWidth
Dim frmHeight
Private Sub Form_Load()
'窗体启动时,记录下窗体的宽度和高度
frmWidth = Me.Width
frmHeight = Me.Height
End Sub
Private Sub Form_Resize()
'用户改变窗体大小时,强制窗体大小固定为原始尺寸
'从而达到窗体大小固定目的!
On Error Resume Next
Me.Width = frmWidth
Me.Height = frmHeight
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询