FindObject Function
æååããŠãĄãŧãŋãŧãĢãĒãã¸ã§ã¯ãåãæåŽãããã¨ã§ãåŽčĄæãĢ芲åŊãĒãã¸ã§ã¯ãã¸ãĸã¯ãģãšããžãã
ãã¨ãã°ãä¸č¨ãŽãŗããŗããčĄãŖãã¨ããžãã
MyObj.Prop1.Command = 5
ããŽåĻįã¯ãä¸č¨ãŽãŗããŗããããã¯ãĢ寞åŋããžãã
Dim ObjVar as Object
Dim ObjProp as Object
ObjName As String = "MyObj"
ObjVar = FindObject( ObjName As String )
PropName As String = "Prop1"
ObjProp = FindPropertyObject( ObjVar, PropName As String )
ObjProp.Command = 5
ãããåŠį¨ããĻãåŽčĄæãĢååãåįãĢåŽįžŠã§ããžãããã¨ãã°ã
"TextEdit1" to "TextEdit5" in a loop to create five control names.
æŦĄãåį §ããĻãã ããīŧFindPropertyObject
æ§æ:
FindObject( ObjName As String )
ããŠãĄãŧãŋãŧ:
ObjName: åŽčĄæãĢãĸã¯ãģãšãããĒãã¸ã§ã¯ãåãæåŽããæååã