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

来源：百度文库编辑：查人人中国名人网时间：2024/04/25 19:04:41

用什么代码可以让按钮连接网页

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

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

VB按钮连接网页如何用flash按钮连接网页？如何用flash按钮连接网页？ VB中,如何点击一个按钮后,弹出一个网页? 怎样在VB中文字连接网页? 如何让FLASH中的按钮连接到本地网页上面？ flash按钮如何连接网页（用相对路径） flash按钮如何连接网页（用相对路径）网页问题.使用了按钮控件,怎么连接啊网页上运用swf按钮，可是连接不了，帮帮忙~~~