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: åŽŸčĄŒæ™‚ãĢã‚ĸクã‚ģ゚するã‚Ēブジェクト名を指厚する文字列。

Error codes:

5 į„ĄåŠšãĒãƒ—ãƒ­ã‚ˇãƒŧã‚¸ãƒŖãƒŧå‘ŧãŗå‡ēしです

12 変数がæœĒåŽšįžŠã§ã™