Occurs when the user moves the mouse.
Type | Description | |||
Button as Integer | Gets which mouse button was pressed as 1 for Left Mouse Button, 2 for Right Mouse Button and 4 for Middle Mouse Button. | |||
Shift as Integer | An integer that corresponds to the state of the SHIFT, CTRL, and ALT keys. | |||
X as OLE_XPOS_PIXELS | A single that specifies the current X location of the mouse pointer. The x values is always expressed in container coordinates. | |||
Y as OLE_YPOS_PIXELS | A single that specifies the current Y location of the mouse pointer. The y values is always expressed in container coordinates. |
The MouseMove event is generated continually as the mouse pointer moves across objects. Unless another object has captured the mouse, an object recognizes a MouseMove event whenever the mouse position is within its borders. During the MouseMove event you can call the ShowToolTip method to display any custom tooltip. For instance, you can display a tooltip when the cursor is hovering an anchor element <a> like shown in the bellow samples:
During MouseMove event you can use the ...FromPoint(-1,-1) properties to get UI elements of the scheduler from the cursor as follows:
All ...FromPoint properties that returns an Object, may return Nothing, Empty or NULL, if no object is found.
Syntax for MouseMove event, /NET version, on:
private void MouseMoveEvent(object sender,short Button,short Shift,int X,int Y) { } Private Sub MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles MouseMoveEvent End Sub |
private void MouseMoveEvent(object sender, AxEXSCHEDULELib._IScheduleEvents_MouseMoveEvent e) { } void OnMouseMove(short Button,short Shift,long X,long Y) { } void __fastcall MouseMove(TObject *Sender,short Button,short Shift,int X,int Y) { } procedure MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer); begin end; procedure MouseMoveEvent(sender: System.Object; e: AxEXSCHEDULELib._IScheduleEvents_MouseMoveEvent); begin end; begin event MouseMove(integer Button,integer Shift,long X,long Y) end event MouseMove Private Sub MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXSCHEDULELib._IScheduleEvents_MouseMoveEvent) Handles MouseMoveEvent End Sub Private Sub MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) End Sub Private Sub MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long) End Sub LPARAMETERS Button,Shift,X,Y PROCEDURE OnMouseMove(oSchedule,Button,Shift,X,Y) RETURN |
<SCRIPT EVENT="MouseMove(Button,Shift,X,Y)" LANGUAGE="JScript"> </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function MouseMove(Button,Shift,X,Y) End Function </SCRIPT> Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY Forward Send OnComMouseMove llButton llShift llX llY End_Procedure METHOD OCX_MouseMove(Button,Shift,X,Y) CLASS MainDialog RETURN NIL void onEvent_MouseMove(int _Button,int _Shift,int _X,int _Y) { } function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.Schedule.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.Schedule.1::OLE_YPOS_PIXELS) end function function nativeObject_MouseMove(Button,Shift,X,Y) return |
The following samples show how to show a custom tooltip when the cursor hovers to an anchor <a> element.
VBA (MS Access, Excell...)
' MouseMove event - Occurs when the user moves the mouse. Private Sub Schedule1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long) With Schedule1 s = .AnchorFromPoint(-1,-1) .ShowToolTip s,"info","","+16" End With End Sub
VB6
' MouseMove event - Occurs when the user moves the mouse. Private Sub Schedule1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) With Schedule1 s = .AnchorFromPoint(-1,-1) .ShowToolTip s,"info","","+16" End With End Sub
VB.NET
' MouseMove event - Occurs when the user moves the mouse. Private Sub Exschedule1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exschedule1.MouseMoveEvent Dim s With Exschedule1 s = .get_AnchorFromPoint(-1,-1) .ShowToolTip(s,"info","","+16") End With End Sub
VB.NET for /COM
' MouseMove event - Occurs when the user moves the mouse. Private Sub AxSchedule1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXSCHEDULELib._IScheduleEvents_MouseMoveEvent) Handles AxSchedule1.MouseMoveEvent Dim s With AxSchedule1 s = .get_AnchorFromPoint(-1,-1) .ShowToolTip(s,"info","","+16") End With End Sub
C++
// MouseMove event - Occurs when the user moves the mouse.
void OnMouseMoveSchedule1(short Button,short Shift,long X,long Y)
{
/*
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();
_bstr_t s = spSchedule1->GetAnchorFromPoint(-1,-1);
spSchedule1->ShowToolTip(L"s","info","","+16",vtMissing);
}
C++ Builder
// MouseMove event - Occurs when the user moves the mouse. void __fastcall TForm1::Schedule1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y) { String s = Schedule1->AnchorFromPoint[-1,-1]; Schedule1->ShowToolTip(L"s",TVariant("info"),TVariant(""),TVariant("+16"),TNoParam()); }
C#
// MouseMove event - Occurs when the user moves the mouse.
private void exschedule1_MouseMoveEvent(object sender,short Button,short Shift,int X,int Y)
{
string s = exschedule1.get_AnchorFromPoint(-1,-1);
exschedule1.ShowToolTip(s.ToString(),"info","","+16",null);
}
//this.exschedule1.MouseMoveEvent += new exontrol.EXSCHEDULELib.exg2antt.MouseMoveEventHandler(this.exschedule1_MouseMoveEvent);
JavaScript
<SCRIPT FOR="Schedule1" EVENT="MouseMove(Button,Shift,X,Y)" LANGUAGE="JScript"> var s = Schedule1.AnchorFromPoint(-1,-1); Schedule1.ShowToolTip(s,"info","","+16",null); </SCRIPT> <OBJECT classid="clsid:9B09E13D-7A88-4299-9DBE-383380435377" id="Schedule1"></OBJECT> <SCRIPT LANGUAGE="JScript"> </SCRIPT>
C# for /COM
// MouseMove event - Occurs when the user moves the mouse.
private void axSchedule1_MouseMoveEvent(object sender, AxEXSCHEDULELib._IScheduleEvents_MouseMoveEvent e)
{
string s = axSchedule1.get_AnchorFromPoint(-1,-1);
axSchedule1.ShowToolTip(s.ToString(),"info","","+16",null);
}
//this.axSchedule1.MouseMoveEvent += new AxEXSCHEDULELib._IScheduleEvents_MouseMoveEventHandler(this.axSchedule1_MouseMoveEvent);
X++ (Dynamics Ax 2009)
// MouseMove event - Occurs when the user moves the mouse. void onEvent_MouseMove(int _Button,int _Shift,int _X,int _Y) { str s; ; s = exschedule1.AnchorFromPoint(-1,-1); exschedule1.ShowToolTip(s,"info","","+16"); } public void init() { ; super(); }
Delphi 8 (.NET only)
// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxSchedule1_MouseMoveEvent(sender: System.Object; e: AxEXSCHEDULELib._IScheduleEvents_MouseMoveEvent);
begin
with AxSchedule1 do
begin
s := get_AnchorFromPoint(-1,-1);
ShowToolTip(s,'info','','+16',Nil);
end
end;
Delphi (standard)
// MouseMove event - Occurs when the user moves the mouse. procedure TForm1.Schedule1MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer); begin with Schedule1 do begin s := AnchorFromPoint[-1,-1]; ShowToolTip(s,'info','','+16',Null); end end;
VFP
*** MouseMove event - Occurs when the user moves the mouse. *** LPARAMETERS Button,Shift,X,Y with thisform.Schedule1 s = .AnchorFromPoint(-1,-1) .ShowToolTip(s,"info","","+16") endwith
dBASE Plus
/* with (this.ACTIVEX1.nativeObject) MouseMove = class::nativeObject_MouseMove endwith */ // Occurs when the user moves the mouse. function nativeObject_MouseMove(Button,Shift,X,Y) local oSchedule,s oSchedule = form.Activex1.nativeObject s = oSchedule.AnchorFromPoint(-1,-1) oSchedule.ShowToolTip(Str(s),"info","","+16") return local oSchedule oSchedule = form.Activex1.nativeObject
XBasic (Alpha Five)
' Occurs when the user moves the mouse. function MouseMove as v (Button as N,Shift as N,X as OLE::Exontrol.Schedule.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.Schedule.1::OLE_YPOS_PIXELS) Dim oSchedule as P Dim s as oSchedule = topparent:CONTROL_ACTIVEX1.activex s = oSchedule.AnchorFromPoint(-1,-1) oSchedule.ShowToolTip(s,"info","","+16") end function Dim oSchedule as P oSchedule = topparent:CONTROL_ACTIVEX1.activex
Visual Objects
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
local s as USUAL
s := oDCOCX_Exontrol1:[AnchorFromPoint,-1,-1]
oDCOCX_Exontrol1:ShowToolTip(AsString(s),"info","","+16",nil)
RETURN NIL
PowerBuilder
/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/ /* OleObject oSchedule any s oSchedule = ole_1.Object s = oSchedule.AnchorFromPoint(-1,-1) oSchedule.ShowToolTip(String(s),"info","","+16") */ /*end event MouseMove*/ OleObject oSchedule oSchedule = ole_1.Object