在vb中如何打开IE??

Question

       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
　　　　Const SW_SHOWNORMAL = 1
　　　　Private Sub Label1_Click()
　　　　ShellExecute Me.hwnd, vbNullString, "mailto:***@***.com", vbNullString, vbNullString, SW_SHOWNORMAL
　　　　End Sub
　　　　Private Sub Label2_Click()
　　　　ShellExecute Me.hwnd, vbNullString, "www.****.com", vbNullString, vbNullString, SW_SHOWNORMAL
　　　　End Sub
　　　　把label的caption设置的好看点，mousepoint设成手状 

Answer 1

可以用webbrowser实现你的功能。

Answer 2

完全没有那么复杂！好像用SHELL打开IE浏览器再加上网址就可以了！

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 LongPrivate Sub Command1_Click()
    Shell "start.exe " & Text1.Text, vbHide
End SubPrivate Sub Command2_Click()
    ShellExecute Me.hwnd, "Open", Text2.Text, "", App.Path, 1
End Sub

Answer 4

'把下面的保存为Form1.frmVERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox Text2 
      Height          =   375
      Left            =   720
      TabIndex        =   3
      Text            =   "http://www.csdn.net"
      Top             =   1080
      Width           =   3135
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   495
      Left            =   2280
      TabIndex        =   2
      Top             =   1800
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Default         =   -1  'True
      Height          =   495
      Left            =   720
      TabIndex        =   1
      Top             =   1800
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   720
      TabIndex        =   0
      Text            =   "http://www.sina.com.cn"
      Top             =   480
      Width           =   3135
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = FalsePrivate 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 Sub Command1_Click()
    Shell "start.exe " & Text1.Text, vbHide
End SubPrivate Sub Command2_Click()
    ShellExecute Me.hwnd, "Open", Text2.Text, "", App.Path, 1
End Sub

Answer 5

很简单的
dim IEobject as object
set IEobject = createobject("InternetExplorer.application")
ieojbect.statustext = "www.xxxx.com"ieobject.navigate 
ieobject.goback
.
.
. 

Answer 6

VB_support()　
的不好使，我试了

Answer 7

little_hero(天生我才必有用！)　
和xxlroad(土八路)　的都可以！
谢谢大家！