access 2007 vba 开发中学到的知识（三）

打开文件或程序

'API函数声明
Public 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

'ShellExecute函数二次封装，以简化使用
'输入参数File可以是文件名，网页地址或命令行
Public Function ShellEx(File As String)
ShellExecute hWndAccessApp, "Open", File, 0, 0, 1
End Function

使用 hWndAccessApp方法可以确定 Microsoft Windows 指定给 Microsoft Access 主窗口的句柄。

expression.hWndAccessApp

expression  必需。返回“Applies To”列表中的一个对象的表达式。

说明

hWndAccessApp方法返回一个由 Microsoft Access 设置的只读的Long Integer 值。

调用那些要求窗口句柄作为参数的Windows 应用程序编程接口 (API)函数或其他外部过程时，可以通过Visual Basic 使用此方法。

要得到含有“窗体”或“报表”等 Microsoft Access对象的窗口的句柄，可使用hWnd属性。