打开文本框中指定路径的文件或图档或打开某个网址；Access打开网站方法；Access打开网址代码

来源:www.accessoft.com 点击数:8968 　 | 收藏 | 复制

时　间:2009-01-16 16:31:05
作　者:6100535 ID：71 城市：丹阳
摘　要:打开文本框中指定路径的文件或图档或打开某个网址
正　文:

下面是竹笛提供的代码,但本人在机器上一开始使用时能使用,但不知是否因为打补丁的原因现在不能使用.

Private Sub cmdAccess_Click()
    Dim webAddreess As String
    Dim Web
    Set Web = CreateObject("InternetExplorer.Application")
    Web.Visible = True
    WebAddress = "http://www.accessoft.com"
    Web.Navigate WebAddress

End Sub

后在网上查找通过调用API的方式搞定.

''调用API,放置在模块中
Public Declare Function ShellExecuteA Lib "shell32.dll" _
                       (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

''在命令按钮中调用:
ShellExecuteA Application.hWndAccessApp, "open", 含地址及名称的路径, vbNullString, vbNullString, 1

Access软件网QQ交流群 (群号:483923997) 　　　　　　Access源码网店

【打印此文】【关闭窗口】