Funkcia GetObject

Vráti odkaz na objekt poskytnutý komponentom ActiveX.

Syntax

GetObject([názov cesty ] [, trieda ] )

Syntax funkcie GetObject má tieto argumenty:

Argument	Popis
názovcesty	Voliteľný argument. Variant (String). Úplná cesta a názov súboru obsahujúci objekt, ktorý sa má načítať. Ak sa vynechá názov cesty , trieda je povinná.
trieda	Voliteľný argument. Variant (String). Reťazec predstavujúci triedu objektu.

Argument classpoužíva syntax appname.objecttype a má tieto časti:

Časť	Popis
názovaplikácie	Povinný argument. Variant (String). Názov aplikácie, ktorá poskytuje objekt.
typ objektu	Povinný argument. Variant (String). Typ alebo trieda objektu, ktorá sa má vytvoriť.

Poznámky:

Použite funkciu GetObject na prístup k objektu ActiveX zo súboru a priradenie objektu k objektovej premennej. Pomocou príkazu Set priraďte objekt vrátený funkciou GetObject k objektovej premennej. Príklad:

Dim CADObject As Object
Set CADObject = GetObject("C:\CAD\SCHEMA.CAD")

Keď sa spustí tento kód, aplikácia priradená k názvu zadanej cesty sa spustí a objekt sa v zadanom súbore aktivuje.

Ak je názov cesty reťazec nulovej dĺžky (""), funkcia GetObject vráti novú inštanciu objektu zadaného typu. Ak sa argument pathname vynechá, funkcia GetObject vráti aktuálne aktívny objekt zadaného typu. Ak objekt zadaného typu neexistuje, vyskytne sa chyba.

Niektoré aplikácie vám umožňujú aktivovať časť súboru. Pridajte výkričník (!) na konci názvu súboru a za ním reťazec, ktorý identifikuje časť súboru, ktorú chcete aktivovať. Informácie o tom, ako vytvoriť tento reťazec, nájdete v dokumentácii aplikácie, ktorá vytvorila daný objekt.

V aplikácii na kreslenie napríklad môžete mať v kresbe viac vrstiev uložených v súbore. Nasledujúci kód môžete použiť na aktiváciu vrstvy v rámci kresby s názvom SCHEMA.CAD:

Set LayerObject = GetObject("C:\CAD\SCHEMA.CAD!Layer3")

Ak nezadáte triedu objektu, automatizácia určí, ktorá aplikácia sa má spustiť a ktorý objekt sa má aktivovať, na základe názvu súboru, ktorý zadáte. Niektoré súbory však môžu podporovať viac ako jednu triedu objektov. Kresba napríklad môže podporovať tri rôzne typy objektov: objekt Aplikácia, objekt Kresba a objekt Panel s nástrojmi, ktoré sú všetky časťami toho istého súboru. Ak chcete určiť objekt v súbore, ktorý chcete aktivovať, použite voliteľný argument triedy . Príklad:

Dim MyObject As Object
Set MyObject = GetObject("C:\DRAWINGS\SAMPLE.DRW", _
    "FIGMENT.DRAWING")

V uvedenom príklade je názov aplikácie kreslenia a DRAWING je jedným z typov objektov, FIGMENT ktoré podporuje.

Po aktivácii objektu naň odkazujete v kóde pomocou objektovej premennej, ktorú ste definovali. V predchádzajúcom príklade máte prístup k vlastnostiam a metódam nového objektu pomocou objektovej premennej MyObject. Príklad:

MyObject.Line 9, 90
MyObject.InsertText 9, 100, "Hello, world."
MyObject.SaveAs "C:\DRAWINGS\SAMPLE.DRW"

