说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在vb中让控件大小和位置随着表单的大小成比例变化的方法

HTML文档下载 WORD文档下载 PDF文档下载
在vb中让控件大小和位置随着表单的大小成比例变化的方法
作者:中国农业大学图书馆
洪重阳
---- vb的可视化编程方法使得windows的一般编程变得简单直观。尤其是程序界面设计,只需用鼠标将相应的控件(按钮、图框、表格等)拖放到表单(form)上直接调整其位置和大小,即可设计出漂亮实用的界面。但在程序运行期间,如果改变表单的大小,表单上控件的大小和位置并非成比例地发生相应变化,导致界面呈现难看的不均匀现象。

---- 上述现象和问题,可在表单Form_Resize()过程编程,通过定义表单的ScaleMode属性和表单中控件的Height、Width、Top、Left属性来解决这个问题。具体实现方法如下:

用表单的Height、Width、Top、Left属性设计表单在屏幕中的位置和大小。将表单中的控件大小和位置调整好,直到得到满意的界面。

选择表单的ScaleMode属性为user;设定ScaleHeight、ScaleWidth的值,如可将这俩个值设定为100或1000或其他的数值,也可使这俩个值不等,视个人的习惯而定,这里我们将其设为1000;使ScaleTop=0、ScaleLeft=0。
---- ScaleMode属性决定了表单的ScaleHeight、ScaleWidth、ScaleTop、ScaleLeft属性值和表单中控件的Height、Width、Top、Left属性值的度量单位(用户自定义、缇、点、像素、字符、英寸、毫米、厘米等)。一般使Scaletop和ScaleLeft等于零。ScaleHeight、ScaleWidth属性值表示以ScaleMode值为度量单位的表单的高和宽,它们的改变不会使表单的大小和位置发生变化。改变ScaleMode的值不会影响表单和表单中控件的位置和大小,只是表单的ScaleHeight、ScaleWidth属性值和表单中控件的Height、Width、Top、Left属性值要根据新的度量单位自动发生变化。由于表单的大小、表单中控件的位置和大小已经设定,除了"用户自定义"度量单位外,表单的ScaleHeight、ScaleWidth、ScaleTop、ScaleLeft属性值是一定的。只要手工改变表单的ScaleHeight、ScaleWidth、ScaleTop、ScaleLeft任一属性值,ScaleMode的值就变成了"用户自定义"。
---- 用户自定义ScaleHeight值表示将表单的高度等分了ScaleHeight等份,表单中控件的Height属性值是以表单高度等分了ScaleHeight等份的一份为单位。用户自定义ScaleWidth值表示将表单的宽度等分了ScaleWidth等份,表单中控件的Width属性值是以表单宽度等分了ScaleWidth等份的一份为单位。

---- 例如:有一个表单form1,form1中有一个控件Cammand1,Cammand1的位置和大小已经设计好

form1.ScaleMode=user
form1.Height=6800
form1.ScaleHeight=1000
这时Cammand1.Height的值是以6800/1000=6.8为单位的,
即为表单高度的千分之六点八为单位。

记下表单中每一个希望与表单大小变化而成比例变化的控件的Height、Width、Top、Left值。

用鼠标双击表单没有控件的地方,点出编程界面右上方的表单过程名表,选择Form_Resize过程,在Form_Resize过程编程如下:
Private Sub Form_Resize()
ScaleHeight = 1000
ScaleWidth = 1000
表单中控件名1.top=步骤3记下的值
表单中控件名1.Width=步骤3记下的值
表单中控件名1.Left=步骤3记下的值
表单中控件名2.Height=步骤3记下的值
表单中控件名2.top=步骤3记下的值
表单中控件名2.Width=步骤3记下的值
表单中控件名2.Left=步骤3记下的值
表单中控件名2.Height=步骤3记下的值
... ...
end sub

---- 总之, 通过以上4步就可实现让控件大小和位置随着表单的大小变化而成比例变化,从而解决界面因表单大小的改变而变得不均匀的问题。

