Funkcija GetObject

Pateikia nuorodą į objektą, kurį pateikė "ActiveX" komponentas.

Sintaksė

GetObject([kelio pavadinimas] [, klasė])

Funkcijos GetObject sintaksė turi tokius argumentus:

Argumentas	Aprašymas
kelio pavadinimas	Pasirinktinis. Variantas (eilutė). Visas failo, kuriame yra norimas nuskaityti objektas, kelias ir vardas. Jei kelio pavadinimas praleistas, būtina klasė .
klasė	Pasirinktinis. Variantas (eilutė). Objekto klasę nurodanti eilutė.

Klasėsargumentas naudoja sintaksę appname.objecttype ir jį sudaro šios dalys:

Dalis	Aprašymas
programos pavadinimas	Būtinas. Variantas (eilutė). Taikomosios programos, teikiančios objektą, pavadinimas.
objekto tipas	Būtinas. Variantas (eilutė). Kuriamo objekto tipas arba klasė.

Pastabos

Naudokite funkciją GetObject norėdami pasiekti "ActiveX" objektą iš failo ir priskirti objektą objekto kintamajam. Naudokite sakinį Set norėdami priskirti objekto kintamajam objektą, kurį grąžino GetObject . Pavyzdžiui:

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

Kai šis kodas vykdomas, paleidžiama programa, susieta su nurodytu kelio pavadinimu , ir suaktyvinamas nurodyto failo objektas.

Jei kelio pavadinimas yra nulinio ilgio eilutė (""), GetObject grąžina naują nurodyto tipo objekto egzempliorių. Jei kelio pavadinimo argumentas praleistas, "GetObject " grąžins šiuo metu aktyvų nurodyto tipo objektą. Jei nurodyto tipo objekto nėra, įvyksta klaida.

Kai kurios programos leidžia suaktyvinti dalį failo. Failo vardo pabaigoje įtraukite šauktuką (!) ir po jo įrašykite eilutę, identifikuojančią failo dalį, kurią norite aktyvinti. Informacijos, kaip sukurti šią eilutę, ieškokite taikomosios programos, kuri sukūrė objektą, dokumentacijoje.

Pvz., piešimo programoje gali būti keli faile esančio piešinio sluoksniai. Galite naudoti šį kodą, kad suaktyvintumėte piešinio sluoksnį, vadinamą SCHEMA.CAD:

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

Jei nenurodysite objekto klasės, automatizavimas pagal jūsų pateiktą failo vardą nustato programą, kurią reikia paleisti, ir objektą, kurį reikia aktyvinti. Tačiau kai kurie failai palaiko daugiau nei vieną objektų klasę. Pavyzdžiui, piešinys gali palaikyti trijų skirtingų tipų objektus: programos objektą, piešimo objektą ir įrankių juostos objektą, kurie visi yra to paties failo dalis. Norėdami nurodyti, kurį failo objektą norite aktyvinti, naudokite pasirinktinės klasės argumentą. Pavyzdžiui:

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

Pavyzdyje FIGMENT yra piešimo programos pavadinimas ir DRAWING yra vienas iš jos palaikomų objektų tipų.

Kai objektas suaktyvinamas, nurodote jį kodu naudodami apibrėžtą objekto kintamąjį. Ankstesniame pavyzdyje naujo objekto ypatybes ir metodus pasiekiate naudodami objekto kintamąjį MyObject. Pavyzdžiui:

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

Jei objektas užregistruotas kaip vieno egzemplioriaus objektas, sukuriamas tik vienas objekto egzempliorius, nesvarbu, kiek kartų " CreateObject " vykdoma. Naudojant vieno egzemplioriaus objektą, "GetObject " visada pateikia tą patį egzempliorių, kai iškviečiamas naudojant nulinio ilgio eilutės ("") sintaksę, ir sukelia klaidą, jei kelio pavadinimo argumentas yra praleistas. Negalite naudoti GetObject, jei norite gauti nuorodą į klasę, sukurtą naudojant "Visual Basic".

Pavyzdys

Šiame pavyzdyje naudojama funkcija GetObject , kad būtų galima gauti nuorodą į konkretų "Excel" darbalapį (MyXL). Jis naudoja darbalapio ypatybę Taikomoji programa , kad padarytų "Excel" matomą, uždarytų ją ir t. t. Naudojant du API iškvietimus, antrinė procedūra "DetectExcel" ieško "Excel" ir, jei ji veikia, įveda ją į vykdomų objektų lentelę. Pirmasis " GetObject " iškvietimas sukelia klaidą, jei "Microsoft Excel" dar neveikia. Pavyzdyje dėl klaidos vėliavėlė ExcelWasNotRunning nustatoma kaip True. Antrasis " GetObject " iškvietimas nurodo atidaromą failą. Jei "Excel" dar nevykdoma, prasideda antrasis iškvietimas ir grąžinama nuoroda į darbalapį, kurį nurodo nurodytas failas mytest.xls. Failas turi egzistuoti nurodytoje vietoje; priešingu atveju pateikiama "Visual Basic" klaida Automatizavimas. Toliau kodo pavyzdys padaro matomas ir "Excel", ir langą, kuriame yra nurodytas darbalapis. Galiausiai, jei ankstesnė "Excel" versija neveikia, kodas naudoja objekto"Programos" išjungimo metodą, kad uždarytų "Excel". Jei programa jau veikė, nebandoma jos uždaryti. Pati nuoroda išleidžiama nustatant ją į Nieko.

' 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