Codejock Developer Community : Control.Checked

Control.Checked : Hello oleg, you know what you...

Mon, 28 Aug 2006 13:42:30 +0000

Author: Detlev Schubert
Subject: 4903
Posted: 28 August 2006 at 1:42pm

Hello oleg,

you know what you are ? You are my hero, thx a lot.

Why is there no Description for this Control. I is a very hard work to use this control correctly only with the symbol reference, because this great and fine control is very extensive. In VB you have only a click-event, but here are two, and which is the first event ?

kindly regards

Detlev

Control.Checked : Hi, Here code: Dim Checked(1...

Mon, 28 Aug 2006 12:32:49 +0000

Author: Oleg
Subject: 4903
Posted: 28 August 2006 at 12:32pm

Hi,

Here code:

Dim Checked(1 To 3) As Long

Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
    If (Control.Id >= 100 And Control.Id <= 105) Then
        Checked(2) = Checked(1)
        Checked(1) = Control.Id
    End If

    If (Control.Id >= 120 And Control.Id <= 122) Then
        Checked(3) = Control.Id
    End If
End Sub

Private Sub CommandBars_Update(ByVal Control As XtremeCommandBars.ICommandBarControl)

    If (Control.Id >= 100 And Control.Id <= 105) Then
           Control.Checked = Control.Id = Checked(1) Or Control.Id = Checked(2)
    End If

    If (Control.Id >= 120 And Control.Id <= 122) Then
           Control.Checked = Control.Id = Checked(3)
    End If
End Sub

Private Sub Form_Load()
    Dim Popup As CommandBarPopup
    Set Popup = CommandBars.ActiveMenuBar.Controls.Add(xtpControlPopup, 0, "Menu")
    With Popup.CommandBar.Controls
        .Add xtpControlButton, 100, "Item 1"
        .Add xtpControlButton, 101, "Item 2"
        .Add xtpControlButton, 102, "Item 3"
        .Add xtpControlButton, 103, "Item 4"
        .Add xtpControlButton, 104, "Item 5"
        .Add xtpControlButton, 105, "Item 6"

        Set Control = .Add(xtpControlButton, 120, "Item 1")
        Control.BeginGroup = True
        .Add xtpControlButton, 121, "Item 2"
        .Add xtpControlButton, 122, "Item 3"
    End With
End Sub

Control.Checked : Hello, nice anwer , but perhaps...

Mon, 28 Aug 2006 12:18:08 +0000

Author: Detlev Schubert
Subject: 4903
Posted: 28 August 2006 at 12:18pm

Hello,

nice anwer , but perhaps you have a sample how I can do that ?

thx Detlev

Control.Checked : Hello, Execure and Update event...

Mon, 28 Aug 2006 12:11:57 +0000

Author: Oleg
Subject: 4903
Posted: 28 August 2006 at 12:11pm

Hello,

Execure and Update event + variable what control was checked.

Control.Checked : Hello, I have a menupoint with...

Mon, 28 Aug 2006 11:40:35 +0000

Author: Detlev Schubert
Subject: 4903
Posted: 28 August 2006 at 11:40am

Hello,

I have a menupoint with two sections, how can I do that, that I can check in the fist part max 2 Items, and in the second part only one Item. Sample:

Item 1

Item 2

Item 3

Item 4

Item 5

Item 6

---------

Item 1

Item 2

Item 3

thx Detlev