vb6.0 控件适应窗口大小

本文详细介绍了如何在VB6.0中编写代码,使得控件能够适应窗口大小的变化,包括处理多控件情况及避免特定控件检查的方法。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

我们在编写vb6.0控件适应窗口大小时,往往使用以下方法:(按照窗体尺寸缩放比例自动调整控件的大小)

  窗体和控件的大小由窗体和控件的Width属性和Height属性确定。所以当用户界面设计完成之后,窗体及其内部的各控件的Width, Height属性便随之确定下来;从而窗体相对于每一个控件,它们的宽度之比、高度之比均被确定。如果窗体Forml内的一个文本框Text1的宽(即Text1的Width属性值)为3610,高度(即Text1的Height属性值)为1935;而窗体Form1的上述两个值分别为4890和3615,则它们的宽度之比和高度之比分别为:361014890、193513615。当用户在程序启动后调整了窗体的尺寸,窗体的宽度和高度将分别为Form1.ScaleWidth,Form1.ScaleHeight;此时应该按上述比例来调整文本框Textl的的高度和宽度值。即:

  (调整后的Text1的Width属性值)/( Form1.ScaleWidth)=3610/4890;

  (调整后的Text1的Height属性值)/(Form1.Scale-Height)=1935/3615;

  所以调整后的Text1的Width属性值=(3610/4890)* Form1.ScaleWidth;

  调整后的Text1的Height属性值=(1935/3615) * Form1.ScaleHeight;

  对于一般控件来说,应该有:

  调整后的控件的Width属性值=(控件原Width属性值/窗体原Width属性值)*窗体.ScaleWidth

调整后的控件的Height属性值=(控件原Height属性值/窗体值/窗体原Height属性值)*窗体.ScaleHeight

按照上述方法确定窗体缩放后控件Width和Height属性值,则当窗体尺寸被调整后,控件的大小将按比例得到相应的调整。


但是当遇到窗体中有多个控件,并且有的控件没有width等属性,如timer控件。则首先要进行多控件处理,然后加入相应代码避免某些控件检查。以一工程范例说明如下:

1、新建一vb6.0工程,随意加入几个控件,如下图所示:

2、标准模块声明写入(自定义类型):

Type cp
  wp As Single
  hp As Single
  tp As Single
  lp As Single
End Type

3、主窗口(Form1),添加如下代码:

Dim ap() As cp  '定义窗体数组
'定义窗体过程
Private Sub ai()
Dim i As Integer
On Error GoTo uerror   '跳过无width属性控件
For i = 0 To Controls.Count - 1
With ap(i)
.wp = Controls(i).Width / Form1.ScaleWidth
.hp = Controls(i).Height / Form1.ScaleHeight
.lp = Controls(i).Left / Form1.ScaleWidth
.tp = Controls(i).Top / Form1.ScaleHeight
End With
Next i
Exit Sub
uerror:
    Resume Next
End Sub
'窗体初始化
Private Sub Form_Load()
ReDim ap(0 To Controls.Count - 1)
ai
End Sub
'窗体尺寸改变时
Private Sub Form_Resize()
Dim i As Integer
On Error GoTo uerror
For i = 0 To Controls.Count - 1
Controls(i).Move ap(i).lp * Form1.ScaleWidth, ap(i).tp * Form1.ScaleHeight, ap(i).wp * Form1.ScaleWidth, ap(i).hp * Form1.ScaleHeight
Next i
Exit Sub
uerror:
    Resume Next
End Sub

4、点击运行,拖动窗体改变尺寸,既可以看到控件适应窗体大小改变。


作用是在运行时刻自动对其它可视控件进行动态的位置/大小调整.这个控件实现的功能和VB.Net的窗体布局功能类似.比如你的窗体中有一个DBGrid控件,占了很大一部分,下边有几个按钮 现在需要窗体的大小可调,以使DBGrid可以看到更多的数据,这样的话,窗体上的控件就都需要调整,不然只有窗体变化,而控件不动的话就达不到预期效果,而且很难看.原来的方式是在窗口的Resize事件中添加调整控件大小/位置的代码,这样做的话比较麻烦,要自己手动去计算宽度/偏移,然后将这些代码写死在程序中,以后增加控件或者调整布局都需要重新计算/修改代码,不利于维护. 有了这个控件就方便多了,Resize事件中一行代码不用写,只需将这个控件拖动到窗体上,然后设置被调整控件的Tag属性,在运行时刻就可以进行调整了.VB6ResizerLib 2.0 版本新增分隔条控件,运行时可动态调整.同时修改了1.x版本中控件在退出程序前不会被释放及其导致的一系列问题.VB6ResizerLib 2.2 修正了2.0版本中使用DesignTimeInit模式的时候可能会导致VB崩溃的问题.使用说明:启动VB程序,打开一个工程.按Ctrl+T打开部件对话框.找到并选中VB6ResizerLib后点击确定.将工具箱中新出现的VB6Resizer控件拖动到窗体上即可.被调整控件需要使用Tag属性定义调整规则,方式如下:H-调整控件自身高度.W-调整空间自身宽度.T-调整控件与容器顶部距离.L-调整控件与容器左侧距离.例如―HW‖表示自动调整高度和宽度.TL的优先级高于HW,如果Tag同时包含T和H,则仅T有效.
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值