event AnchorClick (AnchorID as String, Options as String)
Occurs when an anchor element is clicked.

TypeDescription
AnchorID as String A string expression that specifies the identifier of the anchor being clicked. For instance if you have a <a id;options>anchor</a>, the id is the AnchorID, while the options is passed to the Options parameter.
Options as String A string expression that specifies the options being used in the <a ;options> declaration. 
The control fires the AnchorClick event to notify that the user clicks an anchor element. An anchor is a piece of text or some other object (for example an image) which marks the beginning and/or the end of a hypertext link. The <a> element is used to mark that piece of text (or inline image), and to give its hypertextual relationship to other documents. The AnchorClick event is fired only if prior clicking the control it shows the hand cursor.  For instance, if the cell is disabled, the hand cursor is not shown when hovers the anchor element, and so the AnchorClick event is not fired. Use the FormatAnchor property to specify the visual effect for anchor elements. For instance, if the user clicks the anchor <a1>anchor</a>, the control fires the AnchorClick event, where the AnchorID parameter is 1, and the Options parameter is empty. Also, if the user clicks the anchor <a 1;yourextradata>anchor</a>, the AnchorID parameter of the AnchorClick event is 1, and the Options parameter is "yourextradata". You can use the AnchorFromPoint property to retrieve the identifier of the anchor element from the cursor.

Currently, the recognizable anchors elements are in the event's body, by using the <a> elements in the LongLabel or ExtraLabel property.

Syntax for AnchorClick event, /NET version, on:

private void AnchorClick(object sender,string AnchorID,string Options)
{
}

Private Sub AnchorClick(ByVal sender As System.Object,ByVal AnchorID As String,ByVal Options As String) Handles AnchorClick
End Sub

Syntax for AnchorClick event, /COM version, on:

private void AnchorClick(object sender, AxEXSCHEDULELib._IScheduleEvents_AnchorClickEvent e)
{
}

void OnAnchorClick(LPCTSTR AnchorID,LPCTSTR Options)
{
}

void __fastcall AnchorClick(TObject *Sender,BSTR AnchorID,BSTR Options)
{
}

procedure AnchorClick(ASender: TObject; AnchorID : WideString;Options : WideString);
begin
end;

procedure AnchorClick(sender: System.Object; e: AxEXSCHEDULELib._IScheduleEvents_AnchorClickEvent);
begin
end;

begin event AnchorClick(string AnchorID,string Options)
end event AnchorClick

Private Sub AnchorClick(ByVal sender As System.Object, ByVal e As AxEXSCHEDULELib._IScheduleEvents_AnchorClickEvent) Handles AnchorClick
End Sub

Private Sub AnchorClick(ByVal AnchorID As String,ByVal Options As String)
End Sub

Private Sub AnchorClick(ByVal AnchorID As String,ByVal Options As String)
End Sub

LPARAMETERS AnchorID,Options

PROCEDURE OnAnchorClick(oSchedule,AnchorID,Options)
RETURN

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

<SCRIPT EVENT="AnchorClick(AnchorID,Options)" LANGUAGE="JScript">
</SCRIPT>

<SCRIPT LANGUAGE="VBScript">
Function AnchorClick(AnchorID,Options)
End Function
</SCRIPT>

Procedure OnComAnchorClick String llAnchorID String llOptions
	Forward Send OnComAnchorClick llAnchorID llOptions
End_Procedure

METHOD OCX_AnchorClick(AnchorID,Options) CLASS MainDialog
RETURN NIL

void onEvent_AnchorClick(str _AnchorID,str _Options)
{
}

function AnchorClick as v (AnchorID as C,Options as C)
end function

function nativeObject_AnchorClick(AnchorID,Options)
return

The following samples adds a <a rem>remove</a> to all events: 

VBA (MS Access, Excell...)

With Schedule1
	.DefaultEventLongLabel = "<%=%256%><br><a rem>remove</a>"
End With

VB6

With Schedule1
	.DefaultEventLongLabel = "<%=%256%><br><a rem>remove</a>"
End With

VB.NET

