test.frm

delphi控件

       Case "mnuColor4"
            .MenuBarLeftColor = vbHighlight
            .MenuBarRightColor = vbHighlight

            For i = 1 To COLOR_NUM
            .MenuBarItems("mnuColor" & i).Checked = False
            Next i
            
            MenuItem.Checked = True
        Case "mnuStyle1"
            
            .HiLightBorderColor = &H6A240A
            .MenuBarLeftColor = vbHighlight
            .MenuBarRightColor = vbHighlight
            .LeftBarTopColor = vbHighlight
            .LeftBarBottomColor = vbMenuBar
            
            .MenuBackColor = vbMenuBar
            
            .SepStyle = 1
            .TransitionDirect = 0
            .IconLeft = 0
            .MenuTextLeft = 22
            .LeftBarWidth = 0
            .HiLightLeft = 21
            .IconBorderStyle = 3
            .BorderStyle = 0
            
            .MenuSelTextColor = vbHighlightText
            
            For i = 1 To STYLE_NUM
            .MenuBarItems("mnuStyle" & i).Checked = False
            Next i
            
            MenuItem.Checked = True

        Case "mnuStyle2"
            
            .HiLightBorderColor = &H6A240A
            .MenuBarLeftColor = vbHighlight
            .MenuBarRightColor = vbHighlight
            .LeftBarTopColor = vbHighlight
            .LeftBarBottomColor = vbMenuBar
            
            .MenuBackColor = vbMenuBar
            
            .SepStyle = 1
            .TransitionDirect = 0
            .IconLeft = 0
            .MenuTextLeft = 22
            .LeftBarWidth = 0
            .HiLightLeft = 0
            .IconBorderStyle = 0
            .BorderStyle = 0
            
            .MenuSelTextColor = vbHighlightText
            For i = 1 To STYLE_NUM
            .MenuBarItems("mnuStyle" & i).Checked = False
            Next i
            
            MenuItem.Checked = True


        Case "mnuStyle3"

            .HiLightBorderColor = &H6A240A
            .MenuBarLeftColor = vbHighlight
            .MenuBarRightColor = vbHighlight
            .LeftBarTopColor = vbHighlight
            .LeftBarBottomColor = vbMenuBar

            .SepStyle = 1
            .TransitionDirect = 4
            .IconLeft = 0
            .MenuTextLeft = 22
            .LeftBarWidth = 0
            .HiLightLeft = 21
            .IconBorderStyle = 3
            .BorderStyle = 3

            .MenuSelTextColor = vbBlack
            For i = 1 To STYLE_NUM
            .MenuBarItems("mnuStyle" & i).Checked = False
            Next i
            
            MenuItem.Checked = True


        Case "mnuStyle4"

            .HiLightBorderColor = &H6A240A
            .MenuBarLeftColor = vbHighlight
            .MenuBarRightColor = vbHighlight
            .LeftBarTopColor = vbHighlight
            .LeftBarBottomColor = vbMenuBar
'
            .SepStyle = 1
            .TransitionDirect = 4
            .IconLeft = 0
            .MenuTextLeft = 22
            .LeftBarWidth = 0
            .HiLightLeft = 21
            .IconBorderStyle = 4
            .BorderStyle = 4

            .MenuSelTextColor = vbBlack
            For i = 1 To STYLE_NUM
            .MenuBarItems("mnuStyle" & i).Checked = False
            Next i
            
            MenuItem.Checked = True


        Case "mnuStyle5"

            .HiLightBorderColor = vbHighlight
            .MenuBarLeftColor = vbHighlight
            .MenuBarRightColor = vbMenuBar
            .LeftBarTopColor = vbHighlight
            .LeftBarBottomColor = vbMenuBar

            .MenuBackColor = vbMenuBar

            .SepStyle = 1
            .TransitionDirect = 1
            .IconLeft = 0
            .MenuTextLeft = 22
            .LeftBarWidth = 0
            .HiLightLeft = 21
            .IconBorderStyle = 3
            .BorderStyle = 0

            .MenuSelTextColor = vbHighlightText
                        For i = 1 To STYLE_NUM
            .MenuBarItems("mnuStyle" & i).Checked = False
            Next i
            
            MenuItem.Checked = True


        Case "mnuStyle6"


            .HiLightBorderColor = &H6A240A
            .MenuBarLeftColor = &HEED2D1
            .MenuBarRightColor = &HEED2D1
            .LeftBarTopColor = &HE1E8E8
            .MenuBackColor = &HF7F8F9

            .SepStyle = 0
            .TransitionDirect = 1
            .IconLeft = 0
            .MenuTextLeft = 22
            .LeftBarWidth = 20
            .HiLightLeft = 0
            .IconBorderStyle = 0
            .BorderStyle = 1

            .MenuSelTextColor = vbBlack
            
            For i = 1 To STYLE_NUM
            .MenuBarItems("mnuStyle" & i).Checked = False
            Next i
            
            MenuItem.Checked = True


        Case "mnuStyle7"


            .HiLightBorderColor = &H6A240A
            .MenuBarLeftColor = &HD2BDB6
            .MenuBarRightColor = &HFFDDFF
            .LeftBarTopColor = &HE1E8E8
            .MenuBackColor = &HF7F8F9

            .SepStyle = 0
            .TransitionDirect = 1
            .IconLeft = 0
            .MenuTextLeft = 22
            .LeftBarWidth = 20
            .HiLightLeft = 0
            .IconBorderStyle = 0
            .BorderStyle = 1

            .MenuSelTextColor = vbBlack
            For i = 1 To STYLE_NUM
            .MenuBarItems("mnuStyle" & i).Checked = False
            Next i
            
            MenuItem.Checked = True

        Case "mnuStyle8"


            .HiLightBorderColor = &H6A240A
            .MenuBarLeftColor = &HEED2D1
            .MenuBarRightColor = &HEED2D1
            .LeftBarTopColor = &HE1E8E8
            .MenuBackColor = &HF7F8F9

            .SepStyle = 0
            .TransitionDirect = 1
            .IconLeft = 0
            .MenuTextLeft = 22
            .LeftBarWidth = 20
            .HiLightLeft = 0
            .IconBorderStyle = 0
            .BorderStyle = 2

            .MenuSelTextColor = vbBlack
            
            For i = 1 To STYLE_NUM
            .MenuBarItems("mnuStyle" & i).Checked = False
            Next i
            
            MenuItem.Checked = True
        Case Else
            MsgBox "你选了<<" & MenuItem.ItemName & ">>菜单命令", vbInformation, "测试"
    End Select
    End With
End Sub



Private Sub CoolMenu1_MenuClose()
    Label2.Caption = ""
End Sub

Private Sub CoolMenu1_MenuSelect(MenuItem As LXDCoolMenu.CoolMenuItem)
    Label2.Caption = MenuItem.infostring
End Sub



Private Sub Form_Load()
Form2.Show
End Sub

Private Sub Form_Paint()
    Me.CurrentX = 200
    Me.CurrentY = 200
    Me.Print "Please click use rightmouse ..."
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then CoolMenu1.PopupMenuByName "mnuOption"
End Sub