Advertisement
jsbsan

evento Leave y Enter

Jul 18th, 2014
1,830
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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
Advertisement
RAW Paste Data Copied
Advertisement