大家好像说的有点大了,好像很简单的,不知道是不是我理解错楼主的意思了:
首先为了防止用户最大化窗体,可以将最大化按钮设置为不可用。然后:
比如你想让窗体的高为5000,窗体的宽为7000,并想让用户不可更改大小。你可以如下设置:
Private Sub Form_Resize()
On Error GoTo errcode
Me.Height = 5000
Me.Width = 7000
errcode:
End Sub
这种方法有一个毛病,就是你必须在设计窗体的时候,从窗体的属性里抄出height和width这两个属性值写进resize过程中,但是这个代码可以用在任意的窗体里,比如说mdiform下面的子窗体里也能用。如果不是子窗体,那就好办了。
在窗体里定义两个窗体级别的全局变量:dim h as integer : dim w as integer,这两个变量用于存储窗体的高和宽,然后在窗体的load事件里加上这两句:h = me.height : w = me.width,这样在窗体运行的时候就将窗体的尺寸属性传到了全局变量h和w中。
然后在窗体的resize里写上:
Private Sub Form_Resize()
On Error GoTo errcode
Me.Height = h
Me.Width = w
errcode:
End Sub,如果窗体不是子窗体,那么这种方法最有效,也最省事,在设计的时候可以任意调整窗体的尺寸,而运行的时候就达到了楼主想要的效果。
这样用户既不能最大化窗体,有保证了窗体可以最小化,能关闭,能有标题栏和窗体菜单,而且还不能调整大小。
虚拟社会,网络成就梦想。