Kokkuvõte
Võite helistada väärtuse ShellExecute() Windows API funktsiooni Visual Basic for Applications makro käivitada mõne muu programmi Microsoft Windows. Kasutage väärtuse ShellExecute() Shell (Visual Basicu lause) või WinExec() (Windows API funktsiooni) asemel viimast käsku Järgmine piirang.
Kest ja WinExec(), ei saa käivitada rakendust, määrates ainult faili nimi. Näiteks ei õnnestu Shell järgmine teade:
x = Shell("C:\My Documents\Book1.Xls")
Lisateabe saamiseks
Microsoft pakub programmeerimisnäiteid ainult artikli illustreerimiseks ilma igasuguse otsese või kaudse garantiita. See hõlmab, kuid ei piirdu kaudseid garantiisid turustatavuse või kindlaks otstarbeks sobivusega. See artikkel eeldab, et olete demonstreeritava programmeerimiskeelega programmeerimise keel ning luua protseduuride ja silumiseks kasutatavate tööriistadega tuttav. Microsofti tugitehnikud võivad aidata mõne konkreetse protseduuri funktsiooni selgitada, kuid ei muuda nad neid näiteid lisafunktsioonide pakkumiseks ega Koosta vastavaid protseduure teie konkreetsetele nõuetele. Allpool on proovi Visual Basic for Applications makro, mis kutsub pildi kuvamiseks funktsiooni väärtuse ShellExecute() Windows API. Väärtuse ShellExecute() määratleb, kas Microsoft Excel on juba kasutusel; Kui jah, laadib Vihik1.xls rakendusse Microsoft Exceli seansi. Kui Microsoft Excel on käivitatud, käivitab Microsoft Exceli väärtuse ShellExecute() ja laadib Vihik1.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
Väärtuse ShellExecute() funktsioon avab või prindib määratud faili. Järgnev on teave väärtuse ShellExecute() lehtedelt 901 904, on Microsoft Windows Software Development Kit (SDK) "Volume 2:Functions programmija viited."
Parameetrid
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).
Kasum
Tagastatava väärtuse on rakendus, mis on avatud või trükitud eksemplari pide, kui funktsioon on edukas. (See pide võib ka DDE Serverirakendust pide.) Tagasi väärtus väiksem või sellega võrdne 32 määrab ilmnes tõrge.
Tõrked
Väärtuse ShellExecute() funktsioon tagastab väärtuse 31, kui pole määratud failitüübi seost või määratud toimingu jooksul failitüübi jaoks pole seost. Võimaliku tõrke väärtused on järgmised:
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.
Kommentaarid
Parameetriga lpszFile määratud faili saab dokumendi või käivitatava faili. Dokumendifaili korral funktsioon avab või prindib, sõltuvalt lpszOp parameeter. Kui käivitatava faili, see funktsioon avab, isegi siis, kui stringi "Prindi" on nimetatud lpszOp.
Viited
Selles artiklis näidiskoodi kasutamise kohta lisateabe saamiseks klõpsake Microsofti teabebaasi (Knowledge Base) artikli kuvamiseks artiklinumbrit:
212536 OFF2000: näidiskoodi käitamine teabebaasi artiklitest
Spikri Visual Basic for Applications kohta lisateabe saamiseks lugege järgmist Microsofti teabebaasi (Knowledge Base) artiklit:
226118 OFF2000: programmeerimise vahendeid Visual Basic for Applications
Microsoft Windows SDK "Programmer's Reference, Volume 2: funktsioonid" lk 901-904
