鼠标移过菜单时，怎样才能让StatusBar控件的某一项改变呢

[laisiwei]

和IE一样

[vbdabster]

问题点书太少了，明天回答。本来今天相回答的，好久不来了，呵呵

[cuzz]

1>如果StatusBar的style属性为0-sbrnormal,用StatusBar的simpletext属性
例:
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(1).Text = "Picture1_MouseMove"
End Sub
2>如果StatusBar的style属性为1-sbrSimple,用StatusBar的simpletext属性
例:
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.simpleText = "Picture1_MouseMove"
End Sub

[zyl910]

拦截WM_MENUSELECT消息


WM_MENUSELECT
The WM_MENUSELECT message is sent to a menu's owner window when the user selects a menu item.

WM_MENUSELECT
uItem = (UINT) LOWORD(wParam); // menu item or submenu index
fuFlags = (UINT) HIWORD(wParam); // menu flags
hmenu = (HMENU) lParam; // handle to menu clicked

Parameters
uItem
Value of the low-order word of wParam. If the selected item is a command item, this parameter contains the identifier of the menu item. If the selected item opens a drop-down menu or submenu, this parameter contains the menu index of the drop-down menu or submenu in the main menu, and the hMenu parameter then contains the handle to the main (clicked) menu; use the GetSubMenu function to get the menu handle to the drop-down menu or submenu.
fuFlags
Value of the high-order word of wParam. Specifies one or more menu flags. This parameter can be a combination of the following values: Value Description
MF_BITMAP Item displays a bitmap.
MF_CHECKED Item is checked.
MF_DISABLED Item is disabled.
MF_GRAYED Item is grayed.
MF_HILITE Item is highlighted.
MF_MOUSESELECT Item is selected with the mouse.
MF_OWNERDRAW Item is an owner-drawn item.
MF_POPUP Item opens a drop-down menu or submenu.
MF_SYSMENU Item is contained in the window menu (also known as the System menu or Control menu). The hmenu parameter identifies the window menu associated with the message.


hmenu
Value of lParam. Handle to the menu that was clicked.
Return Values
If an application processes this message, it should return zero.

Remarks
If the fuFlags parameter contains 0xFFFF and the hmenu parameter contains NULL, the system has closed the menu.

Do not use the value –1 for fuFlags. That is because fuFlags is specified as (UINT) HIWORD(wParam). If HIWORD(wParam) were 0xFFFF, fuFlags (because of the UINT cast) would be 0x0000FFFF, not –1.

QuickInfo
Windows NT: Requires version 3.1 or later.
Windows: Requires Windows 95 or later.
Windows CE: Unsupported.
Header: Declared in winuser.h.

[laisiwei]

加到50分，希望大家踊跃回答

[zyl910]

在我的CoolGUI、ZXPMenu中有此功能


我编的自绘菜单：

http://zyl910vb.51.net/vb/wdzp/DrawMenu-S.htm（有注释！特地为想学自绘菜单的人写的）
http://zyl910vb.51.net/vb/wdzp/CoolGUI.htm（效果比较好，但没有注释）
http://zyl910vb.51.net/vb/wdzp/ZXPMenu.htm（XP风格的菜单）

（注意把下载后的*.zip.jpg改名成*.zip）

[lianghong]

我已经做出来了，不过你的分太少了，能给150分吗？我不开玩笑！ 花了我两个小时呢！

[lianghong]

我真的是搞掂了,你信我就先给分, 我就帖代码给你

[laisiwei]

To lianghong(寂寞水手)
你放心好了，分数至少会给你180分
你先把方法贴上来，结分以后就不能发言了。

[SeeSunSet]

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long

Private Sub LoadRes()
Dim I As Long

For I = 1 To 11
ImgList1.ListImages.Add , , LoadResPicture(I + 100, vbResIcon)
Next I

End Sub

Private Sub Form_Load()
LoadRes

'设置消息处理程序地址
MeOldWndProc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf WindowProc)

Set IcoImgList = ImgList1 '设置菜单图标的 ImageList

Dim hMainMenu As Long, hSubMenu As Long

hMainMenu = GetMenu(Me.hwnd) '取得窗体菜单的句柄

