GetObject függvény

Egy ActiveX-összetevő által megadott objektumra mutató hivatkozást ad vissza.

Szintaxis

GetObject([pathname ] [, class ] )

A GetObject függvény argumentumai a következők:

Argumentum	Leírás:
elérési út	Nem kötelező. Variáns (Karakterlánc). A lekérni kívánt objektumot tartalmazó fájl teljes elérési útja és neve. Ha az elérési út neve nincs megadva , osztályra van szükség.
osztály	Nem kötelező. Variáns (Karakterlánc). Az objektum osztályát jelölő sztring.

Az osztályargumentumaz appname.objecttype szintaxist használja, és az alábbi részekből áll:

Rész	Leírás:
appnév	Kötelező megadni. Variáns (Karakterlánc). Az objektumot megadó alkalmazás neve.
objektumtípus	Kötelező megadni. Változó (karakterlánc). A létrehozandó objektum típusa vagy osztálya.

Megjegyzések

A GetObject függvénnyel hozzáférhet egy ActiveX-objektumhoz egy fájlból, és hozzárendelheti az objektumot egy objektumváltozóhoz. A Set utasítással rendelheti hozzá a GetObject által visszaadott objektumot az objektumváltozóhoz. Például:

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

A kód végrehajtásakor elindul a megadott elérési úthoz társított alkalmazás, és a megadott fájlban lévő objektum aktiválódik.

Ha az elérési út nulla hosszúságú karakterlánc (""), a GetObject a megadott típusú új objektumpéldányt adja vissza. Ha az elérési út argumentum nincs megadva, a GetObject a megadott típusú, jelenleg aktív objektumot adja vissza. Ha nincs a megadott típusú objektum, hibaüzenet jelenik meg.

Egyes alkalmazások lehetővé teszik, hogy aktiválja a fájlok egy részét. Adjon hozzá egy felkiáltójelet (!) a fájlnév végéhez, és kövesse azt egy sztringgel, amely azonosítja az aktiválni kívánt fájlrészt. Ha további információra van szüksége a karakterlánc létrehozásáról, tanulmányozza az objektumot létrehozó alkalmazás dokumentációját.

Egy rajzalkalmazásban például előfordulhat, hogy több réteggel rendelkezik egy fájlban tárolt rajzhoz. A következő kóddal aktiválhat egy réteget egy nevű SCHEMA.CADrajzon belül:

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

Ha nem adja meg az objektum osztályát, az Automation a megadott fájlnév alapján határozza meg a elindítandó alkalmazást és az aktiválni kívánt objektumot. Néhány fájl egyébként több objektumosztályt is támogathat. Egy rajz például három különböző típusú objektumot támogathat: egy Application (Alkalmazás) objektumot, egy Drawing (Rajz) objektumot és egy Toolbar (Eszköztár) objektumot, amelyek mindegyike ugyanazon fájl része. Ha meg szeretné adni, hogy egy fájl melyik objektumát szeretné aktiválni, használja a választható osztályargumentumot. Például:

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

A példában FIGMENT a egy rajzalkalmazás neve, és DRAWING az egyik támogatott objektumtípus.

Miután aktivált egy objektumot, az Ön által megadott objektumváltozó használatával hivatkozik rá a kódban. Az előző példában az új objektum tulajdonságait és metódusait az objektumváltozó MyObjecthasználatával érheti el. Például:

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

Ha egy objektum egypéldányos objektumként regisztrálta be magát, csak egyetlen példány jön létre az objektumból, függetlenül attól, hogy a CreateObject hányszor lett végrehajtva. Egypéldányos objektum esetén a GetObject mindig ugyanazt a példányt adja vissza a nulla hosszúságú karakterlánc ("") szintaxissal meghívva, és hibát okoz, ha az elérési út argumentum hiányzik. A GetObject függvénnyel nem adhat vissza olyan hivatkozást, amely a Visual Basic segítségével létrehozott osztályra mutat.

Példa

Ez a példa a GetObject függvényt használja egy adott Excel-munkalapraMyXL () mutató hivatkozás lekéréséhez. A függvény a munkalap Alkalmazás tulajdonságát használja az Excel láthatóvá tételéhez, bezárásához és így tovább. Két API-hívást használva a DetectExcel Sub eljárás megkeresi az Excelt, és ha fut, beviszi a futó objektumok táblázatába. Az első hívás a GetObject függvényhez hibát okoz, ha a Microsoft Excel már fut. A példában a hiba következtében az ExcelWasNotRunning jelölőt Igaz értékre állítja a program. A második hívás a GetObject függvényhez megad egy megnyitandó fájlt. Ha az Excel még nem fut, a második hívás elindítja azt, és visszaad egy hivatkozást, amely a megadott fájl, a mytest.xls által képviselt munkalapra mutat. A fájlnak a megadott helyen kell lennie; különben a Visual Basic-hiba, az automatizálási hiba lép fel. Ezután a hibakód úgy az Excelt, mint a megadott munkalapot tartalmazó ablakot láthatóvá teszi. Végül, ha nem futott az Excel korábbi verziója, a kód az Alkalmazás objektum Quit metódusával zárja be az Excelt. Ha az alkalmazás már fut, nem történik a bezárására irányuló próbálkozás. Maga a hivatkozás Nothing értékre állítva jelenik meg.

' 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