FindPropertyObject 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.

ę¬”ć‚‚å‚ē…§ć—ć¦ćć ć•ć„ļ¼šFindObject

꧋ꖇ:

FindPropertyObject( ObjVar, PropName As String )

ćƒ‘ćƒ©ćƒ”ćƒ¼ć‚æćƒ¼:

ObjVar: å®Ÿč”Œę™‚ć«å‹•ēš„ć«å®šē¾©ć™ć‚‹ć‚Ŗćƒ–ć‚øć‚§ć‚Æćƒˆå¤‰ę•°ć€‚

PropName: å®Ÿč”Œę™‚ć«ć‚¢ć‚Æć‚»ć‚¹ć™ć‚‹å±žę€§åć‚’ęŒ‡å®šć™ć‚‹ę–‡å­—åˆ—ć€‚

Error codes:

5 ē„”åŠ¹ćŖćƒ—ćƒ­ć‚·ćƒ¼ć‚øćƒ£ćƒ¼å‘¼ć³å‡ŗć—ć§ć™

12 å¤‰ę•°ćŒęœŖå®šē¾©ć§ć™

14 ē„”åŠ¹ćŖćƒ‘ćƒ©ćƒ”ćƒ¼ć‚æćƒ¼ć§ć™

52 ćƒ•ć‚”ć‚¤ćƒ«åć¾ćŸćÆē•Ŗå·ćŒäøę­£ć§ć™

57 ćƒ‡ćƒć‚¤ć‚¹I/Oć‚Øćƒ©ćƒ¼ć§ć™