隐藏和显示Windows的任务条-Delphi资料 隐藏桌面上的图标-Delphi资料 用DELPHI编制Windows95下的钩子函数 用Delphi的THML控件实现触摸屏的使用 用Delphi实现禁止用户关闭Window9X 用Delphi制作能够干净地删除自己的程序 用DELPHI 做一个简单的屏幕保护程序 用Enter键代替Tab键-Delphi资料 用修改文件时间的方法来加密文件-Delphi资料 用最原始的方法编制程序-Delphi资料 运用Delphi编写Windows NT中服务程序 在DELPHI编程中确定系统运行模式 在Delphi程序中调用控制面板设置功能 在DELPHI下读取与设置系统时钟 在Delphi中避免2000年问题的捷径 在Delphi中调用API函数 在Delphi中获取和修改文件的时间 在Delphi中控制扫描仪 在Delphi中实现对WIN9X应用程序使用权限的设置 在Delphi中实现对目录拷贝、删除和搬移的操作 在Delphi中使用自定义光标 在Delphi中用拼音首字符序列来实现检索功能。 在DELPHI中用线程排序 在Delphi中制作背景音乐 在Dephi中使用TStream读写数据的技巧-Delphi资料 在应用程序中跟踪MOUSE的坐标-Delphi资料 怎样建立回调函数-Delphi资料 怎样显示自定义鼠标光标(Cursor)-Delphi资料 找出消失的 Delphi 窗口 执行外部程序-Delphi资料 执行一程序并等待其结束-Delphi资料 共享源代码 头脑风暴:我想做个口语考试系统,请大家提提需求 怎么在Interbase中锁表? 打印求助!急啊。。。 各位高手,100分求教 请问用C#如何实现可以向任意边停靠(并非DockStyle.Fill)的窗口? 我用 clientdataset 增加一条记录后如何在相关的DBGrid中同步显示? asp.net中有自己带的treeview类吗?(在web 应用程序) 什么c语言编辑器好用,(除了turboc,vc外,)请问高手 帮忙看一下 奇怪,直接继承CDialog类竟然用不了它的默认构造函数(我是菜鸟,帮帮我) Kenel panic:No init found. Try passing init=optino to kernel. 好心人帮帮我好么?在线等。。 superdullwolf(超级大笨狼) 来接分!!!!!!!!!!!!!!! 我的机器是win2000,安装了vmware软件,在模拟win2000pro时检测到了usb硬盘。后来,重新启动计算机,usb硬盘再也不认了,出现了usb硬盘的 有什么办法可以禁止FLASH右键 我得到了Msg.LParam,并且知道它发过来的是一串字符,请问怎样将Msg.LParam转成字符串显示出来? windows socket 1.1的一个问题 这个查询怎么写? rzhou(海盗) 收分来 寻程序员,短期,欢迎加盟!!!!!---------熟悉j2me的!!!!面试合格,待遇为150/天 如何在ADO中设置SQL的字符集? fastreport合计问题????兄弟们指点指点啊!!!! 怎样提高DCOM的响应速度 如何用ASP 在函数/过程中建立全局变量 金刚般若波罗蜜经  陈天竺三藏真谛译  如是我闻。一时佛婆迦婆住舍卫国只陀树林给孤独园。与大比丘众千二百五十人俱。尔时世尊于日前 一个矩形件的排样下料问题,一批板料(长L,宽W),n种零件,每种零件宽度和数量分别为:li,wi,mi,求优化排样结果,恳请各位大侠帮忙!! 请教:关于treeview 读取SQL Server的numeric字段用什么函数? rzhou(海盗) 收分来 急救:“段落或字节不能超过64K”???在线等待 初级问题! rzhou(海盗) 收分来 大家好!!用java开发数据库!!请帮忙!! 排序问题! 1。对vcl库底层机制一些不明白的地方 可以写代码导入数据吗? 连接ORACLE数据库时候的错误提示 关于动态查询表为空时,怎样获取一个条件??最终调取一个提示框 菜鸟提问,向高手请教一个VB中SQL中的问题, 怎样显示局域网内的所有计算机 请问谁有用VMware设置好的solaris文件啊?或是那里可以下载啊??谢谢了~~ 帮帮小弟呀!!散分 在本地机遇到数据无法提交或读取的事,动网论坛的数据也无法读取,什么原因啊 寻程序员,短期,欢迎加盟!!!!!-------熟悉j2me的!!!!面试合格,待遇为150/天 关于Form的构造函数和OnLoad方法...... 请教Web Services的分布式创建和引用的问题?急!!!!! 在c#的WinForm中如何显示cdr文件,CorelDraw图片哪怕是8.0也行 在建立vc 工程的时候选择了生成hlp 文件。我把我的工程放到别的机器上的时候有如下的错误 怎么样得到游标中的数据的多少记录。 求解1000的阶乘 我女生要调到鄂儿多斯市去工作:希望能了解那边天气情况;什么时候天气会暖和起来;天气最热气温多少度温...我女生要调到鄂儿多斯市去工作:希望能了解那边天气情况;什么时候天气会暖和 物质在不同浓度的氧气中燃烧温度是否随氧气的浓度而变化 美国阿拉斯加冰河湾是个公园吗? 物理示波管原理中改变两方电压时图案会怎么变化,为什么会变化, 菓珍的英语怎么说今天心血来潮上网查了一下,发现比较强大的网络词典里都没有“菓珍”的英语单词!菓珍的英语单词,请告诉小弟啊! 列出方程就可以了 汉朝刘彻儿子有哪些, 谁知到冰饮的英文怎么说就是一种冰的饮料,求英文 列出方程式就可以了, 如何用古文来骂人,或者用古文来骂男的 塞纳河不结冰法语怎么说 一个直径24厘米空心柱小空横截面积为10平方毫米,压阀质量0.1千克的高压锅来煮饭,若大气压为10^5帕,求(1)高压锅内气体能达到的最大压强为多少?(2)经商品质量检测部门检测,次高压锅 如是一个男生,对你说个文言文? 什么是生态系统 鸽子怎么分公母最好分 蜗牛壳碎了怎么办 世界上最大的生态系统是甚么?答案是:是生物圈. 我想知道鸽子怎么分公母? 清朝皇太子住在哪里?东宫还是阿哥所? 鱼的上位口,下位口与鱼的生活水层有什么关系? 百事冰纯水 英文怎么说 清朝皇太子吃肉在上书房里四皇子吃肉说明要立他为皇太子,为什么. 不同品种的淡水鱼往往生活在不同深度的水层,因此比较经济的养鱼方式是混养.一座水库按1:2:3的比例放养鲤鱼、鲫鱼和鲢鱼.1. 如果一共放养鱼苗30000尾,那么其中放养鲢鱼多少尾?2. 放养的鲫 纯净水的英文译法!请问一下可不可以译成table_water? 介绍几部汉朝或者清朝的好看电视剧 不同种类的鱼能生活在一起吗? 雷雨在戏剧结构上有哪些特点 在30克水中通直流电,一段时间后,水的质量变为26.4克.问:参加反应的水的物质的量是多少mol?生成氧气的物质的量多少mol?(根据化学方程式列式计算) 各种观赏鱼 都生活在什么水层请教下 一般常见点的观赏鱼 都生活在什么水层! 能全的尽量全点 谢谢了!刚开始养鱼 准备多养几种 想搭配下我问的可能有点笼统了!我现在参考的有战船 , 纯水的英文怎么说? 我想了解汉朝和清朝的历史.推荐一本书.不要文言文类的,想要白话文的.史事要全要真.不想要明朝那些事那种文学类的.再想问一下,《那时汉朝》可读么? "中国期刊网"怎么翻译? 纯水的英文有多少种说法,请例出! 什么是相对隔水层 在同一直角坐标系中,函数y=-kx与y=k+x的图象大致应为()【 给我过程!】图将就点看- -先谢谢了 列出方程甲乙两队开展足球对抗赛,规定每对胜一场得3分,平一场得1分,负一场得0分,甲队与乙队共赛了10场,甲队保持了不败的记录,一共得了22分,甲队胜了多少场? 天气那么暖和,那么晴朗是单句吗 那个求微积分的题,为什么你先要对他们求偏导?这种题有什么要求? 列出方程:全部列出方程某商店出售一种100元的商品,有以下几种方案(1)、先提价10%,再降价10%(2)、先降价20%,再提价20%(3)、先提价15%,再降价15%(4)、先降价10%,在提价10% 试举例说明如何用一种或几种生态系统的基础理论知道环境保护活动 冷库2-8度是高温冷库?需化霜程序吗?不需为何蒸发器上结满霜? 鸽子要这样分公母 塞纳河左岸潮流向西 有什么含义吗? 左岸是什么意思? 辨 辩 辫 怎么编顺口溜?急用! 太阳光照射过水层,被水层吸收的比例是多少?这个比例是不是固定的?和水层的厚度有关系么?不过我是想知道一个笼统的比例,就是全部波长的太阳光,穿过一定厚度的水层之后,有多少被吸 瑞典冰旅馆英语怎么说?急,120分钟内回答 用辩.辫.瓣编顺口溜 不透水层中为什么没有水的浮力 如何冬泳?冬泳有益健康吗? 用辫 辩瓣 编一个顺口溜 (3/7)保护环境保护生命在尊重自然的基础上切实有力地保护生态系统的自组织能力达到经济发展与环境保护...(3/7)保护环境保护生命在尊重自然的基础上切实有力地保护生态系统的自组织能力 冬泳对身体有哪些不好的影响,冬泳应该注意什么? 求张家界国家森林公园英文介绍 有关井点降水的问题,想了解一下一般不透水层在地下多少米 冬泳的意义与作用 阿拉斯加冰河湾的英文名 不透水层是怎么回事,为什么水到地下一定深度后就不会下降了? 不要列方程哦, 阿拉斯加冰河湾 英语读法急 商务部谈第四次中欧经贸高层对话30余国领导人遭美监听 偏爱私人手机美电视台脱口秀节目“杀中国人言论”被墨西哥一糖果厂爆炸 1死20人失踪7米高阿根廷恐龙亮相新加坡 系亚洲首\"监听们\"丑闻 美国欠全世界一个新加坡华人青年从事旧货买卖 为环境保凯特王妃低胸礼服出席晚宴 展苗条身材日媒称4架中国军机同一天越过冲绳飞向英航空公司推出空姐半裸慈善日历新加坡法院首次执行中国大陆司法判决英王室公开最新四世同堂全家福{高清)稀世粉钻亮相 拍卖价预计可达6000新加坡向中国颁发电子团体签证福州旅游局官微骂记者 专家:官微亟需直击“机动-5号”实兵演习:势均力敌朝鲜完成军方人事布局 举行2万人连级人社部:机关事业单位将建职业年金海军三大舰队首次在西太平洋预定海区展杭州临安警方破获特大涉毒涉枪案 缴获德国高层代表团将赴美 跟进默克尔被窃“三根发丝”工艺的最新表达虎扑开跑训练营开营颈腰椎病缠身 或是“筋骨失衡”惹的祸又到一年凉茶季 茶中美女来助兴“嫣儿有些问题,我也答不上来”夏日,来做一个“茶美人”CTCC上海滩激战 福特本田现代大满花式足球上海站上演小组第二,对英格兰也许是好事“特训营还有铁砂掌、剃光头”本期导读浦东一女生出走两天后尸体被发现上海平行进口汽车拿到首张3C认证牙齿决定生活质量,缺牙修复应趁早互联网SUV荣威RX5可认筹“特权”崔龙洙出任江苏苏宁主教练央行:未来允许优质国外企业在境内发股《2016中国好声音》面临改名合约将到期,卡希尔还会留在中超吗客户体验,我们只有一个标准综合监管平台要实现信息共享
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