Este foro usa cookies
Este foro utiliza cookies para almacenar su información de inicio de sesión si está registrado y su última visita si no lo está. Las cookies son pequeños documentos de texto almacenados en su computadora; las cookies establecidas por este foro solo se pueden usar en este sitio web y no representan ningún riesgo de seguridad. Las cookies en este foro también rastrean los temas específicos que ha leído y la última vez que los leyó. Si Ud. continúa navegando, entenderemos que acepta todas las cookies.

Se almacenará una cookie en su navegador, independientemente de la elección, para evitar que se le vuelva a hacer esta pregunta. Podrá cambiar la configuración de sus cookies en cualquier momento utilizando el enlace en el pie de página.

El foro antiguo se encuentra accesible desde https://foro.gambas-es.org en modo de solo lectura.

Calificación:
  • 0 voto(s) - 0 Media
  • 1
  • 2
  • 3
  • 4
  • 5

Filechooser: acceder a eventos
#11

Aquí hay un código que muestra 7 eventos.
Espero que esto le ayude.


GAMBAS
  1. ' Gambas class file
  2.  
  3. FileChooser1 As FileChooser
  4. VBox1 As VBox
  5. TextArea1 As TextArea
  6. Label1 As Label
  7.  
  8. Public Sub Form_Open()
  9.  
  10.   With Me
  11.     .Arrangement = Arrange.Horizontal
  12.     .Padding = 5
  13.     .H = 490
  14.     .W = 1000
  15.  
  16.   With FileChooser1 = New FileChooser(Me) As "FileChooser1"
  17.     .ShowButton = True
  18.     .Expand = True
  19.  
  20.   With VBox1 = New VBox(Me)
  21.     .Expand = True
  22.  
  23.   With TextArea1 = New TextArea(VBox1) As "TextArea1"
  24.     .Expand = True
  25.  
  26.   With Label1 = New Label(VBox1) As "Label1"
  27.     .Font.Bold = True
  28.     .Alignment = Align.Center
  29.     .Font.Size = 16
  30.     .H = 28
  31.  
  32.  
  33. Public Sub FileChooser1_Activate()
  34.  
  35.   TextArea1.Text &= "Activate" & gb.Newline
  36.  
  37.  
  38. Public Sub FileChooser1_Arrange()
  39.  
  40.   TextArea1.Text &= "Arrange" & gb.Newline
  41.  
  42.  
  43. Public Sub FileChooser1_BeforeArrange()
  44.  
  45.   TextArea1.Text &= "BeforeArrange" & gb.Newline
  46.  
  47.  
  48. Public Sub FileChooser1_Cancel()
  49.  
  50.   TextArea1.Text &= "Cancel" & gb.Newline
  51.  
  52.  
  53. Public Sub FileChooser1_Change()
  54.  
  55.   TextArea1.Text &= "Change" & gb.Newline
  56.  
  57.  
  58. Public Sub FileChooser1_Enter()
  59.  
  60.   Label1.Text = "Enter"
  61.  
  62.  
  63. Public Sub FileChooser1_Leave()
  64.  
  65.   Label1.text = "Leave"
  66.  


    ¡Gracias!


Posibles temas similares…
Tema / Autor Respuestas Vistas Último mensaje

Salto de foro:


Usuarios navegando en este tema: 1 invitado(s)