Ak sa objekt zaregistroval ako objekt jednej inštancie, vytvorí sa iba jedna inštancia objektu bez ohľadu na to, koľkokrát sa funkcia CreateObject spustí. Pri objekte jednej inštancie funkcia GetObject pri volaní so syntaxou s reťazcom nulovej dĺžky ("") vždy vráti tú istú inštanciu a ak sa argument pathname vynechá, spôsobí chybu. Funkciu GetObject nie je možné použiť na získanie odkazu na triedu vytvorenú pomocou programu Visual Basic.

Príklad

V tomto príklade je funkcia GetObject použitá na získanie odkazu na konkrétny excelový hárok (MyXL). Používa vlastnosť hárka Aplikácia na zviditeľnenie Excelu, jeho zavretie atď. Pomocou dvoch volaní API procedúra Sub DetectExcel vyhľadá Excel, a ak je spustený, zadá ho do tabuľky Spustený objekt. Ak program Microsoft Excel ešte nie je spustený, prvé volanie funkcie GetObject spôsobí chybu. V tomto príklade chyba spôsobuje nastavenie príznaku ExcelWasNotRunning na hodnotu True. Druhé volanie funkcie GetObject určuje súbor, ktorý sa má otvoriť. Ak Excel ešte nie je spustený, druhé volanie ho spustí a vráti odkaz na hárok zastúpený zadaným súborom mytest.xls. Súbor musí existovať v zadanom umiestnení; v opačnom prípade program Visual Basic vygeneruje chybu typu Automatizácia. Potom vzorový kód spôsobí, že Excel aj okno obsahujúce zadaný pracovný hárok budú viditeľné. Ak nebola spustená žiadna predchádzajúca verzia Excelu, kód použije na zatvorenie Excelu metódu ukončenia objektu Application. Ak už aplikácia bola spustená, nevykoná sa žiadny pokus o jej zatvorenie. Samotný odkaz sa uvoľní nastavením na hodnotu Nič.

' Declare necessary API routines:
Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName as String, _
                    ByVal lpWindowName As Long) As Long
Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hWnd as Long,ByVal wMsg as Long, _
                    ByVal wParam as Long, _
                    ByVal lParam As Long) As Long
Sub GetExcel()
    Dim MyXL As Object    ' Variable to hold reference
                                ' to Microsoft Excel.
    Dim ExcelWasNotRunning As Boolean    ' Flag for final release.
' Test to see if there is a copy of Microsoft Excel already running.
    On Error Resume Next    ' Defer error trapping.
' GetObject function called without the first argument returns a 
' reference to an instance of the application. If the application isn't
' running, an error occurs.
    Set MyXL = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then ExcelWasNotRunning = True
    Err.Clear    ' Clear Err object in case error occurred.
' Check for Microsoft Excel. If Microsoft Excel is running,
' enter it into the Running Object table.
    DetectExcel
' Set the object variable to reference the file you want to see.
    Set MyXL = GetObject("c:\vb4\MYTEST.XLS")
' Show Microsoft Excel through its Application property. Then
' show the actual window containing the file using the Windows
' collection of the MyXL object reference.
    MyXL.Application.Visible = True
    MyXL.Parent.Windows(1).Visible = True
     Do manipulations of your  file here.
    ' ...
' If this copy of Microsoft Excel was not running when you
' started, close it using the Application property's Quit method.
' Note that when you try to quit Microsoft Excel, the
' title bar blinks and a message is displayed asking if you
' want to save any loaded files.
    If ExcelWasNotRunning = True Then 
        MyXL.Application.Quit
    End IF
    Set MyXL = Nothing    ' Release reference to the
                                ' application and spreadsheet.
End Sub
Sub DetectExcel()
' Procedure dectects a running Excel and registers it.
    Const WM_USER = 1024
    Dim hWnd As Long
' If Excel is running this API call returns its handle.
    hWnd = FindWindow("XLMAIN", 0)
    If hWnd = 0 Then    ' 0 means Excel not running.
        Exit Sub
    Else                
    ' Excel is running so use the SendMessage API 
    ' function to enter it in the Running Object Table.
        SendMessage hWnd, WM_USER + 18, 0, 0
    End If
End Sub