With Exschedule1
	.DefaultEventLongLabel = "<%=%256%><br><a rem>remove</a>"
End With

VB.NET for /COM

With AxSchedule1
	.DefaultEventLongLabel = "<%=%256%><br><a rem>remove</a>"
End With

C++

/*
	Copy and paste the following directives to your header file as
	it defines the namespace 'EXSCHEDULELib' for the library: 'ExSchedule 1.0 Control Library'

	#import <ExSchedule.dll>
	using namespace EXSCHEDULELib;
*/
EXSCHEDULELib::ISchedulePtr spSchedule1 = GetDlgItem(IDC_SCHEDULE1)->GetControlUnknown();
spSchedule1->PutDefaultEventLongLabel(L"<%=%256%><br><a rem>remove</a>");

C++ Builder

Schedule1->DefaultEventLongLabel = L"<%=%256%><br><a rem>remove</a>";

C#

exschedule1.DefaultEventLongLabel = "<%=%256%><br><a rem>remove</a>";

JavaScript

<OBJECT classid="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
	Schedule1.DefaultEventLongLabel = "<%=%256%><br><a rem>remove</a>";
</SCRIPT>

C# for /COM

axSchedule1.DefaultEventLongLabel = "<%=%256%><br><a rem>remove</a>";

X++ (Dynamics Ax 2009)

public void init()
{
	;

	super();

	exschedule1.DefaultEventLongLabel("<%=%256%><br><a rem>remove</a>");
}

Delphi 8 (.NET only)

with AxSchedule1 do
begin
	DefaultEventLongLabel := '<%=%256%><br><a rem>remove</a>';
end

Delphi (standard)

with Schedule1 do
begin
	DefaultEventLongLabel := '<%=%256%><br><a rem>remove</a>';
end

VFP

with thisform.Schedule1
	.DefaultEventLongLabel = "<%=%256%><br><a rem>remove</a>"
endwith

dBASE Plus

local oSchedule

oSchedule = form.Activex1.nativeObject
oSchedule.DefaultEventLongLabel = "<%=%256%><br><a rem>remove</a>"

XBasic (Alpha Five)

Dim oSchedule as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex
oSchedule.DefaultEventLongLabel = "<%=%256%><br><a rem>remove</a>"

Visual Objects


oDCOCX_Exontrol1:DefaultEventLongLabel := "<%=%256%><br><a rem>remove</a>"

PowerBuilder

OleObject oSchedule

oSchedule = ole_1.Object
oSchedule.DefaultEventLongLabel = "<%=%256%><br><a rem>remove</a>"

The following samples displays the identifier of the anchor/<a> being clicked.

VBA (MS Access, Excell...)

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Schedule1_AnchorClick(ByVal AnchorID As String,ByVal Options As String)
	With Schedule1
		Debug.Print( AnchorID )
	End With
End Sub


VB6

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Schedule1_AnchorClick(ByVal AnchorID As String,ByVal Options As String)
	With Schedule1
		Debug.Print( AnchorID )
	End With
End Sub


VB.NET

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Exschedule1_AnchorClick(ByVal sender As System.Object,ByVal AnchorID As String,ByVal Options As String) Handles Exschedule1.AnchorClick
	With Exschedule1
		Debug.Print( AnchorID )
	End With
End Sub


VB.NET for /COM

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub AxSchedule1_AnchorClick(ByVal sender As System.Object, ByVal e As AxEXSCHEDULELib._IScheduleEvents_AnchorClickEvent) Handles AxSchedule1.AnchorClick
	With AxSchedule1
		Debug.Print( e.anchorID )
	End With
End Sub


C++

// AnchorClick event - Occurs when an anchor element is clicked.
void OnAnchorClickSchedule1(LPCTSTR AnchorID,LPCTSTR Options)
{
	/*
		Copy and paste the following directives to your header file as
		it defines the namespace 'EXSCHEDULELib' for the library: 'ExSchedule 1.0 Control Library'
		#import <ExSchedule.dll>
		using namespace EXSCHEDULELib;
	*/
	EXSCHEDULELib::ISchedulePtr spSchedule1 = GetDlgItem(IDC_SCHEDULE1)->GetControlUnknown();
	OutputDebugStringW( L"AnchorID" );
}


