estoy tratando de crear eventos en una clase pero no me sale...
esto es lo que he hecho....
' gambas class file
Export
Inherits UserControl
Event Abajo
Event Arriba
Private $Zona As DrawingArea
Public Sub _new()
$Zona = New DrawingArea(Me) As "Zona"
$Zona.Background = Color.Blue
$Zona.Cached = True
$Zona.X = 20
$Zona.y = 100
$Zona.Height = 100
$Zona.Width = 300
$Zona.Visible = True
$Zona.Show
End
Public Sub Zona_Arriba()
Print "abajo ñññññññññññ"
End
Public Sub Clic4_Arriba()
Print "Arriba zzzzzzzzzzz"
End
Public Sub Zona_DblClick()
Print "dobleclic"
Print Mouse.y
If Mouse.y < ($Zona.Height / 2) Then
Print "arriba ejecutado"
Raise Arriba
Else
Print "abajo ejecutado"
Raise Abajo
Endif
End
Export
Inherits UserControl
Event Abajo
Event Arriba
Private $Zona As DrawingArea
Public Sub _new()
$Zona = New DrawingArea(Me) As "Zona"
$Zona.Background = Color.Blue
$Zona.Cached = True
$Zona.X = 20
$Zona.y = 100
$Zona.Height = 100
$Zona.Width = 300
$Zona.Visible = True
$Zona.Show
End
Public Sub Zona_Arriba()
Print "abajo ñññññññññññ"
End
Public Sub Clic4_Arriba()
Print "Arriba zzzzzzzzzzz"
End
Public Sub Zona_DblClick()
Print "dobleclic"
Print Mouse.y
If Mouse.y < ($Zona.Height / 2) Then
Print "arriba ejecutado"
Raise Arriba
Else
Print "abajo ejecutado"
Raise Abajo
Endif
End
lo que estoy tratando de hacer es....
por medio de un drawingarea detectar si el usuario hizo clic de la mitad de la altura de mas arriba o de mas abajo,
lanzando el evento arriba si es menor a la altura dividido 2 o abajo si es mayor a la altura dividido 2.
hasta el lanzamiento del evento voy bien, la cuestión es... como es la sintaxis para la rutina del evento y lo que se ejecutara cuando el raise lance el evento???
