2017usnews美国大学榜:VB按钮连接网页

来源:百度文库 编辑:查人人中国名人网 时间:2022/08/09 19:39:23
用什么代码可以让按钮连接网页

新建立一个模块
然后再其中添加如下代码 :

Option Explicit

Public Const URL = "要访问的URL"
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
Public Const SW_SHOWNORMAL = 1
Public Sub gotoweb()
Dim Success As Long

Success = ShellExecute(0&, vbNullString, URL, vbNullString, "C:\", SW_SHOWNORMAL)

End Sub

在按钮的click事件中添加代码:call gotoweb()就可以了

也可以将URL设为变量而不用常量,这样就可以通过更改其值来访问不同的网站^_^

shellexecute这个API函数

shellexecute