event EditChange (Itm as Item)
Occurs when the user alters the item's text box/editor field.

TypeDescription
Itm as Item An Item object that contains a editor inside.
The trial/evaluation version of the control limits firing this event. In other words, using the trial/evaluation version won't fire the event every time.

The EditChange event notifies your application once the user alters the item's editor value. The EditCaption property specifies the caption of the editor being altered. Use the AllowEdit property to add a editor inside the item, so the user can type any characters inside. The EditWidth property specifies the width of the editor inside the item. The EditBorder property specifies the border to be shown around the item's text box. You can use the Get method to collect all items of Edit type. In C++ or VFP, you can use the Notifier to get notified through the WM_COMMAND message.

Syntax for EditChange event, /NET version, on:

private void EditChange(object sender,exontrol.EXTOOLBARLib.Item Itm)
{
}

Private Sub EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles EditChange
End Sub

Syntax for EditChange event, /COM version, on:

private void EditChange(object sender, AxEXTOOLBARLib._IToolBarEvents_EditChangeEvent e)
{
}

void OnEditChange(LPDISPATCH Itm)
{
}

void __fastcall EditChange(TObject *Sender,Extoolbarlib_tlb::IItem *Itm)
{
}

procedure EditChange(ASender: TObject; Itm : IItem);
begin
end;

procedure EditChange(sender: System.Object; e: AxEXTOOLBARLib._IToolBarEvents_EditChangeEvent);
begin
end;

begin event EditChange(oleobject Itm)
end event EditChange

Private Sub EditChange(ByVal sender As System.Object, ByVal e As AxEXTOOLBARLib._IToolBarEvents_EditChangeEvent) Handles EditChange
End Sub

Private Sub EditChange(ByVal Itm As EXTOOLBARLibCtl.IItem)
End Sub

Private Sub EditChange(ByVal Itm As Object)
End Sub

LPARAMETERS Itm

PROCEDURE OnEditChange(oToolBar,Itm)
RETURN

Syntax for EditChange event, /COM version (others), on:

<SCRIPT EVENT="EditChange(Itm)" LANGUAGE="JScript">
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function EditChange(Itm)
End Function
</SCRIPT>

Procedure OnComEditChange Variant llItm
	Forward Send OnComEditChange llItm
End_Procedure

METHOD OCX_EditChange(Itm) CLASS MainDialog
RETURN NIL

void onEvent_EditChange(COM _Itm)
{
}

function EditChange as v (Itm as OLE::Exontrol.ToolBar.1::IItem)
end function

function nativeObject_EditChange(Itm)
return

The following samples show how you can get notified once the user edits the field, or change the slider value:

VBA (MS Access, Excell...)

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As Object)
	With ToolBar1
		Debug.Print( "EditChange event on Itm object" )
	End With
End Sub

With ToolBar1
	With .Items
		With .Add("Item")
			.AllowEdit = 3
			.EditWidth = 128
			.EditBorder = 0
			.EditValue = 25
		End With
	End With
	.Refresh 
End With

VB6

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub ToolBar1_EditChange(ByVal Itm As EXTOOLBARLibCtl.IItem)
	With ToolBar1
		Debug.Print( "EditChange event on Itm object" )
	End With
End Sub

With ToolBar1
	With .Items
		With .Add("Item")
			.AllowEdit = exItemEditSlider
			.EditWidth = 128
			.EditBorder = exEditBorderNone
			.EditValue = 25
		End With
	End With
	.Refresh 
End With

VB.NET

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub Extoolbar1_EditChange(ByVal sender As System.Object,ByVal Itm As exontrol.EXTOOLBARLib.Item) Handles Extoolbar1.EditChange
	With Extoolbar1
		Debug.Print( "EditChange event on Itm object" )
	End With
End Sub

With Extoolbar1
	With .Items
		With .Add("Item")
			.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider
			.EditWidth = 128
			.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone
			.EditValue = 25
		End With
	End With
	.Refresh()
End With

VB.NET for /COM

' EditChange event - Occurs when the user alters the item's text box field.
Private Sub AxToolBar1_EditChange(ByVal sender As System.Object, ByVal e As AxEXTOOLBARLib._IToolBarEvents_EditChangeEvent) Handles AxToolBar1.EditChange
	With AxToolBar1
		Debug.Print( "EditChange event on Itm object" )
	End With
