CreateObject Function

Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Π° UNO. Π’ Windows Ρ‚Π°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΡΠΎΠ·Π΄Π°Π²Π°Ρ‚ΡŒ OLE-ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Ρ‹.

Π­Ρ‚ΠΎΡ‚ ΠΌΠ΅Ρ‚ΠΎΠ΄ слуТит для создания экзСмпляров Ρ‚ΠΈΠΏΠ°, ΠΏΠ΅Ρ€Π΅Π΄Π°Π²Π°Π΅ΠΌΠΎΠ³ΠΎ Π² качСствС ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Π°.

Бинтаксис

oObj = CreateObject( Ρ‚ΠΈΠΏ )

ΠŸΡ€ΠΈΠΌΠ΅Ρ€:

Type address

    Name1 As String

    City As String

End Type

 

Sub main

    myaddress = CreateObject("address")

    MsgBox IsObject(myaddress)

End Sub