Kopsavilkums
Visual Basic for Applications makro citu programmu saskaņā ar Microsoft Windows startēšanai var izsaukt funkciju ShellExecute Windows API. Izmantot ShellExecute nevis čaulas (Visual Basic priekšraksts) vai WinExec() (Windows API funkciju), lai izvairītos no pēdējā komandas šādi ierobežojumi:
Čaulas un WinExec()lietojumprogrammu nevar startēt, norādot tikai faila nosaukumu. Piemēram, neizdosies čaulas šādu paziņojumu:
x = Shell("C:\My Documents\Book1.Xls")
Papildinformācija
Microsoft piedāvā programmēšanas piemērus norāda tikai kā piemēru, nesniedzot nekādas tiešas vai netiešas garantijas. Tas ietver, bet neaprobežojas ar netiešām garantijām par piemērotību pārdošanai vai atbilstību noteiktam mērķim. Šajā rakstā tiek pieņemts, ka pārzināt programmēšanas valodu, kas tiek aprakstīta, un rīkus, kas tiek izmantoti, lai izveidotu un atkļūdotu procedūras. Microsoft atbalsta inženieri var palīdzēt izskaidrot kādas noteiktas procedūras funkcionalitāti, taču viņi nemainīs šos piemērus, lai sniegtu skaidrāku funkcionalitāti, un neveidos jaunas procedūras, kas atbilstu īpašām prasībām. Zemāk ir paraugs Visual Basic for Applications makro, kas izsauc funkciju ShellExecute Windows API. ShellExecute nosaka, vai Microsoft Excel jau darbojas; Šādā gadījumā tas ielādē Book1. xls Microsoft Excel sesijā. Ja programma Microsoft Excel vēl nav palaista, ShellExecute tiek startēta programma Microsoft Excel un ielādē Book1. 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 tiek atvērts vai izdrukā norādīto failu. Šī ir informācija par ShellExecute lapās 901 904 no Microsoft Windows programmatūras izstrādes komplekts (SDK) "Programmētāju atsauces sējuma 2:Functions."
Parametri
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).
Atgriež
Atgrieztā vērtība ir instances turis programma, kas tika atvērta vai drukāta, ja funkcija ir veiksmīga. (Šo turi varētu būt servera lietojumprogramma DDE turi.) Atgriezties vērtība ir mazāka vai vienāda ar 32 norāda kļūdas.
Kļūdas
ShellExecute funkcija atgriež vērtību 31 nav asociācijas norādītā faila tipam vai nav asociācijas darbībai norādīto faila tipu. Citi iespējamie kļūdu vērtības ir šādas:
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.
Piezīmes
Ar parametru lpszFile norādīto failu var būt dokumenta faila vai izpildāmo failu. Ja dokumenta failu, šī funkcija tiek atvērts vai izdrukā, atkarībā no lpszOp parametra vērtība. Ja izpildāmo failu, šī funkcija tiek atvērts, pat ja virkne "drukas" norādīja, lpszOp.
Atsauces
Lai iegūtu papildinformāciju par to, kā izmantot šajā rakstā parauga kods, noklikšķiniet uz norādītā raksta numura un lasiet Microsoft zināšanu bāzes rakstu:
212536 OFF2000: kā palaist kodu paraugi no zināšanu bāzes raksti
Lai iegūtu papildinformāciju, kā iegūt palīdzību par Visual Basic for Applications, skatiet šo Microsoft zināšanu bāzes rakstu:
226118 OFF2000: Visual Basic for Applications programmēšanu resursi
Microsoft Windows SDK "programmētāju atsauces Sējums 2: funkcijas," lapas 901 904