End Sub

With AxToolBar1
	With .Items
		With .Add("Item")
			.AllowEdit = EXTOOLBARLib.AllowEditEnum.exItemEditSlider
			.EditWidth = 128
			.EditBorder = EXTOOLBARLib.EditBorderEnum.exEditBorderNone
			.EditValue = 25
		End With
	End With
	.Refresh()
End With

C++

// EditChange event - Occurs when the user alters the item's text box field.
void OnEditChangeToolBar1(LPDISPATCH Itm)
{
	/*
		Copy and paste the following directives to your header file as
		it defines the namespace 'EXTOOLBARLib' for the library: 'ExToolBar 1.0 Control Library'
		#import <ExToolBar.dll>
		using namespace EXTOOLBARLib;
	*/
	EXTOOLBARLib::IToolBarPtr spToolBar1 = GetDlgItem(IDC_TOOLBAR1)->GetControlUnknown();
	OutputDebugStringW( L"EditChange event on Itm object" );
}

EXTOOLBARLib::IToolBarPtr spToolBar1 = GetDlgItem(IDC_TOOLBAR1)->GetControlUnknown();
EXTOOLBARLib::IItemsPtr var_Items = spToolBar1->GetItems();
	EXTOOLBARLib::IItemPtr var_Item = var_Items->Add(L"Item",vtMissing,vtMissing);
		var_Item->PutAllowEdit(EXTOOLBARLib::exItemEditSlider);
		var_Item->PutEditWidth(128);
		var_Item->PutEditBorder(EXTOOLBARLib::exEditBorderNone);
		var_Item->PutEditValue(long(25));
spToolBar1->Refresh();

C++ Builder

// EditChange event - Occurs when the user alters the item's text box field.
void __fastcall TForm1::ToolBar1EditChange(TObject *Sender,Extoolbarlib_tlb::IItem *Itm)
{
	OutputDebugString( L"EditChange event on Itm object" );
}

Extoolbarlib_tlb::IItemsPtr var_Items = ToolBar1->Items;
	Extoolbarlib_tlb::IItemPtr var_Item = var_Items->Add(L"Item",TNoParam(),TNoParam());
		var_Item->AllowEdit = Extoolbarlib_tlb::AllowEditEnum::exItemEditSlider;
		var_Item->EditWidth = 128;
		var_Item->EditBorder = Extoolbarlib_tlb::EditBorderEnum::exEditBorderNone;
		var_Item->set_EditValue(TVariant(25));
ToolBar1->Refresh();

C#

// EditChange event - Occurs when the user alters the item's text box field.
private void extoolbar1_EditChange(object sender,exontrol.EXTOOLBARLib.Item Itm)
{
	System.Diagnostics.Debug.Print( "EditChange event on Itm object" );
}
//this.extoolbar1.EditChange += new exontrol.EXTOOLBARLib.exg2antt.EditChangeEventHandler(this.extoolbar1_EditChange);

exontrol.EXTOOLBARLib.Items var_Items = extoolbar1.Items;
	exontrol.EXTOOLBARLib.Item var_Item = var_Items.Add("Item",null,null);
		var_Item.AllowEdit = exontrol.EXTOOLBARLib.AllowEditEnum.exItemEditSlider;
		var_Item.EditWidth = 128;
		var_Item.EditBorder = exontrol.EXTOOLBARLib.EditBorderEnum.exEditBorderNone;
		var_Item.EditValue = 25;
extoolbar1.Refresh();

JScript/JavaScript

<BODY onload='Init()'>
<SCRIPT FOR="ToolBar1" EVENT="EditChange(Itm)" LANGUAGE="JScript">
	alert( "EditChange event on Itm object" );
</SCRIPT>

<OBJECT CLASSID="clsid:DDF58CFA-750F-45E0-8A00-CFBE431702E2" id="ToolBar1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	var var_Items = ToolBar1.Items;
		var var_Item = var_Items.Add("Item",null,null);
			var_Item.AllowEdit = 3;
			var_Item.EditWidth = 128;
			var_Item.EditBorder = 0;
			var_Item.EditValue = 25;
	ToolBar1.Refresh();
}
</SCRIPT>
</BODY>

