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

菜单。。�

4L 5L的已发送�

已经上传到CSDN。

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

不需要积分�

添加的部件只有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的大部分功能。
但是觉得菜单和风格有点不相配，不太好看了�

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

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

至于处于最上层。你在控件上单击鼠标右键，选择移至上层�

让WebBrowser支持xp外观： 
 
 Private m_hMod As Long 
 Private m_hMod2 As Long 
 Private Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As tagInitCommonControlsEx) As Boolean 
 Private Type tagInitCommonControlsEx 
 lngSize As Long 
 lngICC As Long 
 End Type 
 Private Const ICC_USEREX_CLASSES = &H200 
 
 Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long 
 Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long 
 
 
 Private Sub Form_Initialize() 
 On Error Resume Next 
 
 Dim iccex As tagInitCommonControlsEx 
 iccex.lngSize = LenB(iccex) 
 iccex.lngICC = ICC_USEREX_CLASSES 
 InitCommonControlsEx iccex 
 
 m_hMod = LoadLibrary("shell32.dll") 
 m_hMod2 = LoadLibrary("explorer.exe") 
 End Sub 
 
 
 Private Sub Form_Terminate() 
 On Error Resume Next 
 
 If m_hMod Then FreeLibrary m_hMod 
 If m_hMod2 Then FreeLibrary m_hMod2 
 End Sub

这个是现在最新版的。完成了97%。只要添加完IE的大部分功能就完成了。

CSDN下载地址：
http://download.csdn.net/ggmm/ggmmpage.html?195

不需要积分�

to 要源代码的朋友

想问某一个效果怎么实现可以告诉你们，但是源代码不可以。自己动手。
代码可以给，但是源代码的文件不给。不劳而获�

别要了。。试用中发现超级占内存。真是失败。。