索尼新款运动相机:vb中怎样禁止把窗体拖大拖小?
来源:百度文库 编辑:查人人中国名人网 时间:2024/07/07 08:58:20
.
这样也可:
在窗体模块里定义两个公共变量:
dim meh as integer
dim mew as integer
在form_load()中添加:
meh=me.height
mew = me.width
然后窗体的resize事件如下:
Private Sub Form_Resize()
On Error GoTo minnnn
Me.Height = meh
Me.Width = mew
Exit Sub
minnnn:
End Sub
一种方法是窗体borderstyle属性设为3
另一种在窗替的RESIZE事件里加入以下代码
on error resume next
If Me.WindowState = vbMinimized Then Exit Sub
If Me.Width <>12000 Then Me.Width = 12000
If Me.Height <> 9000 Then Me.Height = 9000
12000和9000根据自己的需要改即可
borderstyle属性设为3
borderstyle属性设为3