VBScript

<BODY onload='Init()'>
<SCRIPT LANGUAGE="VBScript">
Function ToolBar1_EditChange(Itm)
	With ToolBar1
		alert( "EditChange event on Itm object" )
	End With
End Function
</SCRIPT>

<OBJECT CLASSID="clsid:DDF58CFA-750F-45E0-8A00-CFBE431702E2" id="ToolBar1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ToolBar1
		With .Items
			With .Add("Item")
				.AllowEdit = 3
				.EditWidth = 128
				.EditBorder = 0
				.EditValue = 25
			End With
		End With
		.Refresh 
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

// EditChange event - Occurs when the user alters the item's text box field.
private void axToolBar1_EditChange(object sender, AxEXTOOLBARLib._IToolBarEvents_EditChangeEvent e)
{
	System.Diagnostics.Debug.Print( "EditChange event on Itm object" );
}
//this.axToolBar1.EditChange += new AxEXTOOLBARLib._IToolBarEvents_EditChangeEventHandler(this.axToolBar1_EditChange);

EXTOOLBARLib.Items var_Items = axToolBar1.Items;
	EXTOOLBARLib.Item var_Item = var_Items.Add("Item",null,null);
		var_Item.AllowEdit = EXTOOLBARLib.AllowEditEnum.exItemEditSlider;
		var_Item.EditWidth = 128;
		var_Item.EditBorder = EXTOOLBARLib.EditBorderEnum.exEditBorderNone;
		var_Item.EditValue = 25;
axToolBar1.Refresh();

X++ (Dynamics Ax 2009)

// EditChange event - Occurs when the user alters the item's text box field.
void onEvent_EditChange(COM _Itm)
{
	;
	print( "EditChange event on Itm object" );
}

public void init()
{
	COM com_Item,com_Items;
	anytype var_Item,var_Items;
	;

	super();

	var_Items = extoolbar1.Items(); com_Items = var_Items;
		var_Item = com_Items.Add("Item"); com_Item = var_Item;
			com_Item.AllowEdit(3/*exItemEditSlider*/);
			com_Item.EditWidth(128);
			com_Item.EditBorder(0/*exEditBorderNone*/);
			com_Item.EditValue(COMVariant::createFromInt(25));
	extoolbar1.Refresh();
}

Delphi 8 (.NET only)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxToolBar1_EditChange(sender: System.Object; e: AxEXTOOLBARLib._IToolBarEvents_EditChangeEvent);
begin
	with AxToolBar1 do
	begin
		OutputDebugString( 'EditChange event on Itm object' );
	end
end;

with AxToolBar1 do
begin
	with Items do
	begin
		with Add('Item',Nil,Nil) do
		begin
			AllowEdit := EXTOOLBARLib.AllowEditEnum.exItemEditSlider;
			EditWidth := 128;
			EditBorder := EXTOOLBARLib.EditBorderEnum.exEditBorderNone;
			EditValue := TObject(25);
		end;
	end;
	Refresh();
end

Delphi (standard)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TForm1.ToolBar1EditChange(ASender: TObject; Itm : IItem);
begin
	with ToolBar1 do
	begin
		OutputDebugString( 'EditChange event on Itm object' );
	end
end;

with ToolBar1 do
begin
	with Items do
	begin
		with Add('Item',Null,Null) do
		begin
			AllowEdit := EXTOOLBARLib_TLB.exItemEditSlider;
			EditWidth := 128;
			EditBorder := EXTOOLBARLib_TLB.exEditBorderNone;
			EditValue := OleVariant(25);
		end;
	end;
	Refresh();
end

VFP

*** EditChange event - Occurs when the user alters the item's text box field. ***
LPARAMETERS Itm
	with thisform.ToolBar1
		DEBUGOUT( "EditChange event on Itm object" )
	endwith

with thisform.ToolBar1
	with .Items
		with .Add("Item")
			.AllowEdit = 3
			.EditWidth = 128
			.EditBorder = 0
			.EditValue = 25
		endwith
	endwith
	.Refresh
endwith

dBASE Plus