hSubMenu = GetSubMenu(hMainMenu, 0) '取得第一个菜单（File）的句柄
Call RstMenu(hSubMenu, 0, "mnuOpen", 1)
Call RstMenu(hSubMenu, 1, "mnuSave", 2)
Call RstMenu(hSubMenu, 3, "mnuQuit", 3)

hSubMenu = GetSubMenu(hMainMenu, 1) '取得第 二个菜单（Edit）的句柄
Call RstMenu(hSubMenu, 0, "mnuUndo", 4)
Call RstMenu(hSubMenu, 2, "mnuCut", 5)
Call RstMenu(hSubMenu, 3, "mnuCopy", 6)
Call RstMenu(hSubMenu, 4, "mnuPaste", 7)
Call RstMenu(hSubMenu, 5, "mnuDel", 8)

hSubMenu = GetSubMenu(hMainMenu, 2) '取得第三个菜单（Help）的句柄
Call RstMenu(hSubMenu, 0, "mnuHomePage", 9)
Call RstMenu(hSubMenu, 1, "mnuEMail", 10)
Call RstMenu(hSubMenu, 3, "mnuAbout", 11)

Text1_DblClick

End Sub

Private Sub Form_Unload(Cancel As Integer)
'恢复原消息处理程序地址
Call SetWindowLong(Me.hwnd, GWL_WNDPROC, MeOldWndProc)

SMenus.Clear

End Sub

Private Sub mnuAbout_Click()
Call ShellAbout(Me.hwnd, _
Me.Caption, _
Text1.Text, _
Me.Icon)

End Sub

Private Sub mnuEMail_Click()
ShellExecute 0, "open", "mailto:[e-mail]", vbNullString, vbNullString, 3

End Sub

Private Sub mnuHomePage_Click()
ShellExecute 0, "open", "http://zyl910.yeah.net", vbNullString, vbNullString, 3

End Sub

Private Sub mnuOpen_Click()
mnuOpen.Checked = Not mnuOpen.Checked
mnuSave.Checked = False

End Sub

Private Sub mnuQuit_Click()
Unload Me

End Sub

Private Sub mnuSave_Click()
mnuSave.Checked = Not mnuSave.Checked

End Sub

Private Sub mnuUndo_Click()
mnuUndo.Checked = Not mnuUndo.Checked

End Sub

Private Sub Text1_Change()
'
End Sub

Private Sub Text1_DblClick()
Text1.Text = "这是我为初学者编写的" + vbCrLf _
+ " ——简单自画菜单" + vbCrLf _
+ vbCrLf _
+ "它是最基本的自画菜单，只能设定Check属性。" + vbCrLf _
+ vbCrLf _
+ "作者信息：" + vbCrLf _
+ " Name = zyl910" + vbCrLf _
+ " E-Mail = [e-mail]" + vbCrLf _
+ " HomePage = zyl910.yeah.net"

End Sub

*******祝************你*************平*************安************
西出阳关谁为我拨一首心弦,对月无眠是非恩怨如缕如烟,游子归客梦断故乡云水之间,西风古道回首一片秋水长天..

[vbdabster]

API声明和常量声明我就不粘了：
Public Sub Hook(frm As Form)0D Set appForm = frm
gHW = frm.hwnd
lpPrevWndProc = SetWindowLong(gHW, GWL_WNDPROC, AddressOf WindowProcEx)
0AEnd Sub

Public Sub UnHook()
Dim lReturnValue As Long0D lReturnValue = SetWindowLong(gHW, GWL_WNDPROC, lpPrevWndProc)
End Sub
Public Sub FindHiLight(theForm As Form)
Dim hMenu As Long
Dim hSubMenu As Long
Dim i As Long
Dim MenuCount As Long
0A
frmTest.Caption = ""

hMenu = GetMenu(theForm.hwnd)

If hMenu <> 0 Then
MenuCount = GetMenuItemCount(hMenu)
theForm.Label2 = CStr(MenuCount)
For i = 0 To MenuCount - 1
If GetMenuState(hMenu, i, MF_BYPOSITION) And _
MF_HILITE Then

hSubMenu = GetSubMenu(hMenu, i)

WalkSubMenu hSubMenu
End If
Next i
End If

End Sub

