请教VB高手一个缩小控件的问题

来源：百度知道 编辑：UC知道 时间：2024/06/06 12:02:40
在窗体里有很多控件，我想用个命令按纽点一下后，所有的控件都能变为原来的0.8倍，怎么写这句程序呢？
一楼说的我也知道，能不能不一个一个的写，把所有的控件用一个写呢。
二楼说的也很好，不过控件有标签，菜单，对话框，定时器等，我按二楼的运行，结果说对象不支持该属性或方法。这怎么改呢？

不难
楼上可以
但是!
我这里有一个更加简单的方法来解决这个问题
Private Sub Command1_click()
Dim a As Control
For Each a In Form1.Controls
a.Height = a.Height * 0.8
a.Width = a.Width * 0.8
Next
End Sub
这样是不是就OK了

有两种方法
第一种--判断对象的类型
但是做起来比较麻烦
你可以让程序忽略错误运行

第二种--忽略错误

Private Sub Command1_click()
On Error Resume Next
Dim a As Control
For Each a In Form1.Controls
a.Height = a.Height * 0.8
a.Width = a.Width * 0.8
Next
End Sub

以下代码或思路应写进 你这个 按钮的 command_click()过程里.

因为要缩小控件,而控件大小是由 他们的width 和Height决定的。以某标签为例

……
label1.width=label1.width*0.8
label1.height=label1.height*0.8

……

控件数组可以,但不是控件数组的话好像只能一句一句写吧?让我想想...