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

一劳永逸让VB自动改变控件大小

HTML文档下载 WORD文档下载 PDF文档下载
一劳永逸让VB自动改变控件大小


深圳市东门茂业百货11楼 邓 勇
 当窗体大小改变时,如何动态的改变控件的大小是许多VB 程序员头痛的事。有的人设置窗体Resizable 但却不改变控件的大小;有的人则根据控件的绝对位置与窗口大小相加减的办法来重新定位控件与改变大小,这种办法比较繁琐,且不可重用;当然也有人则限定窗口干脆不让改变。有没有一种简便易行的办法?答案是肯定的,下面给出一个一劳永逸的办法,源程序如下:

Option Explicit
Private FormOldWidth As Long
  '保存窗体的原始宽度
Private FormOldHeight As Long
  '保存窗体的原始高度

'在调用ResizeForm前先调用本函数
Public Sub ResizeInit(FormName As Form)
  Dim Obj As Control
  FormOldWidth = FormName.ScaleWidth
  FormOldHeight = FormName.ScaleHeight
  On Error Resume Next
  For Each Obj In FormName
   Obj.Tag = Obj.Left & " " & Obj.Top & " " _
      & Obj.Width & " " & Obj.Height & " "
  Next Obj
  On Error GoTo 0
End Sub

'按比例改变表单内各元件的大小,在调用ReSizeForm前先调用ReSizeInit函数
Public Sub ResizeForm(FormName As Form)
  Dim Pos(4) As Double
  Dim i As Long, TempPos As Long, StartPos As Long
  Dim Obj As Control
  Dim ScaleX As Double, ScaleY As Double

  ScaleX = FormName.ScaleWidth / FormOldWidth
  '保存窗体宽度缩放比例
  ScaleY = FormName.ScaleHeight / FormOldHeight
  '保存窗体高度缩放比例
  On Error Resume Next
  For Each Obj In FormName
   StartPos = 1
   For i = 0 To 4
   '读取控件的原始位置与大小

    TempPos = InStr(StartPos, Obj.Tag, " ", vbTextCompare)
    If TempPos > 0 Then
     Pos(i) = Mid(Obj.Tag, StartPos, TempPos - StartPos)
     StartPos = TempPos + 1
    Else
     Pos(i) = 0
    End If
    '根据控件的原始位置及窗体改变大小的比例对控件重新定位与改变大小
    Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, _
        Pos(2) * ScaleX, Pos(3) * ScaleY
   Next i
  Next Obj
  On Error GoTo 0
End Sub

Private Sub Form_Load()
  Call ResizeInit(Me) '在程序装入时必须加入
End Sub

Private Sub Form_Resize()
  Call ResizeForm(Me) '确保窗体改变时控件随之改变
End Sub

  本例中给出了二个函数: ResizeInit 和 ResizeForm ,在调用 ResizeForm 之前必须先调用 ResizeInit。你可以将本程序拷到窗体代码段里,然后在窗体里加入任意控件即可进行测试。

