关于VB打开网站的问题

发布网友 发布时间：2022-05-07 08:06

我来回答

共4个回答

热心网友 时间：2023-10-21 21:57

'API函数定义
Private 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

'用api打开TEXT1中的网址
Private Sub Command1_Click()
ShellExecute Me.hwnd, "Open", trim(Text1.Text), 0, 0, 1
End Sub

热心网友 时间：2023-10-21 21:57

Private 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

Private Sub OpenUrl(tUrl As String) 'url函数
ShellExecute Me.hwnd, "Open", tUrl, 0, 0, 0
End Sub

Private Sub Command1_Click()
OpenUrl Text1.Text
End Sub追问呃，能不能稍微给我解释一下，我是新手...

追答Private 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

这是一个API ，ShellExecute 自己百度一下。
Private Sub OpenUrl(tUrl As String) 'url函数
ShellExecute Me.hwnd, "Open", tUrl, 0, 0, 0
End Sub
自己写的函数过程，可以省略。
Private Sub Command1_Click()
OpenUrl Text1.Text 也可以是 ShellExecute Me.hwnd, "Open", 网址, 0, 0, 0
End Sub
调用过程。

热心网友 时间：2023-10-21 21:58

从引用对话框中引用该项目： Microsoft Internet Controls
可以建立ie的一个实例
如：
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate "http://www.baidu.com/"

热心网友 时间：2023-10-21 21:57

'API函数定义
Private 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

'用api打开TEXT1中的网址
Private Sub Command1_Click()
ShellExecute Me.hwnd, "Open", trim(Text1.Text), 0, 0, 1
End Sub

热心网友 时间：2023-10-21 21:57

Private 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

Private Sub OpenUrl(tUrl As String) 'url函数
ShellExecute Me.hwnd, "Open", tUrl, 0, 0, 0
End Sub

Private Sub Command1_Click()
OpenUrl Text1.Text
End Sub追问呃，能不能稍微给我解释一下，我是新手...

追答Private 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

这是一个API ，ShellExecute 自己百度一下。
Private Sub OpenUrl(tUrl As String) 'url函数
ShellExecute Me.hwnd, "Open", tUrl, 0, 0, 0
End Sub
自己写的函数过程，可以省略。
Private Sub Command1_Click()
OpenUrl Text1.Text 也可以是 ShellExecute Me.hwnd, "Open", 网址, 0, 0, 0
End Sub
调用过程。

热心网友 时间：2023-10-21 21:58

从引用对话框中引用该项目： Microsoft Internet Controls
可以建立ie的一个实例
如：
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate "http://www.baidu.com/"

热心网友 时间：2023-10-21 21:58

Private Sub Command1_Click()
Shell "C:\Program Files\Internet Explorer\iexplore.exe " & Text1.Text, vbNormalFocus
End Sub

热心网友 时间：2023-10-21 21:58

Private Sub Command1_Click()
Shell "C:\Program Files\Internet Explorer\iexplore.exe " & Text1.Text, vbNormalFocus
End Sub

热心网友 时间：2023-10-21 21:57

'API函数定义
Private 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

'用api打开TEXT1中的网址
Private Sub Command1_Click()
ShellExecute Me.hwnd, "Open", trim(Text1.Text), 0, 0, 1
End Sub

热心网友 时间：2023-10-21 21:57

Private 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

Private Sub OpenUrl(tUrl As String) 'url函数
ShellExecute Me.hwnd, "Open", tUrl, 0, 0, 0
End Sub

Private Sub Command1_Click()
OpenUrl Text1.Text
End Sub追问呃，能不能稍微给我解释一下，我是新手...

追答Private 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

这是一个API ，ShellExecute 自己百度一下。
Private Sub OpenUrl(tUrl As String) 'url函数
ShellExecute Me.hwnd, "Open", tUrl, 0, 0, 0
End Sub
自己写的函数过程，可以省略。
Private Sub Command1_Click()
OpenUrl Text1.Text 也可以是 ShellExecute Me.hwnd, "Open", 网址, 0, 0, 0
End Sub
调用过程。

热心网友 时间：2023-10-21 21:58

从引用对话框中引用该项目： Microsoft Internet Controls
可以建立ie的一个实例
如：
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate "http://www.baidu.com/"

热心网友 时间：2023-10-21 21:58

Private Sub Command1_Click()
Shell "C:\Program Files\Internet Explorer\iexplore.exe " & Text1.Text, vbNormalFocus
End Sub