Type | Description | |||
String | A String expression that specifies the key of the context to be open next ( value of the Context parameter of the Context property ). |
By default, the ActiveContextItems property is empty. The ActiveContextItems property defines the key of the current context. The PagesContextItems property specifies the pages (key[:caption]) of the control's sensitive context, separated by comma character. Use the Context collection to customize the list of keywords when the code completion is enabled. The control can display multiple pages on the control's sensitive context, if multiple key-context are defined. Use the CodeCompletion property to disable the code completion support. By default, the user can display the control's context window by pressing the CTRL + SPACE key combination. Use the ContextKey property to define the key combination to open the control's context window. The ShowContext method shows programmatically the control's context, as the user would press the CTRL + SPACE key.
How can I display more pages on the control's sensitive context?
VBA (MS Access, Excell...)
With Edit1 With .Context() .Add "First_1" .Add "First_2" End With With .Context("Second") .Add "Second_1" .Add "Second_2" .Add "Second_3" End With .ActiveContextItems = "Second" .PagesContextItems = ":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>" End With
VB6
With Edit1 With .Context() .Add "First_1" .Add "First_2" End With With .Context("Second") .Add "Second_1" .Add "Second_2" .Add "Second_3" End With .ActiveContextItems = "Second" .PagesContextItems = ":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>" End With
VB.NET
With Exedit1 With .get_Context() .Add("First_1") .Add("First_2") End With With .get_Context("Second") .Add("Second_1") .Add("Second_2") .Add("Second_3") End With .ActiveContextItems = "Second" .PagesContextItems = ":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>" End With
VB.NET for /COM
With AxEdit1 With .get_Context() .Add("First_1") .Add("First_2") End With With .get_Context("Second") .Add("Second_1") .Add("Second_2") .Add("Second_3") End With .ActiveContextItems = "Second" .PagesContextItems = ":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>" End With
C++
/* Copy and paste the following directives to your header file as it defines the namespace 'EXEDITLib' for the library: 'ExEdit 1.0 Control Library' #import <ExEdit.dll> using namespace EXEDITLib; */ EXEDITLib::IEditPtr spEdit1 = GetDlgItem(IDC_EDIT1)->GetControlUnknown(); EXEDITLib::IEditContextPtr var_Context = spEdit1->GetContext(vtMissing); var_Context->Add(L"First_1",vtMissing,vtMissing,vtMissing); var_Context->Add(L"First_2",vtMissing,vtMissing,vtMissing); EXEDITLib::IEditContextPtr var_Context1 = spEdit1->GetContext("Second"); var_Context1->Add(L"Second_1",vtMissing,vtMissing,vtMissing); var_Context1->Add(L"Second_2",vtMissing,vtMissing,vtMissing); var_Context1->Add(L"Second_3",vtMissing,vtMissing,vtMissing); spEdit1->PutActiveContextItems(L"Second"); spEdit1->PutPagesContextItems(L":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>");
C++ Builder
Exeditlib_tlb::IEditContextPtr var_Context = Edit1->Context[TNoParam()]; var_Context->Add(L"First_1",TNoParam(),TNoParam(),TNoParam()); var_Context->Add(L"First_2",TNoParam(),TNoParam(),TNoParam()); Exeditlib_tlb::IEditContextPtr var_Context1 = Edit1->Context[TVariant("Second")]; var_Context1->Add(L"Second_1",TNoParam(),TNoParam(),TNoParam()); var_Context1->Add(L"Second_2",TNoParam(),TNoParam(),TNoParam()); var_Context1->Add(L"Second_3",TNoParam(),TNoParam(),TNoParam()); Edit1->ActiveContextItems = L"Second"; Edit1->PagesContextItems = L":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>";
C#
exontrol.EXEDITLib.Context var_Context = exedit1.get_Context(null); var_Context.Add("First_1",null,null,null); var_Context.Add("First_2",null,null,null); exontrol.EXEDITLib.Context var_Context1 = exedit1.get_Context("Second"); var_Context1.Add("Second_1",null,null,null); var_Context1.Add("Second_2",null,null,null); var_Context1.Add("Second_3",null,null,null); exedit1.ActiveContextItems = "Second"; exedit1.PagesContextItems = ":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>";
JScript/JavaScript
<BODY onload="Init()"> <OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT> <SCRIPT LANGUAGE="JScript"> function Init() { var var_Context = Edit1.Context(null); var_Context.Add("First_1",null,null,null); var_Context.Add("First_2",null,null,null); var var_Context1 = Edit1.Context("Second"); var_Context1.Add("Second_1",null,null,null); var_Context1.Add("Second_2",null,null,null); var_Context1.Add("Second_3",null,null,null); Edit1.ActiveContextItems = "Second"; Edit1.PagesContextItems = ":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>"; } </SCRIPT> </BODY>
VBScript
<BODY onload="Init()"> <OBJECT CLASSID="clsid:39136531-DD0F-4281-B445-E36FC2CDDBC5" id="Edit1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Edit1 With .Context() .Add "First_1" .Add "First_2" End With With .Context("Second") .Add "Second_1" .Add "Second_2" .Add "Second_3" End With .ActiveContextItems = "Second" .PagesContextItems = ":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>" End With End Function </SCRIPT> </BODY>
C# for /COM
EXEDITLib.Context var_Context = axEdit1.get_Context(null); var_Context.Add("First_1",null,null,null); var_Context.Add("First_2",null,null,null); EXEDITLib.Context var_Context1 = axEdit1.get_Context("Second"); var_Context1.Add("Second_1",null,null,null); var_Context1.Add("Second_2",null,null,null); var_Context1.Add("Second_3",null,null,null); axEdit1.ActiveContextItems = "Second"; axEdit1.PagesContextItems = ":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>";
X++ (Dynamics Ax 2009)
public void init() { COM com_Context,com_Context1; anytype var_Context,var_Context1; ; super(); var_Context = exedit1.Context(); com_Context = var_Context; com_Context.Add("First_1"); com_Context.Add("First_2"); var_Context1 = exedit1.Context("Second"); com_Context1 = var_Context1; com_Context1.Add("Second_1"); com_Context1.Add("Second_2"); com_Context1.Add("Second_3"); exedit1.ActiveContextItems("Second"); exedit1.PagesContextItems(":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>"); }
Delphi 8 (.NET only)
with AxEdit1 do begin with get_Context(Nil) do begin Add('First_1',Nil,Nil,Nil); Add('First_2',Nil,Nil,Nil); end; with get_Context('Second') do begin Add('Second_1',Nil,Nil,Nil); Add('Second_2',Nil,Nil,Nil); Add('Second_3',Nil,Nil,Nil); end; ActiveContextItems := 'Second'; PagesContextItems := ':Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>'; end
Delphi (standard)
with Edit1 do begin with Context[Null] do begin Add('First_1',Null,Null,Null); Add('First_2',Null,Null,Null); end; with Context['Second'] do begin Add('Second_1',Null,Null,Null); Add('Second_2',Null,Null,Null); Add('Second_3',Null,Null,Null); end; ActiveContextItems := 'Second'; PagesContextItems := ':Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>'; end
VFP
with thisform.Edit1 with .Context() .Add("First_1") .Add("First_2") endwith with .Context("Second") .Add("Second_1") .Add("Second_2") .Add("Second_3") endwith .ActiveContextItems = "Second" .PagesContextItems = ":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>" endwith
dBASE Plus
local oEdit,var_Context,var_Context1 oEdit = form.EXEDITACTIVEXCONTROL1.nativeObject var_Context = oEdit.Context() var_Context.Add("First_1") var_Context.Add("First_2") var_Context1 = oEdit.Context("Second") var_Context1.Add("Second_1") var_Context1.Add("Second_2") var_Context1.Add("Second_3") oEdit.ActiveContextItems = "Second" oEdit.PagesContextItems = ":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>"
XBasic (Alpha Five)
Dim oEdit as P Dim var_Context as P Dim var_Context1 as P oEdit = topparent:CONTROL_ACTIVEX1.activex var_Context = oEdit.Context() var_Context.Add("First_1") var_Context.Add("First_2") var_Context1 = oEdit.Context("Second") var_Context1.Add("Second_1") var_Context1.Add("Second_2") var_Context1.Add("Second_3") oEdit.ActiveContextItems = "Second" oEdit.PagesContextItems = ":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>"
Visual Objects
local var_Context,var_Context1 as IEditContext var_Context := oDCOCX_Exontrol1:[Context,nil] var_Context:Add("First_1",nil,nil,nil) var_Context:Add("First_2",nil,nil,nil) var_Context1 := oDCOCX_Exontrol1:[Context,"Second"] var_Context1:Add("Second_1",nil,nil,nil) var_Context1:Add("Second_2",nil,nil,nil) var_Context1:Add("Second_3",nil,nil,nil) oDCOCX_Exontrol1:ActiveContextItems := "Second" oDCOCX_Exontrol1:PagesContextItems := ":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>"
PowerBuilder
OleObject oEdit,var_Context,var_Context1 oEdit = ole_1.Object var_Context = oEdit.Context() var_Context.Add("First_1") var_Context.Add("First_2") var_Context1 = oEdit.Context("Second") var_Context1.Add("Second_1") var_Context1.Add("Second_2") var_Context1.Add("Second_3") oEdit.ActiveContextItems = "Second" oEdit.PagesContextItems = ":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>"
Visual DataFlex
Procedure OnCreate
Forward Send OnCreate
Variant voContext
Get ComContext Nothing to voContext
Handle hoContext
Get Create (RefClass(cComContext)) to hoContext
Set pvComObject of hoContext to voContext
Send ComAdd of hoContext "First_1" Nothing Nothing Nothing
Send ComAdd of hoContext "First_2" Nothing Nothing Nothing
Send Destroy to hoContext
Variant voContext1
Get ComContext "Second" to voContext1
Handle hoContext1
Get Create (RefClass(cComContext)) to hoContext1
Set pvComObject of hoContext1 to voContext1
Send ComAdd of hoContext1 "Second_1" Nothing Nothing Nothing
Send ComAdd of hoContext1 "Second_2" Nothing Nothing Nothing
Send ComAdd of hoContext1 "Second_3" Nothing Nothing Nothing
Send Destroy to hoContext1
Set ComActiveContextItems to "Second"
Set ComPagesContextItems to ":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>"
End_Procedure
XBase++
#include "AppEvent.ch" #include "ActiveX.ch" PROCEDURE Main LOCAL oForm LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL LOCAL oEdit LOCAL oContext,oContext1 oForm := XbpDialog():new( AppDesktop() ) oForm:drawingArea:clipChildren := .T. oForm:create( ,,{100,100}, {640,480},, .F. ) oForm:close := {|| PostAppEvent( xbeP_Quit )} oEdit := XbpActiveXControl():new( oForm:drawingArea ) oEdit:CLSID := "Exontrol.Edit.1" /*{39136531-DD0F-4281-B445-E36FC2CDDBC5}*/ oEdit:create(,, {10,60},{610,370} ) oContext := oEdit:Context() oContext:Add("First_1") oContext:Add("First_2") oContext1 := oEdit:Context("Second") oContext1:Add("Second_1") oContext1:Add("Second_2") oContext1:Add("Second_3") oEdit:ActiveContextItems := "Second" oEdit:PagesContextItems := ":Page<font ;6><off -4>1</off></font>,Second:Page<font ;6><off -4>2</off></font>" oForm:Show() DO WHILE nEvent != xbeP_Quit nEvent := AppEvent( @mp1, @mp2, @oXbp ) oXbp:handleEvent( nEvent, mp1, mp2 ) ENDDO RETURN