Tutorial

Índice de artículos Tutorial Página 2 Página 3 Página 4 Página 5 Página 6 Página 7 Página 8 Página 9 Página 10 Página 11 Página 3 de 11 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 << Anterior - Siguiente >>