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 ๋ณ€์ˆ˜๊ฐ€ ์ง€์ •๋˜์ง€ ์•Š์•˜์Šต๋‹ˆ๋‹ค.

Please support us!