

| Type | Description | |||
| 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 |
private void DblClick(object sender,short Shift,int X,int Y)
{
}
Private Sub DblClick(ByVal sender As System.Object,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles DblClick End Sub |
private void DblClick(object sender, AxEXLISTBARLib._IListBarEvents_DblClickEvent e)
{
}
void OnDblClick(short Shift,long X,long Y)
{
}
void __fastcall DblClick(TObject *Sender,short Shift,int X,int Y)
{
}
procedure DblClick(ASender: TObject; Shift : Smallint;X : Integer;Y : Integer); begin end; procedure DblClick(sender: System.Object; e: AxEXLISTBARLib._IListBarEvents_DblClickEvent); begin end; begin event DblClick(integer Shift,long X,long Y) end event DblClick Private Sub DblClick(ByVal sender As System.Object, ByVal e As AxEXLISTBARLib._IListBarEvents_DblClickEvent) Handles DblClick End Sub Private Sub DblClick(Shift As Integer,X As Single,Y As Single) End Sub Private Sub DblClick(ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long) End Sub LPARAMETERS Shift,X,Y PROCEDURE OnDblClick(oListBar,Shift,X,Y) RETURN |
<SCRIPT EVENT="DblClick(Shift,X,Y)" LANGUAGE="JScript"> </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function DblClick(Shift,X,Y) End Function </SCRIPT> Procedure OnComDblClick Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY Forward Send OnComDblClick llShift llX llY End_Procedure METHOD OCX_DblClick(Shift,X,Y) CLASS MainDialog RETURN NIL void onEvent_DblClick(int _Shift,int _X,int _Y)
{
}
function DblClick as v (Shift as N,X as OLE::Exontrol.ListBar.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.ListBar.1::OLE_YPOS_PIXELS) end function function nativeObject_DblClick(Shift,X,Y) return |
The following VB sample displays the caption of the item being double clicked:
Private Sub ListBar1_DblClick(Shift As Integer, X As Single, Y As Single)
With ListBar1
Dim i As EXLISTBARLibCtl.Item
Set i = .ItemFromPoint(X / Screen.TwipsPerPixelX, Y / Screen.TwipsPerPixelY)
If (Not i Is Nothing) Then
Debug.Print i.Caption
End If
End With
End Sub
The following C++ sample displays the caption of the item being double clicked:
void OnDblClickListbar1(short Shift, long X, long Y)
{
CItem item = m_listbar.GetItemFromPoint( X, Y );
if ( item.m_lpDispatch != NULL )
OutputDebugString( item.GetCaption() );
}
The following VB.NET sample displays the caption of the item being double clicked:
Private Sub AxListBar1_DblClick(ByVal sender As Object, ByVal e As AxEXLISTBARLib._IListBarEvents_DblClickEvent) Handles AxListBar1.DblClick
With AxListBar1
Dim i As EXLISTBARLib.Item = .get_ItemFromPoint(e.x, e.y)
If (Not i Is Nothing) Then
Debug.WriteLine(i.Caption)
End If
End With
End Sub
The following C# sample displays the caption of the item being double clicked:
private void axListBar1_DblClick(object sender, AxEXLISTBARLib._IListBarEvents_DblClickEvent e)
{
EXLISTBARLib.Item item = axListBar1.get_ItemFromPoint(e.x, e.y);
if (item != null)
{
System.Diagnostics.Debug.WriteLine(item.Caption);
}
}
The following VFP sample displays the caption of the item being double clicked:
*** ActiveX Control Event ***
LPARAMETERS shift, x, y
With thisform.ListBar1
local i
i = .ItemFromPoint(x, y)
If ( !isnull(i) ) Then
with i
wait window nowait .Caption
endwith
EndIf
EndWith