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 4 de 11 Obteniendo Datos Lógicos A veces, es necesario obtener datos de tipo lógico del usuario. La manera más fácil de hacerlo es utilizando el control checkbox. @ 180, 120 CHECKBOX Check_1 Lo agregamos al programa, junto con nuevas opciones de menú para poder asignar o recuperar su valor #include "minigui.ch" Function Main     DEFINE WINDOW Win_1 ;         AT 0,0 ;         WIDTH 400 ;         HEIGHT 300 ;         TITLE 'Tutor 05 - CheckBox Test' ;         MAIN         DEFINE MAIN MENU             POPUP "First Popup"                 ITEM 'Cambiar el Valor del CheckBox ' ACTION Win_1.Check_1.Value := .T.                 ITEM 'Recuperar el Valor del CheckBox ' ACTION MsgInfo ( if(Win_1.Check_1.Value,'.T.','.F.'))             END POPUP         END MENU         @ 100, 120 CHECKBOX Check_1 CAPTION 'Check Me!'     END WINDOW     ACTIVATE WINDOW Win_1 Return Seleccionando Opciones A veces, es necesario obtener el valor de una elección de los usuarios, entre un grupo pequeño de opciones que son conocidos en el momento del diseño. La mejor manera de proceder en tales casos es usar el control RadioGroup. @ 80, 120 RADIOGROUP Radio_1 OPTIONS {'Option 1','Option 2','Option 3'} #include "minigui.ch" Function Main     DEFINE WINDOW Win_1 ;         AT 0,0 ;         WIDTH 400 ;         HEIGHT 200 ;         TITLE 'Tutor 06 - RadioGroup Test' ;         MAIN         DEFINE MAIN MENU             POPUP "First Popup"                 ITEM 'Change RadioGroup Value' ACTION Win_1.Radio_1.Value := 2                 ITEM 'Retrieve RadioGroup Value' ACTION MsgInfo ( Str(Win_1.Radio_1.Value))             END POPUP         END MENU         @ 80, 120 RADIOGROUP Radio_1 OPTIONS {'Option 1','Option 2','Option 3'}     END WINDOW ACTIVATE WINDOW Win_1 Return << Anterior - Siguiente >>