| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1864 人关注过本帖
标题:[求助]如何保持窗口大小并能使用最小化,关闭按扭
只看楼主 加入收藏
asanysoft
Rank: 1
等 级:新手上路
帖 子:36
专家分:7
注 册:2006-12-24
收藏
得分:0 

大家好像说的有点大了,好像很简单的,不知道是不是我理解错楼主的意思了:
首先为了防止用户最大化窗体,可以将最大化按钮设置为不可用。然后:
比如你想让窗体的高为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,如果窗体不是子窗体,那么这种方法最有效,也最省事,在设计的时候可以任意调整窗体的尺寸,而运行的时候就达到了楼主想要的效果。
这样用户既不能最大化窗体,有保证了窗体可以最小化,能关闭,能有标题栏和窗体菜单,而且还不能调整大小。


虚拟社会,网络成就梦想。
2007-08-12 13:50
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
用了容错 =。=

利用好Form.Tag属性也不错哦

这样子会闪的吧?就是拖动改变窗体大小的时候会闪……

2007-08-12 13:56
快速回复:[求助]如何保持窗口大小并能使用最小化,关闭按扭
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.064017 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved