请问vb文本框怎么链接到指定网址

来源:百度知道 编辑:UC知道 时间:2024/06/18 06:24:39
例如在文本框内输入013477854545怎么才可以链接到http://forum.csdn.net/PointForum/Forum/PostTopic.aspx?forumID=013477854545 呢???

电话拨号程序源码:

Dim a As String
Dim b As String

Private Sub cmd1_Click()
b = 1
a = a + b
txtmain.Text = a

End Sub

Private Sub cmd10_Click()
b = 0
a = a + b
txtmain.Text = a
End Sub

Private Sub cmd11_Click()
b = "*"
a = a + b
txtmain.Text = a
End Sub

Private Sub cmd12_Click()
b = "#"
a = a + b
txtmain.Text = a
End Sub

Private Sub Cmd13_Click()
txtmain.Text = "num:"
a = "num:"
End Sub

Private Sub Cmd14_Click()
txtmain.Text = "对不起,您所拨的号码是空号,请查电话号簿。"
a = "num:"
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

Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "http://forum.csdn.net/PointForum/Forum/PostTopic.aspx?forumID=" & txtmain.Text, 0, 0, 5
End Sub