在vb中，如何调IE浏览器?

Question

建个模块
Option ExplicitGlobal Const REG_SZ As Long = 1
Global Const REG_DWORD As Long = 4
Global Const HKEY_CLASSES_ROOT = &H80000000
Global Const KEY_ALL_ACCESS = &H3F
Global Const ERROR_NONE = 0
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal _
        hKey As Long) As Long
Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias _
        "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As _
        String, ByVal ulOptions As Long, ByVal samDesired As _
        Long, phkResult As Long) As Long
Public Declare Function RegQueryValueExString Lib "advapi32.dll" _
        Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal _
        lpValueName As String, ByVal lpReserved As Long, lpType _
        As Long, ByVal lpData As String, lpcbData As Long) As Long
Public Declare Function RegQueryValueExLong Lib "advapi32.dll" _
        Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal _
        lpValueName As String, ByVal lpReserved As Long, lpType _
        As Long, lpData As Long, lpcbData As Long) As Long
Public Declare Function RegQueryValueExNULL Lib "advapi32.dll" _
        Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal _
        lpValueName As String, ByVal lpReserved As Long, lpType _
        As Long, ByVal lpData As Long, lpcbData As Long) As LongPublic Function QueryValue(lPredefinedKey As Long, sKeyName As _
        String, sValueName As String)
       Dim lRetVal As Long
       Dim hKey As Long
       Dim vValue As Variant       lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, _
                KEY_ALL_ACCESS, hKey)
       lRetVal = QueryValueEx(hKey, sValueName, vValue)
       QueryValue = vValue
       RegCloseKey (hKey)
End FunctionFunction QueryValueEx(ByVal lhKey As Long, ByVal szValueName _
        As String, vValue As Variant) As Long
    Dim cch As Long
    Dim lrc As Long
    Dim lType As Long
    Dim lValue As Long
    Dim sValue As String    On Error GoTo QueryValueExError
    
    '获得键值的属性
    lrc = RegQueryValueExNULL(lhKey, szValueName, 0&, lType, 0&, cch)
    If lrc <> ERROR_NONE Then Error 5    Select Case lType
        Case REG_SZ:
            sValue = String(cch, 0)
            lrc = RegQueryValueExString(lhKey, szValueName, 0&, _
                lType, sValue, cch)
            If lrc = ERROR_NONE Then
                vValue = Left$(sValue, cch)
            Else
                vValue = Empty
            End If        Case REG_DWORD:
            lrc = RegQueryValueExLong(lhKey, szValueName, 0&, _
                lType, lValue, cch)
            If lrc = ERROR_NONE Then vValue = lValue
        Case Else
            lrc = -1
    End SelectQueryValueExExit:    QueryValueEx = lrc
    Exit FunctionQueryValueExError:    Resume QueryValueExExitEnd Function窗体代码：
Private Sub Command1_Click()
Dim AStr As String
    Dim BStr As String
    Dim ComStr As String
    Dim LinkStr As String
    
    AStr = QueryValue(HKEY_CLASSES_ROOT, ".html", "")
    If InStr(AStr, Chr(0)) Then
        AStr = Left$(AStr, InStr(AStr, Chr(0)) - 1)
    End If
    BStr = AStr + "\shell\open\command"
    '获得打开html文件的程序的全路径
    ComStr = QueryValue(HKEY_CLASSES_ROOT, BStr, "")
    
    If InStr(ComStr, Chr(0)) Then
        ComStr = Left$(ComStr, InStr(ComStr, Chr(0)) - 1)
    End If
    Shell ComStr    '运行程序
End Sub如果你用的98那可以直接用 shell "start +····"来打开ie

Answer 1

不是直接用WEBBROWSE控件就可以了吗？
用他的NAVIGATE方法。
一切OK！

Answer 2

试试这个：把下面的放入按钮里
 Set ie = CreateObject("InternetExplorer.Application")
        ie.Navigate2 ("http://www.csdn.net/expert/topic/162/162625.shtm")
        ie.Visible = True

Answer 3

呵呵，大家的方法可以实现，不过代码太多了
看看我的：）
nResult = Shell("start.exe http://www.csdn.net", vbHide)
如何，简单明了，又容易记，啊，listview，你千万不可以按字数给报酬呀！！！！！