[分享]另类方法在VBA窗体中实现OFFICE风格菜单栏

汪淑萍

清风_ll 发表于 2006-6-3 19:40
感谢各位的支持，您们的支持是我进步的动力。

版主那么容易叫,你也叫.有学问的人就是不一样.

hxsexcel

{:soso_e109:}提示：丢失了ActiveX控件

rflhjl

Private Sub Menu_Select() '选择菜单
On Error Resume Next
    Dim Pt_Menu_RightBottom As POINTAPI, Pt_Menu_LeftTop As POINTAPI
    With WorkForm
        UnSelectLastMenu
        Set LastSelect_Menu = BackMenu_BackGroud
        With BackMenu_BackGroud
            .BorderStyle = fmBorderStyleSingle
            .BorderColor = RGB(0, 0, 128)
            .BackStyle = fmBackStyleOpaque
            If bMenuSelected = False Then
                WorkForm.Controls("BackMenu_BackGroud" & Index).BackColor = &HFFC0C0
            Else
                WorkForm.Controls("BackMenu_BackGroud" & Index).BackColor = &HE0E0E0
                pt.X = MenuBar_MenuItem.Left * 1.33
                pt.Y = (MenuBar_MenuItem.Top + MenuBar_MenuItem.Height) * 1.33 + 3
                ClientToScreen hForm, pt
                If OnAction <> "" Then
                   Application.Run OnAction
                End If
            End If
        End With
    End With
End Sub
Private Sub UnSelectLastMenu() '取消上次选择
If Not LastSelect_Menu Is Nothing Then
    With LastSelect_Menu
        .Picture = LoadPicture("")
        .BackStyle = fmBackStyleTransparent
        .BorderStyle = fmBorderStyleNone
    End With
End If
End Sub子过程或函数未定义

rflhjl

有那位老师帮我解决一下：

goldowl2011

Thank you very much.Good idea and good codes.

wh1272

菜单的快捷键怎么不管用啊？

wh1272

窗体菜单中的"文件（F）",为什么按alt+F后菜单并没有下拉，就是快捷键没有反应呢？

lysm

好贴支持。。。。。

yl1991

大师作品，的确不错，如果能封装成VB就更好了！

wh1272

非常实用！