Type | Description | |||
Boolean | A Boolean expression that indicates whether the item is checked or unchecked. |
How can I add check-buttons?
VBA (MS Access, Excell...)
With Ribbon1 With .Items With .Add("",2) .GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup With .Items With .Add("Check 1") .Check = True .Checked = True End With .Add("Check 2").Check = True End With End With End With .Refresh End With
VB6
With Ribbon1 With .Items With .Add("",2) .GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup With .Items With .Add("Check 1") .Check = True .Checked = True End With .Add("Check 2").Check = True End With End With End With .Refresh End With
VB.NET
With Exribbon1 With .Items With .Add("",2) .GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup With .Items With .Add("Check 1") .Check = True .Checked = True End With .Add("Check 2").Check = True End With End With End With .Refresh() End With
VB.NET for /COM
With AxRibbon1 With .Items With .Add("",2) .GroupPopup = EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or EXRIBBONLib.GroupPopupEnum.exGroupPopup With .Items With .Add("Check 1") .Check = True .Checked = True End With .Add("Check 2").Check = True End With End With End With .Refresh() End With
C++
/* Copy and paste the following directives to your header file as it defines the namespace 'EXRIBBONLib' for the library: 'ExRibbon 1.0 Control Library' #import <ExRibbon.dll> using namespace EXRIBBONLib; */ EXRIBBONLib::IRibbonPtr spRibbon1 = GetDlgItem(IDC_RIBBON1)->GetControlUnknown(); EXRIBBONLib::IItemsPtr var_Items = spRibbon1->GetItems(); EXRIBBONLib::IItemPtr var_Item = var_Items->Add(L"",long(2),vtMissing); var_Item->PutGroupPopup(EXRIBBONLib::GroupPopupEnum(EXRIBBONLib::exNoGroupPopupFrame | EXRIBBONLib::exGroupPopup)); EXRIBBONLib::IItemsPtr var_Items1 = var_Item->GetItems(); EXRIBBONLib::IItemPtr var_Item1 = var_Items1->Add(L"Check 1",vtMissing,vtMissing); var_Item1->PutCheck(VARIANT_TRUE); var_Item1->PutChecked(VARIANT_TRUE); var_Items1->Add(L"Check 2",vtMissing,vtMissing)->PutCheck(VARIANT_TRUE); spRibbon1->Refresh();
C++ Builder
Exribbonlib_tlb::IItemsPtr var_Items = Ribbon1->Items; Exribbonlib_tlb::IItemPtr var_Item = var_Items->Add(L"",TVariant(2),TNoParam()); var_Item->GroupPopup = Exribbonlib_tlb::GroupPopupEnum::exNoGroupPopupFrame | Exribbonlib_tlb::GroupPopupEnum::exGroupPopup; Exribbonlib_tlb::IItemsPtr var_Items1 = var_Item->Items; Exribbonlib_tlb::IItemPtr var_Item1 = var_Items1->Add(L"Check 1",TNoParam(),TNoParam()); var_Item1->Check = true; var_Item1->Checked = true; var_Items1->Add(L"Check 2",TNoParam(),TNoParam())->Check = true; Ribbon1->Refresh();
C#
exontrol.EXRIBBONLib.Items var_Items = exribbon1.Items; exontrol.EXRIBBONLib.Item var_Item = var_Items.Add("",2,null); var_Item.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame | exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup; exontrol.EXRIBBONLib.Items var_Items1 = var_Item.Items; exontrol.EXRIBBONLib.Item var_Item1 = var_Items1.Add("Check 1",null,null); var_Item1.Check = true; var_Item1.Checked = true; var_Items1.Add("Check 2",null,null).Check = true; exribbon1.Refresh();
JScript/JavaScript
<BODY onload='Init()'> <OBJECT CLASSID="clsid:DDF58CFA-750F-45E0-8A00-CFBE431702E2" id="Ribbon1"></OBJECT> <SCRIPT LANGUAGE="JScript"> function Init() { var var_Items = Ribbon1.Items; var var_Item = var_Items.Add("",2,null); var_Item.GroupPopup = 3; var var_Items1 = var_Item.Items; var var_Item1 = var_Items1.Add("Check 1",null,null); var_Item1.Check = true; var_Item1.Checked = true; var_Items1.Add("Check 2",null,null).Check = true; Ribbon1.Refresh(); } </SCRIPT> </BODY>
VBScript
<BODY onload='Init()'> <OBJECT CLASSID="clsid:DDF58CFA-750F-45E0-8A00-CFBE431702E2" id="Ribbon1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Ribbon1 With .Items With .Add("",2) .GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup With .Items With .Add("Check 1") .Check = True .Checked = True End With .Add("Check 2").Check = True End With End With End With .Refresh End With End Function </SCRIPT> </BODY>
C# for /COM
EXRIBBONLib.Items var_Items = axRibbon1.Items; EXRIBBONLib.Item var_Item = var_Items.Add("",2,null); var_Item.GroupPopup = EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame | EXRIBBONLib.GroupPopupEnum.exGroupPopup; EXRIBBONLib.Items var_Items1 = var_Item.Items; EXRIBBONLib.Item var_Item1 = var_Items1.Add("Check 1",null,null); var_Item1.Check = true; var_Item1.Checked = true; var_Items1.Add("Check 2",null,null).Check = true; axRibbon1.Refresh();
X++ (Dynamics Ax 2009)
public void init() { COM com_Item,com_Item1,com_Item2,com_Items,com_Items1; anytype var_Item,var_Item1,var_Item2,var_Items,var_Items1; ; super(); var_Items = exribbon1.Items(); com_Items = var_Items; var_Item = com_Items.Add("",COMVariant::createFromInt(2)); com_Item = var_Item; com_Item.GroupPopup(3/*exNoGroupPopupFrame | exGroupPopup*/); var_Items1 = com_Item.Items(); com_Items1 = var_Items1; var_Item1 = com_Items1.Add("Check 1"); com_Item1 = var_Item1; com_Item1.Check(true); com_Item1.Checked(true); var_Item2 = COM::createFromObject(com_Items1.Add("Check 2")); com_Item2 = var_Item2; com_Item2.Check(true); exribbon1.Refresh(); }
Delphi 8 (.NET only)
with AxRibbon1 do begin with Items do begin with Add('',TObject(2),Nil) do begin GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup); with Items do begin with Add('Check 1',Nil,Nil) do begin Check := True; Checked := True; end; Add('Check 2',Nil,Nil).Check := True; end; end; end; Refresh(); end
Delphi (standard)
with Ribbon1 do begin with Items do begin with Add('',OleVariant(2),Null) do begin GroupPopup := Integer(EXRIBBONLib_TLB.exNoGroupPopupFrame) Or Integer(EXRIBBONLib_TLB.exGroupPopup); with Items do begin with Add('Check 1',Null,Null) do begin Check := True; Checked := True; end; Add('Check 2',Null,Null).Check := True; end; end; end; Refresh(); end
VFP
with thisform.Ribbon1 with .Items with .Add("",2) .GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup with .Items with .Add("Check 1") .Check = .T. .Checked = .T. endwith .Add("Check 2").Check = .T. endwith endwith endwith .Refresh endwith
dBASE Plus
local oRibbon,var_Item,var_Item1,var_Item2,var_Items,var_Items1 oRibbon = form.Activex1.nativeObject var_Items = oRibbon.Items var_Item = var_Items.Add("",2) var_Item.GroupPopup = 3 /*exNoGroupPopupFrame | exGroupPopup*/ var_Items1 = var_Item.Items var_Item1 = var_Items1.Add("Check 1") var_Item1.Check = true var_Item1.Checked = true // var_Items1.Add("Check 2").Check = true var_Item2 = var_Items1.Add("Check 2") with (oRibbon) TemplateDef = [Dim var_Item2] TemplateDef = var_Item2 Template = [var_Item2.Check = true] endwith oRibbon.Refresh()
XBasic (Alpha Five)
Dim oRibbon as P Dim var_Item as P Dim var_Item1 as P Dim var_Item2 as P Dim var_Items as P Dim var_Items1 as P oRibbon = topparent:CONTROL_ACTIVEX1.activex var_Items = oRibbon.Items var_Item = var_Items.Add("",2) var_Item.GroupPopup = 3 'exNoGroupPopupFrame + exGroupPopup var_Items1 = var_Item.Items var_Item1 = var_Items1.Add("Check 1") var_Item1.Check = .t. var_Item1.Checked = .t. ' var_Items1.Add("Check 2").Check = .t. var_Item2 = var_Items1.Add("Check 2") oRibbon.TemplateDef = "Dim var_Item2" oRibbon.TemplateDef = var_Item2 oRibbon.Template = "var_Item2.Check = True" oRibbon.Refresh()
Visual Objects
local var_Item,var_Item1 as IItem local var_Items,var_Items1 as IItems var_Items := oDCOCX_Exontrol1:Items var_Item := var_Items:Add("",2,nil) var_Item:GroupPopup := exNoGroupPopupFrame | exGroupPopup var_Items1 := var_Item:Items var_Item1 := var_Items1:Add("Check 1",nil,nil) var_Item1:Check := true var_Item1:Checked := true var_Items1:Add("Check 2",nil,nil):Check := true oDCOCX_Exontrol1:Refresh()
PowerBuilder
OleObject oRibbon,var_Item,var_Item1,var_Items,var_Items1 oRibbon = ole_1.Object var_Items = oRibbon.Items var_Item = var_Items.Add("",2) var_Item.GroupPopup = 3 /*exNoGroupPopupFrame | exGroupPopup*/ var_Items1 = var_Item.Items var_Item1 = var_Items1.Add("Check 1") var_Item1.Check = true var_Item1.Checked = true var_Items1.Add("Check 2").Check = true oRibbon.Refresh()
Visual DataFlex
Procedure OnCreate Forward Send OnCreate Variant voItems Get ComItems to voItems Handle hoItems Get Create (RefClass(cComItems)) to hoItems Set pvComObject of hoItems to voItems Variant voItem Get ComAdd of hoItems "" 2 Nothing to voItem Handle hoItem Get Create (RefClass(cComItem)) to hoItem Set pvComObject of hoItem to voItem Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup) Variant voItems1 Get ComItems of hoItem to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Variant voItem1 Get ComAdd of hoItems1 "Check 1" Nothing Nothing to voItem1 Handle hoItem1 Get Create (RefClass(cComItem)) to hoItem1 Set pvComObject of hoItem1 to voItem1 Set ComCheck of hoItem1 to True Set ComChecked of hoItem1 to True Send Destroy to hoItem1 Variant voItem2 Get ComAdd of hoItems1 "Check 2" Nothing Nothing to voItem2 Handle hoItem2 Get Create (RefClass(cComItem)) to hoItem2 Set pvComObject of hoItem2 to voItem2 Set ComCheck of hoItem2 to True Send Destroy to hoItem2 Send Destroy to hoItems1 Send Destroy to hoItem Send Destroy to hoItems Send ComRefresh End_Procedure
XBase++
#include "AppEvent.ch" #include "ActiveX.ch" PROCEDURE Main LOCAL oForm LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL LOCAL oItem,oItem1 LOCAL oItems,oItems1 LOCAL oRibbon oForm := XbpDialog():new( AppDesktop() ) oForm:drawingArea:clipChildren := .T. oForm:create( ,,{100,100}, {640,480},, .F. ) oForm:close := {|| PostAppEvent( xbeP_Quit )} oRibbon := XbpActiveXControl():new( oForm:drawingArea ) oRibbon:CLSID := "Exontrol.Ribbon.1" /*{DDF58CFA-750F-45E0-8A00-CFBE431702E2}*/ oRibbon:create(,, {10,60},{610,370} ) oItems := oRibbon:Items() oItem := oItems:Add("",2) oItem:GroupPopup := 3/*exNoGroupPopupFrame+exGroupPopup*/ oItems1 := oItem:Items() oItem1 := oItems1:Add("Check 1") oItem1:Check := .T. oItem1:Checked := .T. oItems1:Add("Check 2"):Check := .T. oRibbon:Refresh() oForm:Show() DO WHILE nEvent != xbeP_Quit nEvent := AppEvent( @mp1, @mp2, @oXbp ) oXbp:handleEvent( nEvent, mp1, mp2 ) ENDDO RETURN