FindPropertyObject Function
ęååćć©ć”ć¼ćæć¼ć«ćŖććøć§ćÆćåćęå®ććććØć§ćå®č”ęć«č©²å½ćŖććøć§ćÆććøć¢ćÆć»ć¹ćć¾ćć
ććØćć°ćäøčØć®ć³ćć³ććč”ć£ććØćć¾ćć
ćć®å¦ēćÆćäøčØć®ć³ćć³ćććććÆć«åƾåæćć¾ćć
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.
ꬔćåē
§ćć¦ćć ććļ¼FindObject
ę§ę:
FindPropertyObject( ObjVar, PropName As String )
ćć©ć”ć¼ćæć¼:
ObjVar: å®č”ęć«åēć«å®ē¾©ćććŖććøć§ćÆćå¤ę°ć
PropName: å®č”ęć«ć¢ćÆć»ć¹ććå±ę§åćęå®ććęååć
5 ē”å¹ćŖććć·ć¼ćøć£ć¼å¼ć³åŗćć§ć
12 å¤ę°ćęŖå®ē¾©ć§ć
14 ē”å¹ćŖćć©ć”ć¼ćæć¼ć§ć
52 ćć”ć¤ć«åć¾ććÆēŖå·ćäøę£ć§ć
57 ććć¤ć¹I/OćØć©ć¼ć§ć