Private Function GetDescription(MenuCaption As String) As String
Select Case MenuCaption
Case "New"
GetDescription = "Creates a new document"
0A Case "Open"
GetDescription = "Opens a Document"
Case "Close"
GetDescription = "Closes Document"
Case "Cut"
GetDescription = "Cuts Selection to Clipboard"
Case "Copy"
GetDescription = "Copies Selection to Clipboard"
Case "Paste"
GetDescription = "Pastes Contents of Clipboard"
Case "Normal"
GetDescription = "Regular Paste"
Case "Special"
GetDescription = "Special Paste"
Case Else
GetDescription = "other"
End Select
End Function


Private Sub WalkSubMenu(hSubMenu As Long)
Dim i As Long
Dim MenuItems As Long
0A Dim hSubSubMenu As Long
Dim buffer As String
Dim result As Long

MenuItems = GetMenuItemCount(hSubMenu)

For i = 0 To MenuItems - 1
If GetMenuState(hSubMenu, i, MF_BYPOSITION) And _
MF_HILITE Then0D hSubSubMenu = GetSubMenu(hSubMenu, i)

If hSubSubMenu And AnyLit(hSubSubMenu) Then
WalkSubMenu hSubSubMenu
Else 'This is it.
buffer = Space(255)

result = GetMenuString(hSubMenu, i, buffer, _
Len(buffer), MF_BYPOSITION)

buffer = Left$(buffer, result)

frmTest.Caption = GetDescription(buffer)

Exit Sub
End If
End If
Next i
End Sub

Function AnyLit(hSubSubMenu As Long) As Long
Dim i As Long
Dim MenuCount As Long
0A
MenuCount = GetMenuItemCount(hSubSubMenu)

For i = 0 To MenuCount - 1
If GetMenuState(hSubSubMenu, i, MF_BYPOSITION) And _
MF_HILITE Then0D AnyLit = True
Exit Function
0A End If
Next i

AnyLit = False
End Function

Function WindowProcEx(ByVal hwnd As Long, _
ByVal uMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long


Select Case uMsg
Case WM_MENUSELECT
0A FindHiLight frmTest
End Select


WindowProcEx = CallWindowProc(lpPrevWndProc, hwnd, uMsg, wParam, lParam)0D
End Function
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
我得龌龊女友
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

[vbdabster]

以上是对Form的Caption进行改变的，如果对StatusBar进行改变，相信你也知道很简单。里面的Label2是我做测试用的，没有想到也展到了上面，不好意思。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
我得龌龊女友
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

[laisiwei]

我第一次用StatusBar控件，原以为很简单。没想到有这么复杂。
现在把分数加到200，希望大家踊跃回答

[vbdabster]

同意上面的拦截WM_MENUSELECT消息，具体实现如下：
================================================================

CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！

★ 浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★ 多种帖子实现界面。
★ 保存帖子到本地[html格式]★ 监视您关注帖子的回复更新。
★ 可以直接发贴、回复帖子★ 采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！
★ 支持在线检测程序升级情况，可及时获得程序更新的信息。

★★ 签名 ●
可以在您的每个帖子的后面自动加上一个自己设计的签名哟。

Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe [自解压]

[vbdabster]

他们的，用论坛助手竟然生成了这么多垃圾。
步骤1：用HOOK拦截WM_MENUSELECT消息
2：GetMenu得到系统菜单
3：GetMenuItemCount得到顶层菜单数目
4：GetMenuState判断是否高亮
5：如果是，可用GetSubMenu得到子菜单，在这一级中使用递规来实现对所有子菜单的查找
6：得到高亮的子菜单后，可用GetMenuString得到菜单的Caption
7：可以根据Caption来改变StatusBar的值
================================================================

CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！

★ 浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★ 多种帖子实现界面。
★ 保存帖子到本地[html格式]★ 监视您关注帖子的回复更新。
★ 可以直接发贴、回复帖子★ 采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！
★ 支持在线检测程序升级情况，可及时获得程序更新的信息。

★★ 签名 ●
可以在您的每个帖子的后面自动加上一个自己设计的签名哟。

Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe [自解压]

[vbdabster]

冤枉人家了，向论坛助手的作者道歉
我得龌龊女友

[laisiwei]

好吧，邮箱是
[e-mail]

[lianghong]

如果你有油箱， 请先给分，并留下邮箱，不论楼上代码你是不是认为正确， 我保证：我的代码比他们的短，而且有效！！！！！

[vbdabster]

我考斯你妈妈