IsUnoStruct Function

ཨའི་ཨེསི་ཡུ་ཨེན་ཨོ་གཞི་བཀོད( Uno type )

Sub Main

Dim bIsStruct

ཞབས་ཏོག་འཕྲལ་མྱུར་ སྦེ།

Dim oSimpleFileAccess

oSimpleFileAccess = CreateUnoService( "com.sun.star.ucb.SimpleFileAccess" )

bIsStruct = IsUnoStruct( oSimpleFileAccess )

འཕྲིན་དོན་སྒྲོམ་བི་ཨའི་ཨེསི་གཞི་བཀོད་  ' ཨོ་འཇམ་སམ་ཡིག་སྣོད་འཛུ་སྤྱོད་འབད་ནི་དེ་མེད་གཞི་དེ་ཨིནམ་ལས་རྫུན་མ་བྐྲམ་བཏོན་འབདཝ་ཨིན།

རྒྱུ་དངོས་གཞི་བཀོད་ཅིག་འཕྲལ་མྱུར་སྦེ།

Dim aProperty As New com.sun.star.beans.Property

bIsStruct = IsUnoStruct( aProperty )

འཕྲིན་དོན་སྒྲོམ་བི་ཨའི་ཨེསི་གཞི་བཀོད་ ' ཨེ་རྒྱུ་དངོས་པོ་དེ་གཞི་བཀོད་ཨིནམ་ལས་བདེན་པ་བཀྲམ་བཏོན་འབདཝ་་ཨིན།

bIsStruct = IsUnoStruct( 42 )

འཕྲིན་དོན་སྒྲོམ་བི་ཨའི་ཨེསི་གཞི་བཀོད་ ' ༤༢ དེ་མེན་གཞི་བཀོད་ཨིནམ་ལས་རྫུན་མ་བཀྲམ་བཏོན་འབདཝ་ཨིན།

End Sub