Santrauka
ShellExecute() Windows API funkciją galite iškviesti iš Visual Basic for Applications makrokomanda kitą programą Microsoft Windows. Naudokite ShellExecute() vietoj apvalkalas (Visual Basic patvirtinimas) arba WinExec() ("Windows" API funkciją) Norėdami pašalinti šiuos apribojimus, pastarasis komandas:
Aplinkos ir WinExec(), nurodydami failo vardą tik negali paleisti programą. Pvz., nepavyks apvalkalo įrašoma:
x = Shell("C:\My Documents\Book1.Xls")
Daugiau informacijos
"Microsoft" pateikia programavimo pavyzdžius tik, tačiau nesuteikia jokių aiškių arba numanomų garantijų. Tai apima, bet neapsiribojant, numanomas garantijas dėl perkamumo ir tinkamumo konkrečiam tikslui. Šis straipsnis parašytas galvojant, kad esate susipažinę su pateikta programavimo kalba ir įrankiais, kurie yra naudojami procedūroms kurti ir derinti. "Microsoft" palaikymo inžinieriai gali padėti paaiškindami tam tikros procedūros funkcinę galimybę, tačiau jie nekeis šių pavyzdžių, kad numatytų papildomą funkcinę galimybę arba sukurtų konkrečius jūsų reikalavimus atitinkančias procedūras. Toliau pateikiamas pavyzdys Visual Basic for Applications makrokomanda, kuri iškviečia funkciją ShellExecute() Windows API. ShellExecute() nustatoma, ar jau veikia Microsoft Excel; Jei taip, jis įkelia 1knyga.xls į Microsoft Excel seanse. Jei dar nepaleista Microsoft Excel ShellExecute() prasideda Microsoft Excel ir įkelia 1knyga.xls.
Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters _
As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long
Declare Function apiFindWindow Lib "User32" Alias "FindWindowA" _
(ByVal lpclassname As Any, ByVal lpCaption As Any) As Long
Global Const SW_SHOWNORMAL = 1
Sub ShellExecuteExample()
Dim hwnd
Dim StartDoc
hwnd = apiFindWindow("OPUSAPP", "0")
StartDoc = ShellExecute(hwnd, "open", "C:\My Documents\Book1.xls", "", _
"C:\", SW_SHOWNORMAL)
End Sub
ShellExecute() funkcija atidaromas arba spausdinamas nurodyto failo. Informacija apie ShellExecute() 901-904 puslapių, kad Microsoft Windows programinės įrangos kūrimo rinkinį (SDK) "Programuotojų nuoroda, tomo 2:Functions."
Parametrai
Parameter Description
---------------------------------------------------------------------------
hwnd Identifies the parent window.
lpszOp A string specifying the operation to perform. This
string can be "open" or "print".
lpszFile Points to a string specifying the file to open.
lpszParams Points to a string specifying parameters passed to
the application when the lpszFile parameter
specifies an executable file. If lpszFile points to
a string specifying a document file, this parameter
is NULL.
lpszDir Points to a string specifying the default
directory.
fsShowCmd Specifies whether the application window is to be
shown when the application is opened. This
parameter can be one of the following values:
Value Meaning
---------------------------------------------------------------------
0 Hides the window and passes activation to another
window.
1 Activates and displays a window. If the window is
minimized or maximized, Windows restores it to its
original size and position (same as 9).
2 Activates a window and displays it as an icon.
3 Activates a window and displays it as a maximized
window.
4 Displays a window in its most recent size and
position. The window that is currently active remains
active.
5 Activates a window and displays it in its current
size and position.
6 Minimizes the specified window and activates the
top-level window in the system's list.
7 Displays a window as an icon. The window that is
currently active remains active.
8 Displays a window in its current state. The window
that is currently active remains active.
9 Activates and displays a window. If the window is
minimized or maximized, Windows restores it to its
original size and position (same as 1).
Grąžinimai
Reikšmę yra egzemplioriaus loginio programos, kuri buvo atidarytas ar spausdinti, jei funkcija bus sėkmingas. (Ši rankenėlė gali būti rankenėlę DDE serverio programą.) Grįžti vertė mažesnis kaip arba lygus 32 nurodo klaida.
Klaidos
ShellExecute() funkcija grąžina reikšmę 31, jei nėra jokio ryšio nurodyto failo tipo arba nėra jokio ryšio nurodyto veiksmo failo tipo. Kitos galimos klaidos reikšmės yra tokios:
Value Meaning
---------------------------------------------------------------------------
0 System was out of memory, executable file was corrupt, or
relocations were invalid.
2 File was not found.
3 Path was not found.
5 Attempt was made to dynamically link to a task, or there
was a sharing or network-protection error.
6 Library required separate data segments for each task.
8 There was insufficient memory to start the application.
10 Windows version was incorrect.
11 Executable file was invalid. Either it was not a Windows
application, or there was an error in the .exe image.
12 Application was designed for a different operating system.
13 Application was designed for MS-DOS 4.0.
14 Type of executable file was unknown.
15 Attempt was made to load a real-mode application
(developed for an earlier version of Windows).
16 Attempt was made to load a second instance of an
executable file containing multiple data segments that
were not marked read-only.
19 Attempt was made to load a compressed executable file. The
file must be decompressed before it can be loaded.
20 Dynamic-link library (DLL) file was invalid. One of the
DLLs required to run this application was corrupt.
21 Application requires Microsoft Windows 32-bit extensions.
Komentarai
LpszFile parametras failas gali būti dokumento failo arba vykdomąjį failą. Jei dokumento failo, ši funkcija atidaromas arba spausdinamas, priklausomai nuo to, lpszOp parametro reikšmė. Jei vykdomąjį failą, ši funkcija atsidaro, net jei "print" eilutė yra versija lpszOp.
Nuorodos
Jei norite gauti daugiau informacijos apie tai, kaip naudoti mėginio kodą šiame straipsnyje, spustelėkite toliau straipsnio numerį peržiūrėkite straipsnį Microsoft žinių bazėje:
212536 OFF2000: kaip paleisti kodo pavyzdys iš žinių bazės straipsniai
Jei norite gauti daugiau informacijos apie žinyno Visual Basic for Applications, rasite šioje "Microsoft" žinių bazės straipsnį:
226118 OFF2000: Visual Basic for Applications programavimo ištekliai
Microsoft Windows SDK "programuotojų nuoroda, Tomas 2: funkcijos," puslapių 901-904
