我想做一个程序 50 分求教

Question

Private Sub Command1_Click()    Shell "explorer.exe http://" + Text1.TextEnd Sub

Answer 1

可以用shell
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 LongPrivate CommandButton1_Click()
ShellExecute(Me.hwnd, vbNullString, Text1.text, vbNullString, vbNullString, 1)
End Sub

Answer 2

工程菜单，引用→Micoroft Internet ControlsSub New_Onclick()
Dim IE As New InternetExplorerText1.text=="http://www.sohu.com"
IE.Visible=True
IE.Navigate=Text1.text 
End Sub可以拉
如果打开邮件：
Text1.text="mailto://[email protected]"给分哪，给分那

Answer 3

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()
Dim B As Variant
    B = ShellExecute(Me.hwnd, vbNullString, Trim(Text1.Text), vbNullString, vbNullString, 1)
End SubPrivate Sub Form_Load()
    Text1.Text = "HTTP://WWW.SINA.COM.CN"
End Sub