关于获取窗体中所有控件的问题
各位大侠请看下面的代码:
运行时显示"obj不支持此属性"的错误
Dim nOrgWidth As Integer
Dim nOrgHeight As Integer
Dim Obj As Control
PWB= 2
PWH= 3
For Each Obj In frmSplash.Controls
Obj.width = Obj.width * PWB
Obj.height = Obj.height * PWB
Next Obj
问题点数：0、回复次数：4Top
1 楼DengXingJie（杰西）回复于 2005-06-04 12:52:27 得分 0
測試沒問題
不知你的窗體上有些什麼樣的控件Top
2 楼34539890（听海）回复于 2005-06-04 13:06:37 得分 0
肯定不可以的了，如果有对话框控件呢Top
3 楼DengXingJie（杰西）回复于 2005-06-06 12:46:40 得分 0
確實如樓上所言
如果窗體中包含一些不可改變大小的控件就會出錯
如：Timer1及樓上說的對話框控件等等
在程式中加一句：On Error Resume Next
也許能解決問題Top
4 楼hongchun310（）回复于 2005-06-06 21:52:02 得分 0
错误的问题解决了,又有一个问题问大侠,就是obj获得的是label的caption,不是控件名称,所以改不了控件大小,谢谢Top