TextView多行本文滚动轻松实现 获取和设置ListView的选择项 EditText中显示隐藏Android输入法窗口 自定义ListView行间的分割线 Android程序完全退出的三种方法 WebView使用技巧和介绍 EditText仅允许特定类型数据输入 自定义Android应用的访问权限 android.text.format文件大小和日期解析类 Android Rootkit相关揭秘 androidmanifest.xml高级属性解析 根据packageName构造Context SQLite操作,还是raw方法更简洁高效 Android开发基础YesNo对话框构造代码 Android代码性能优化技巧 Android开发注意点 Part One onSaveInstanceState和onRestoreInstanceState的用处 Android基础概念Context的作用 在Android的Notification中显示进度条 Android跨进程数据通讯-剪切板Clipboard ConditionVariable Android线程同步 Android软件开发方向指导 ArrayList LinkedList Set HashMap介绍 PermissionInfo Android权限枚举方法 Android上HTTP协议通讯状态获取 Android开发需要自己完善的类库总结 Android的ListView控件滚动时背景问题 GestureDetector手势识别类 - 进阶篇 MenuInflater Android菜单从xml创建方法 EditText输入提示你知道吗? Android布局Java代码构造法 怎么比较两个LPTSTR字符串啊??? 语句“rs.Open sql,conn,1,1”中后边的两个数字参数是何意思? 如何获取datawindow中文本框内容? 请教公司大院网络系统设计方案要怎写?会遇到什么问题? 关于clientdataset的返回值问题 关于报表打印的问题!火急。。 这个世界上有多少C/C++程序员? 关于ARP广播域的问题????????????????、 请问什么服务器支持global.jsa 安装oracle数据库出错!!!!!!!!!!!! 如何在对话框的OnPaint()函数中得到该对话框的窗口大小? 一个看似简单却很棘手的问题,不得不请教各位。。。 哪里有将rm文件转换成avi或者mpg格式的软件? 关于ARP广播域的问题?????????????? 请问,,怎么设定mshflexgrid的属性,使其各列的宽度与数据源字段的宽度一致 请问这几个对象是否代表同一个对象? 菜鸟问题:如何跟随鼠标拉出一虚线矩形框?回复就有分! 高分寻Authorware v6.0 注册码 在数据窗口中有“部门”和“员工”两个列,分别采用各自的下拉数据窗口显示。如何使得“部门”改变时,“员工”显示与其对应的人员而不是“员工”表中所有人员。 怎样安装UNIX? 灌水加求救…… T-SQL中SELECT句中可不可以有存储过程。。。。。。。。这样为什么不行呢?(100分酬谢) MS SQL SERVER 有谁知道型号为CDU111-NE 的SONY光驱是多少速的吗? 谁对RTTTL格式文件了解,怎么把它转换成可以发送的二进制格式? 关于ORACLE存贮过程的迷惑,请各位大侠解惑! 请问如何向ActiveX控件发送一个自定义数据结构的指针 有没有好一点的ASP上传组件?? asp调用dll失败!!! 为何用了2个以上的单元有调用窗体就出现 access violat at address XXXXX in module的错误 请问有没有一些用来专门用作软件测试的测试软件? EPSONSTYLUS C20SX 型号的打印机支持NT4吗? 请问哪里有linux操作系统的源代码下载?谢谢 哪几种服务器支持global.jsa 关于数据绑定控件的问题。 关于TIFF文件的处理 DLL动态调用的问题,应注意些什么? 有关错误提示问题的文件存放在哪里呀 vf怎样求2个日期类型的差值?象sqlserver的datediff一样。 一个程控交换问题。 请教各位高手,如何在程序中模拟鼠标点击行为,大大加分!!!!!!!!!!!!!!!! 关于一个消息参数的麻烦………………求救高手! 我在微软的网站上下载了一个DCOM的例子,但不能在两台机器上运行? chinajordan(超飞人)请进!!!!!!!!!!!!!!!!!!!! 如果你是sql语句的高手,请看 请问,有谁知道上海华冠电子设备有限公司怎么样的,谢谢! 怎么把一个控件的坐标转换为它的容器坐标!? Canon4650打印测试正常,软件打印预览正常,打出的字横向压缩50%,挤在左边,右为空。 几個很實際也很有用的數据庫問題,請高手指點.(在線等待!) 求教 三千 以及各位Oracle高手。我该做些什么? 救命啊!怎么才能取到她的路径啊??急!!!!!!!!!!! 新铅畜电池加入电解液为什么相对密度会下降啊? 在实验室把100克溶质质量分数为百分之九十八的浓硫酸稀释成百分之五的稀硫酸,需用量筒量取————毫升的蒸馏水,稀释时需用的仪器有烧杯和————. 如何用密度为1.84g/cm3,质量分数为98%的浓硫酸,配制密度为1.14g/cm3、质量分数为20%的稀硫酸400ml 保温防火岩棉和防火岩棉一样吗 these 能修饰不可数名词吗?this呢? 努力 动词还是名词“努力”是动词还是名词?我需要专业的解释,猜的不要. 防火岩棉 密度120和80的混在了一起 怎么区分出来120的 只有两包 堆在里80的里面 不称重的话 怎么把它们找出来 this、those、that、these可以修饰不可数名词吗 娱乐是动词还是名词? fruit和food是可数名词还是不可数名词,后面要加S吗?There are many fruit and food.fruit和food在这个句子里是可数名词还是不可数名词,后面都要加S吗? this that可不可以修饰不可数名词 “交流”是名词和还是动词 铅酸蓄电池电解液要加多少 this sort of..可以修饰不可数名词吗this kind of 、 this type of 、this sort of 这三个都分别可以修饰不可数名词吗? 现有18.4mol/L的浓硫酸,已知其密度为1.84g/mL,则该浓硫酸溶液中溶质的质量分数为多少? 由于长江上游植被受到破坏,造成水土严重流失,河水中的泥沙含量增加,使河水的密度( ) ,河水对堤坝的压强( )由于长江上游植被受到破坏,造成水土严重流失,河水中的泥沙含量增加,使河水的 船用启动铅酸蓄电池 有单格电解液密度非常低,不到1.1.是怎么回事.什么原因导致的?怎么解决. this/these后面可以接不可数名词吗> 外墙保温用的玻璃丝棉板,容重应该用多大的?优缺点有哪些?外墙用这么低的会不会脱棉啊?现在的玻璃棉有憎水的,效果好不好? 铅酸蓄电池电解液详细的配制方法?如果用一斤密度为1.5的硫酸,需要加入多少(重)的水.密度才能降到1.28? 请问知道岩棉板的长度1000mm宽度630mm厚度50mm容重100KG每立方,怎么算每块的重量?及每吨合多少方?请问知道岩棉板的长度1000mm宽度630mm厚度50mm容重100KG每立方,怎么算每块的重量?及每吨合多少方? salad,ice cream在什么情况下是可数名词,什么情况下是不可数名词啊比如:我有几个冰激凌是可属还是不可数? 我有几盘沙拉是可属还是不可数? 提问时:Do you like icecream 还是icecreams? 怎么样计算建筑保温层的厚度 岩棉板 如何计算每立方价钱.如何计算每包价钱.如何计算每平方价钱. 如果配制汽车用铅蓄电池中溶质质量分数为30%的稀硫酸500g 需要溶质质量分数为98%【密度为1.84g\cm】的浓硫酸多少毫升? 谁知道屋顶保温层厚度该如何计算? 岩棉板的立方怎么计算呢?每吨5000元,厚度5公分,容重40K,有多少立方、每立方又是多少钱,怎么计算呢? 我急需啊!明天就要用!麻烦了解决了我会再加分的! 汽车、电机车一般要使用铅酸蓄电池.某铅酸蓄电池用的酸溶液是溶质质量分数为30%的稀硫酸,先用1L溶质质量为98%的浓硫酸(密度为1.84g/cm3 保温层厚度怎么计算 说的详细点 有公式吗、‘?就是建筑的外墙的保温 配置1000毫升溶质质量分数为10%的稀硫酸,需要溶质质量分数为98%的浓硫酸多少毫升?同时需要多少克水?具体一点,小弟在此谢过各位大哥大姐们了 请问保温棉是玻璃纤维棉吗,掉身上很痒的那种? 计算保温层厚度相关数学问题D2LN(D2/D1)=0.277514求D2D2=D1+1 稀释质量分数为98%(密度1.84g\ml)的浓硫酸配制500g质量分数为20%的稀硫酸,稀释时需要浓硫酸和水的体积各为多少毫升?(水密度1g|\cm*3,结果保留一位小数) 岩棉,玻璃丝棉,玻璃纤维棉 是不是都可以用做保温和吸音材料? 1.dictionary 2.key 3.baseball 4.photo 5.bag 6.banana 7.tomato 8.broccoli 9.pear 10.chicken 哪些是可数名词?哪些是不可数名词?11.my sister likes (salad).对打括号的提问.12.i llike french fries.把主语换成he改写句子 13. 容重是什么意思?快!快!快! 英语翻译Compressed packing with PP.16 batts/pack 430mm wide. 油管路中弯头和阀门处的保温体积如何计算,如DN125弯头,150mm厚的岩棉保温,如何计算该处的保温材料体积和外面包的铁皮的面积,急等~ 从地下挖出来的土体的土容重是什么意思? 防火岩棉板容重偏差允许是多少?有国家规定吗有规范吗 汽车,电动车一般使用铅酸蓄电池,某铅酸蓄电池用的是28%的稀硫酸,现用1.0KG98%的浓硫酸配制该稀硫酸,下列说法正确的是:A.28%的稀硫酸中溶质与溶剂的质量比为28:100 B.用1.0kg98%的浓硫酸课 "broccoli ice cream"是什么意思 ice cream ,salad作为可数名词时的复数是怎样的 broccoli是可数名词吗 已知某土土颗粒容重Rs=26.5kn/m3.含水量w=23%,土的容重r=18.47kn/m3,求该土饱和重度及饱和度.设总体积为1,总重量为18.47Kn 这个是已知的土粒重量为:15.02KN 水的重量为:3.45KN 这个土粒重量和水重 图纸上只写屋面保温材料用5.5厚硬质岩棉板,请问该用多少容重的,需不需要憎水性的岩棉板. 问一下岩棉保温板和泡沫玻璃保温板各有什么优点?价位大约是多少?一般的民用建筑用这两种会不会是大材小用?如果需要的话可不可以向我推荐几家比较好的厂家?如果是外地的要货通过物流 现有一容重为1.2g/cm3的紫色土,起始重量含水量为10%,田间持水量为30%,要使30cm土壤含水量达到田间持水量的80%,需要灌水多少方(方/亩). 岩棉板用在上人屋面上,压缩强度需要达到多少,以及憎水率 岩棉保温板保温板具体定义 Do they like______?Yes,they do.A.broccoli B.pear C.hamburger D.strawberryDo they like______?Yes,they do.A.broccoli B.pear C.hamburger D.strawberryI like_____but I don't like_______.a.broccoli;tomato b.broccolis;tomato c.broccoli;tomatoes d.broccolis; 蓄电池在充电时电解液密度如何变化 岩棉做保温板有什么好处? 关于砼容重的问题请解释下容重与平常所说的密度有什么区别.再者例如同为标号C30的两个砼 ,但两者所采用的容重不一样 若一个为2450 另个位2430 请问这两个砼有什么区别?只是质量不同吗,在 汽车蓄电池电解液密度降低了有什么不好 在实验室把100克溶质质量分数为98%的浓硫酸稀释成5%的稀硫酸,需要用量筒量取多少毫升的蒸馏水! eat的名词是什么,名词是否可数? 25摄氏度的铅酸蓄电池电解液的密度是1.28,那么温度降到10摄氏度的话电解液的密度还会增加吗? 聚氨酯保温板 岩棉保温板哪个好,对身体有害吗? 砼的容重是多少?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn