请问如何创建 Internet Explorer_Server类窗口

[smzh8]

请问如何创建 Internet Explorer_Server类窗口

[rainstormmaster]

用CreateWindowEx

[hpygzhx520]

楼上的大哥，能给个例子吗？
我只知道shell.explorer.2的方法，但兼容性不好……

[rainstormmaster]

Option Explicit
Private Const WS_HSCROLL = &H100000
Private Const WS_VSCROLL = &H200000
Private Const WS_CHILD As Long = &H40000000
Private Const WS_VISIBLE As Long = &H10000000
Private Const WS_POPUP As Long = &H80000000
Private Const WS_EX_CLIENTEDGE As Long = &H200&
Private Const WS_EX_DLGMODALFRAME As Long = &H1&


Private Declare Function AtlAxWinInit Lib "atl.dll" () As Long
Private Declare Function CreateWindowEx Lib "user32.dll" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32.dll" (ByVal hwnd As Long) As Long


Function CreatehtmlWin(ByVal hwnd As Long, ByVal hWndTxt As String, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long) As Long
Dim nhCtl As Long
AtlAxWinInit
nhCtl = CreateWindowEx(WS_EX_CLIENTEDGE, "AtlAxWin", hWndTxt, WS_CHILD Or WS_VISIBLE Or WS_HSCROLL Or WS_VSCROLL, X, Y, cx, cy, hwnd, 1, App.hInstance, ByVal 0)
CreatehtmlWin = nhCtl
End Function

Private Sub Form_Load()
CreatehtmlWin Me.hwnd, "http://www.csdn.net", 10, 10, 400, 300
End Sub

[smzh8]

谢了

[hpygzhx520]

经典！收藏了！谢谢

[hpygzhx520]

有个问题啊，400，宽度的地方必须用常数？
还有就是创建了怎么用它啊？
谢谢

[hpygzhx520]

呵呵，我的意思是如何把其作为一个对象来控制她
AtlAxWin？