C++ Builder

// AnchorClick event - Occurs when an anchor element is clicked.
void __fastcall TForm1::Schedule1AnchorClick(TObject *Sender,BSTR AnchorID,BSTR Options)
{
	OutputDebugString( L"AnchorID" );
}


C#

// AnchorClick event - Occurs when an anchor element is clicked.
private void exschedule1_AnchorClick(object sender,string AnchorID,string Options)
{
	System.Diagnostics.Debug.Print( AnchorID.ToString() );
}
//this.exschedule1.AnchorClick += new exontrol.EXSCHEDULELib.exg2antt.AnchorClickEventHandler(this.exschedule1_AnchorClick);


JavaScript

<SCRIPT FOR="Schedule1" EVENT="AnchorClick(AnchorID,Options)" LANGUAGE="JScript">
	alert( AnchorID );
</SCRIPT>

<OBJECT classid="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
</SCRIPT>

C# for /COM

// AnchorClick event - Occurs when an anchor element is clicked.
private void axSchedule1_AnchorClick(object sender, AxEXSCHEDULELib._IScheduleEvents_AnchorClickEvent e)
{
	System.Diagnostics.Debug.Print( e.anchorID.ToString() );
}
//this.axSchedule1.AnchorClick += new AxEXSCHEDULELib._IScheduleEvents_AnchorClickEventHandler(this.axSchedule1_AnchorClick);


X++ (Dynamics Ax 2009)

// AnchorClick event - Occurs when an anchor element is clicked.
void onEvent_AnchorClick(str _AnchorID,str _Options)
{
	;
	print( _AnchorID );
}

public void init()
{
	;

	super();

}

Delphi 8 (.NET only)

// AnchorClick event - Occurs when an anchor element is clicked.
procedure TWinForm1.AxSchedule1_AnchorClick(sender: System.Object; e: AxEXSCHEDULELib._IScheduleEvents_AnchorClickEvent);
begin
	with AxSchedule1 do
	begin
		OutputDebugString( e.anchorID );
	end
end;


Delphi (standard)

// AnchorClick event - Occurs when an anchor element is clicked.
procedure TForm1.Schedule1AnchorClick(ASender: TObject; AnchorID : WideString;Options : WideString);
begin
	with Schedule1 do
	begin
		OutputDebugString( AnchorID );
	end
end;


VFP

*** AnchorClick event - Occurs when an anchor element is clicked. ***
LPARAMETERS AnchorID,Options
	with thisform.Schedule1
		DEBUGOUT( AnchorID )
	endwith


dBASE Plus

/*
with (this.ACTIVEX1.nativeObject)
	AnchorClick = class::nativeObject_AnchorClick
endwith
*/
// Occurs when an anchor element is clicked.
function nativeObject_AnchorClick(AnchorID,Options)
	local oSchedule
	oSchedule = form.Activex1.nativeObject
	? Str(AnchorID) 
return

local oSchedule

oSchedule = form.Activex1.nativeObject

XBasic (Alpha Five)

' Occurs when an anchor element is clicked.
function AnchorClick as v (AnchorID as C,Options as C)
	Dim oSchedule as P
	oSchedule = topparent:CONTROL_ACTIVEX1.activex
	? AnchorID 
end function

Dim oSchedule as P

oSchedule = topparent:CONTROL_ACTIVEX1.activex

Visual Objects

METHOD OCX_Exontrol1AnchorClick(AnchorID,Options) CLASS MainDialog
	// AnchorClick event - Occurs when an anchor element is clicked.
	OutputDebugString(String2Psz( AsString(AnchorID) ))
RETURN NIL



PowerBuilder

/*begin event AnchorClick(string AnchorID,string Options) - Occurs when an anchor element is clicked.*/
/*
	OleObject oSchedule
	oSchedule = ole_1.Object
	MessageBox("Information",string( String(AnchorID) ))
*/
/*end event AnchorClick*/

OleObject oSchedule

oSchedule = ole_1.Object