先看看效果

菜单。。。

[email protected]看看!

[email protected]谢谢

4L 5L的已发送。

已经上传到CSDN。下载地址:http://download.csdn.net/source/337085不需要积分。

我也要[email protected]

狂顶哥们可以去微软了[email protected]

添加的部件只有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 LongConst CB_SHOWDROPDOWN = &H14FDim 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