Type | Description | |||
OldItem as Long | A long expression that indicates the index of item being deactivated. | |||
NewItem as Long | A long expression that indicates the index of item being activated. |
Use the Roll event to notify your application that the control rotates the list and a new item is displayed on the center of the control. Use the Select event to notify your application that user selects an item by keyboard or by mouse.
Syntax for Roll event, /NET version, on:
private void Roll(object sender,int OldItem,int NewItem) { } Private Sub Roll(ByVal sender As System.Object,ByVal OldItem As Integer,ByVal NewItem As Integer) Handles Roll End Sub |
private void Roll(object sender, AxEXROLLISTLib._IRollistEvents_RollEvent e) { } void OnRoll(long OldItem,long NewItem) { } void __fastcall Roll(TObject *Sender,long OldItem,long NewItem) { } procedure Roll(ASender: TObject; OldItem : Integer;NewItem : Integer); begin end; procedure Roll(sender: System.Object; e: AxEXROLLISTLib._IRollistEvents_RollEvent); begin end; begin event Roll(long OldItem,long NewItem) end event Roll Private Sub Roll(ByVal sender As System.Object, ByVal e As AxEXROLLISTLib._IRollistEvents_RollEvent) Handles Roll End Sub Private Sub Roll(ByVal OldItem As Long,ByVal NewItem As Long) End Sub Private Sub Roll(ByVal OldItem As Long,ByVal NewItem As Long) End Sub LPARAMETERS OldItem,NewItem PROCEDURE OnRoll(oRollist,OldItem,NewItem) RETURN |
<SCRIPT EVENT="Roll(OldItem,NewItem)" LANGUAGE="JScript"> </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function Roll(OldItem,NewItem) End Function </SCRIPT> Procedure OnComRoll Integer llOldItem Integer llNewItem Forward Send OnComRoll llOldItem llNewItem End_Procedure METHOD OCX_Roll(OldItem,NewItem) CLASS MainDialog RETURN NIL void onEvent_Roll(int _OldItem,int _NewItem) { } function Roll as v (OldItem as N,NewItem as N) end function function nativeObject_Roll(OldItem,NewItem) return |
The following sample highlights the item in the center of the control ( selected item ):
Private Sub Rollist1_Roll(ByVal OldItem As Long, ByVal NewItem As Long) With Rollist1(OldItem) .ClearBackColor .ClearForeColor End With With Rollist1(NewItem) .BackColor = vbBlue .ForeColor = vbWhite End With End Sub