/*
with (this.ACTIVEX1.nativeObject)
	EditChange = class::nativeObject_EditChange
endwith
*/
// Occurs when the user alters the item's text box field.
function nativeObject_EditChange(Itm)
	local oToolBar
	oToolBar = form.Activex1.nativeObject
	? "EditChange event on Itm object" 
return

local oToolBar,var_Item,var_Items

oToolBar = form.Activex1.nativeObject
var_Items = oToolBar.Items
	var_Item = var_Items.Add("Item")
		var_Item.AllowEdit = 3
		var_Item.EditWidth = 128
		var_Item.EditBorder = 0
		var_Item.EditValue = 25
oToolBar.Refresh()

XBasic (Alpha Five)

' Occurs when the user alters the item's text box field.
function EditChange as v (Itm as OLE::Exontrol.ToolBar.1::IItem)
	Dim oToolBar as P
	oToolBar = topparent:CONTROL_ACTIVEX1.activex
	? "EditChange event on Itm object" 
end function

Dim oToolBar as P
Dim var_Item as P
Dim var_Items as P

oToolBar = topparent:CONTROL_ACTIVEX1.activex
var_Items = oToolBar.Items
	var_Item = var_Items.Add("Item")
		var_Item.AllowEdit = 3
		var_Item.EditWidth = 128
		var_Item.EditBorder = 0
		var_Item.EditValue = 25
oToolBar.Refresh()

Visual Objects

METHOD OCX_Exontrol1EditChange(Itm) CLASS MainDialog
	// EditChange event - Occurs when the user alters the item's text box field.
	OutputDebugString(String2Psz( "EditChange event on Itm object" ))
RETURN NIL

local var_Item as IItem
local var_Items as IItems

var_Items := oDCOCX_Exontrol1:Items
	var_Item := var_Items:Add("Item",nil,nil)
		var_Item:AllowEdit := exItemEditSlider
		var_Item:EditWidth := 128
		var_Item:EditBorder := exEditBorderNone
		var_Item:EditValue := 25
oDCOCX_Exontrol1:Refresh()

PowerBuilder

/*begin event EditChange(oleobject Itm) - Occurs when the user alters the item's text box field.*/
/*
	OleObject oToolBar
	oToolBar = ole_1.Object
	MessageBox("Information",string( "EditChange event on Itm object" ))
*/
/*end event EditChange*/

OleObject oToolBar,var_Item,var_Items

oToolBar = ole_1.Object
var_Items = oToolBar.Items
	var_Item = var_Items.Add("Item")
		var_Item.AllowEdit = 3
		var_Item.EditWidth = 128
		var_Item.EditBorder = 0
		var_Item.EditValue = 25
oToolBar.Refresh()

Visual DataFlex

// Occurs when the user alters the item's text box field.
Procedure OnComEditChange Variant llItm
	Forward Send OnComEditChange llItm
	Showln "EditChange event on Itm object"
End_Procedure

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 "Item" Nothing Nothing to voItem
		Handle hoItem
		Get Create (RefClass(cComItem)) to hoItem
		Set pvComObject of hoItem to voItem
			Set ComAllowEdit of hoItem to OLEexItemEditSlider
			Set ComEditWidth of hoItem to 128
			Set ComEditBorder of hoItem to OLEexEditBorderNone
			Set ComEditValue of hoItem to 25
		Send Destroy to hoItem
	Send Destroy to hoItems
	Send ComRefresh
End_Procedure

XBase++

PROCEDURE OnEditChange(oToolBar,Itm)
	DevOut( "EditChange event on Itm object" )
RETURN

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oItem
	LOCAL oItems
	LOCAL oToolBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oToolBar := XbpActiveXControl():new( oForm:drawingArea )
	oToolBar:CLSID  := "Exontrol.ToolBar.1" /*{DDF58CFA-750F-45E0-8A00-CFBE431702E2}*/
	oToolBar:create(,, {10,60},{610,370} )

		oToolBar:EditChange := {|Itm| OnEditChange(oToolBar,Itm)} /*Occurs when the user alters the item's text box field.*/

		oItems := oToolBar:Items()
			oItem := oItems:Add("Item")
				oItem:AllowEdit := 3/*exItemEditSlider*/
				oItem:EditWidth := 128
				oItem:EditBorder := 0/*exEditBorderNone*/
				oItem:EditValue := 25
		oToolBar:Refresh()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN