Ejemplo de uso de los eventos Enter y Leave

Ejemplo de uso de los 

eventos Enter y Leave

A parte de los eventos click, y dobleclick, existen otros muchos eventos útiles para nuestros programas.

Hoy os enseño un ejemplo del uso de los eventos Enter y Leave, que se producen cuando entramos o salimos en un control.

He puesto 3 label, la cuales reaccionan de diversa manera cada vez que entramos o salimos con el cursor del ratón.


Código Fuente:
-

Data hosted with ♥ by Pastebin.com - Download Raw - See Original

1. ' Gambas class file
2.  
3. Public Sub _new()
4.  
5.   Me.center 'centro formulario
6.  
7. End
8.  
9. Public Sub Form_Open()
10.  
11. End
12.  
13. Public Sub Label1_Enter()
14.  
15.   Label1.Background = Color.Red
16.   LabelMensaje.text = "Has entrado en la " & Last.name
17.  
18. End
19.  
20. Public Sub Label1_Leave()
21.  
22.   Label1.Background = Color.Background 'lo dejo con la letra por defecto
23.   LabelMensaje.text = "Sales del " & Last.name
24.  
25. End
26.  
27. Public Sub Label2_Enter()
28.   'cambio de color letra
29.  
30.   Label2.Foreground = Color.Blue
31.   'cambio a negrita
32.   Label2.font = Font[",,Bold"]
33.   LabelMensaje.text = "Has entrado en la " & Last.name
34.  
35. End
36.  
37. Public Sub Label2_Leave()
38.  
39.   Label2.Foreground = Color.Foreground 'lo dejo con la letra por defecto
40.   Label2.font = Font[",,"] 'lo dejo con la letra por defecto
41.   LabelMensaje.text = "Sales del " & Last.name
42.  
43. End
44.  
45. Public Sub Label3_Enter()
46.   'cambio tipo de letra, tamaño, negrita, cursiva y subrayado
47.  
48.   Label3.font = Font["Arial,14,Bold,Italic,Underline"]
49.   LabelMensaje.text = "Has entrado en la " & Last.name
50.  
51. End
52.  
53. Public Sub Label3_Leave()
54.  
55.   Label3.font = Font[",,"] 'lo dejo con la letra por defecto
56.   LabelMensaje.text = "Sales del " & Last.name
57.  
58. End

-

Descargar