Tutorial



La función MsgInfo ()

Ésta es una función muy útil. Mostrará una pequeña ventana de mensaje (con el ícono de información del sistema) y un mensaje que se le pase como parámetro.

Puede agregar opcionalmente un título (como segundo parámetro)


El Control LABEL

El control LABEL permite mostrar texto y es muy fácil de utilizar también.

@ 100,10 LABEL Label_1 VALUE 'Este es un Label!'

@ 100,10 significa que el texto sera mostrado en la fila 100 , columna 10 (recordar que la unidad de medida es el pixel)

Label_1 es el nombre del control (lo identificaremos por este nombre)

La cláusula VALUE indica el valor inicial del control cuando es creado.

#include "minigui.ch"

Function Main

    DEFINE WINDOW Win_1 ;
        AT 0,0 ;
        WIDTH 400 ;
        HEIGHT 200 ;
        TITLE 'Tutor 03 - Label Test' ;
        MAIN

        @ 100,10 LABEL Label_1 VALUE 'Este es un Label!'

    END WINDOW

    ACTIVATE WINDOW Win_1

Return


Obteniendo datos del usuario (el control TextBox)

El control TextBox es el medio más usado para obtener datos del usuario.

@ 40, 120 TEXTBOX Text_1,

Para ingresar datos numéricos, solo agregarse la cláusula NUMERIC:

@ 80, 120 TEXTBOX Text_2 NUMERIC

Para indicar un máscara de edición, debe usarse la cláusula INPUTMASK.

@ 120, 120 TEXTBOX Text_2 INPUTMASK 9999.99 NUMERIC'

#include "minigui.ch"

Function Main

    DEFINE WINDOW Win_1 ;
        AT 0,0 ;
        WIDTH 400 ;
        HEIGHT 300 ;
        TITLE 'Tutor 04 TextBox Test' ;
        MAIN

        DEFINE MAIN MENU
            POPUP "First Popup"
                ITEM 'Cambiar el contenido del TextBox ' ACTION Win_1.Text_1.Value := 'nuevo valor del TextBox'
                ITEM 'Recuperar el contenido del TextBox ' ACTION MsgInfo ( Win_1.Text_1.Value)
                SEPARATOR
                ITEM 'Cambiar el contenido numérico del TextBox' ACTION Win_1.Text_2.Value := 100
                ITEM 'Recuperar el contenido numérico del TextBox' ACTION MsgInfo ( Str(Win_1.Text_2.Value))
                SEPARATOR
                ITEM 'Cambiar el contenido numérico del TextBox(InputMask)' ACTION Win_1.Text_3.Value := 1234.12
                ITEM 'Recuperar el contenido numérico del TextBox(InputMask)' ACTION MsgInfo (Str(Win_1.Text_3.Value))
            END POPUP
        END MENU

        @ 40 , 120 TEXTBOX Text_1
        @ 80 , 120 TEXTBOX Text_2 NUMERIC
        @ 120 , 120 TEXTBOX Text_3 NUMERIC INPUTMASK '9999.99'

    END WINDOW

    ACTIVATE WINDOW Win_1

Return