属性的问题

[lokey111]

Dim ctr As Control
Dim X2 as string
Dim X1 as string
X2="caption"
X1="国产"

For Each ctr In formName.Controls
If (ctr.X2= X1) Then **** 注
.......
End If
Next
***这个地方出现不支持该属性,但如果ctr.caption=x1这样写又是正确的，我想问，怎样才可能解决这个问题呢？因为我想写个函数，实现X2可以为"name","caption"的属性
盼望指教

[tmran]

ctr.X2= X1

改为：

temp = "ctr." & X2

temp = X1

试试看吧

[lsftest]

楼主这样子是不行的。。。
楼主的要求可以用ScriptControl来解决：


在部件中添加ms script control 1.0
在窗体中添加一个ms script control，一个label，两个text，两个command。。。

程序：
Option Explicit

Private Sub Command1_Click()
ScriptControl1.Language = "VBScript"
ScriptControl1.AddCode (Text1.Text)
ScriptControl1.Run ("Test")
End Sub

Private Sub Command2_Click()
ScriptControl1.Language = "VBScript"
ScriptControl1.ExecuteStatement (Text2.Text)
End Sub

Private Sub Form_Load()
'Expose the form as frmMainWindow
ScriptControl1.AddObject "frmMainWindow", Me
Text1 = "sub Test()frmMainWindow.label1=""hello"" end sub"
Text2 = "frmMainWindow.BACKCOLOR=VBRED"
End Sub