此种"IE嵌入到窗体"的效果到底是如何实现的?SetParent无法实现.....

Question

效果见图:
http://www.m5home.com/images/form.jpg这是我QQ上一朋友发来的,他说他在某站上看到的,不知道是如何实现...我试过了WebBrerows控件,好象不行.......大家看看,是否是用其它特殊的API?或者,是什么控件/方法?

Answer 1

setparent 可以做到，把ie的shell docobject view和rebarwindow32同时放到你的窗体上

Answer 2

哈哈我给你搞定了首先你创建一个RichTextBox或者PictureBox
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As LongPrivate Sub Form_Load()
    'SetParent FindWindow(vbNullString, "http://www.m5home.com/images/form.jpg - Microsoft Internet Explorer"), Me.RichTextBox1.hwnd
    'MsgBox ScaleX(Me.RichTextBox1.Width, vbTwips, vbPixels)
    MoveWindow FindWindow(vbNullString, "http://www.m5home.com/images/form.jpg - Microsoft Internet Explorer"), 0, 0, ScaleX(Me.RichTextBox1.Width, vbTwips, vbPixels), ScaleY(Me.RichTextBox1.Height, vbTwips, vbPixels), True
    SetParent FindWindow(vbNullString, "http://www.m5home.com/images/form.jpg - Microsoft Internet Explorer"), Me.RichTextBox1.hwnd
End Sub

Answer 3

多谢chenhui530(陈辉) 以及楼上各位的答复!但这效果与图上的有所不同......不过也非常感谢!!结帖了!