IE7.0 VB版。终于完成90%。感谢云霞散人。要的留邮箱

菜单。。�

pedkk@163.com
看看!

gta-vc@163.com
谢谢

4L 5L的已发送�

已经上传到CSDN。

下载地址:http://download.csdn.net/source/337085

不需要积分�

我也要kkk_2138@qq.com

狂顶
哥们可以去微软了
sxycwhq@163.com

添加的部件只有Webbrowser控件。其他的都是VB工具条上默认的控件。除此之外没有使用第三方控件了�

做下拉控件？？

你添加一个Combo和一个Command控件。添加以下代码，就知道原理了。

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const CB_SHOWDROPDOWN = &H14F
Dim nret&
Private Sub Form_Load()
 Combo1.AddItem "11111"
 Combo1.AddItem "22222"
 Combo1.AddItem "33333"
 Combo1.AddItem "44444"
 Combo1.AddItem "55555"
 Combo1.AddItem "66666"
 nret = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&)
End Sub

最新完成了菜单。。
准备添加IE的大部分功能。
但是觉得菜单和风格有点不相配，不太好看了�

修正了改变大小时出错问题。原来的忽略了出现负值的情况�

添加用户控件。而不是添加窗体