3

1 Botón Varias Acciones

Hoy después de mucho tiempo inactivo voy a postear una entrada que si bien la tenia pensada no me daba tiempo hacerla.

En la entrada anterior (Usando Botones Invisibles) mostraba como ejecutar acciones de distintos botones con la misma tecla de acceso directo. Pues bien esto es algo parecido, pero utilizando 1 solo botón.

Para esto utilizo la variable [FocusedObject] que contiene el nombre del objeto que tiene foco en ese momento, luego en las acciones del botón con un If logro realizar las acciones que yo quiera para ese objeto al presionar el acceso directo a ese botón (que yo lo puse oculto).

Ejemplo código acciones del botón:

if "[accion]" "=" "ListBox1"
   ListBoxGetItem "[FocusedObject]" "[ListBox1]" "[texto]"
   AlertBox "Prueba" "[texto]"
endif

if "[accion]" "=" "ListBox2"
   ListBoxGetItem "[FocusedObject]" "[ListBox2]" "[texto]"
   MessageBox "Prueba" "[texto]" "Aceptar" "[resultado]"
endif

if "[accion]" "=" "TextEntry1"
   StickyNote "-1" "-1" "[TextEntry1]" "0"
endif

Miren el ejemplo y cualquier cosa preguntan.

Saludos

Screenshot del ejemplo

Prueba el ejemplo: Da foco a los distintos objetos y presiona Enter para ver que pasa.

Descargar:

  ejemplo_boton_varias_acciones.rar (656,8 KiB, 1.162 hits)

P/D: Tambien dejo disponible la descarga del ejemplo (con las correcciones) enviado por apoleo para la entrada anterior. Recomendable de ver.

  formularios.rar (2,9 KiB, 959 hits)


3 Comments

  1. Hola Buker, recientemente he tenido un problema con el tema del foco y gracias a la ayuda de Apoleo aprendí el funcionamiento de [FocusedObject]. El ejemplo que muestras es muy claro, y seguro que servira de ayuda a alguna persona para entender el funcionamiento.
    Claro y bueno.

  2. Yo pregunto nadie se a topado con que el programa no creea un archivo de desintalacion?
    por que yo veo que es algo que falta saludos y suerte. 😥

  3. Hugo: Los ejemplos estan en .exe listos para probar. Tambien podras encontrar el archivo .pub para ver como esta hecho.

    La verdad no entiendo tu comentario.

    Saludos

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos necesarios están marcados *