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 འགྱུར་ཚད་མཚན་འཇོག་མ་བྱེད་པ་12 འགྱུར་ཚད་མཚན་འཇོག་མ་བྱེད་པ་12 འགྱུར་ཚད་མཚན་འཇོག་མ་བྱེད་པ་12 འགྱུར་ཚད་མཚན་འཇོག་མ་བྱེད་པ་

14 ནུས་མེད་ཀྱི་ཞུགས་གྲངས་14 ནུས་མེད་ཀྱི་ཞུགས་གྲངས་

52 ནོར་བའི་ཡི་ཆའི་མིང་ངམ་ཨང་སྒྲིག་

57 སྒྲིག་ཆས་ལ་ I/O ནོར་འཁྲུལ་ཐོན་པ་57 སྒྲིག་ཆས་ལ་ I/O ནོར་འཁྲུལ་ཐོན་པ་