VB嵌入问题

如何让Text1等于连接地址！

把原来的代码都清除，重新添加如下代码,就能达到你想要的效果了

Option Explicit
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 Form_Load()
Text1.Text = " http://www.baidu.com/"
End Sub
Private Sub Command1_Click()
If Len(Trim(Text1.Text)) Then
Call ShellExecute(Me.hwnd, "open", Trim(Text1.Text), vbNullString, vbNullString, &H0)
End If
End Sub

Dim a as integer Private Sub Command1_Click() Text1.Text Shell "explorer " & Text1.Text End Sub 只要你在text1.text中写入地址就可以了。

Dim a Private Sub Command1_Click() a = Text1.Text Shell "explorer " & a, 0 End Sub Private Sub Form_Load() Text1.Text = " http://www.baidu.com/" End Sub