高校问答电玩城打鱼机遥控器:如何在VB中输入文字和链接?
来源：百度文库 编辑：高校问答 时间：2024/04/30 00:27:05
我急用!
先建立一个label，并输入你要的文字
然后“工程--引用--microsoft internet controls”
你会发现没有反映，是正常的。
然后输入以下代码：
Private Sub Label1_Click()
Dim ie As New InternetExplorer
ie.Visible = True
ie.Navigate "http://zfjdwx.icpcn.com"
End Sub
就可以了。
要想得到更好的效果，加qq:287376074，
给点分
shell "Explore.exe http://ahw.com"
hao
显然用windows api.
代码如下：
Private Sub link( )linkaddess = ShellExecute(0&, vbNullString, addess, vbNullString, vbNullString, vbNormalFocus)
Dim addess As String
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 Label1_Click(Index As Integer)
addess = 〃http://www.newhua.com.cn/〃
Call link