Page 1 of 1
TextBox DataType Numeric Vacio
Posted: Wed Mar 09, 2016 5:46 pm
by Alepts
Tengo un txt tipo numerico que al iniciar la aplicacion esta vacio, eso esta bien.
Agrege un boton para limpiar el formulario pero no se como dejarlo vacio
Intente esto
Code: Select all
Main.txt_Sector.Value := ''
Main.txt_Sector.Value := Nil
Re: TextBox DataType Numeric Vacio
Posted: Wed Mar 09, 2016 7:15 pm
by ndarz
Hola amigo, no se entiende bien cual es tu problema.
Tal vez si amplias un poco, o colocas un ejemplo real ( parte del codigo que no te funciona ), alguien pueda ayudarte.
Re: TextBox DataType Numeric Vacio
Posted: Wed Mar 09, 2016 8:54 pm
by Alepts
Lo que busco es que un textbox tipo Numérico quede vacío, si pongo Main.txt_Sector.Value := 0 obviamente se muestra el 0.
Si intento Main.txt_Sector.Value := "" por las comillas es tipo Carácter y el texbox al ser de tipo Numérico da error, lo mismo sucede con Main.txt_Sector.Value := nil
Re: TextBox DataType Numeric Vacio
Posted: Wed Mar 09, 2016 10:09 pm
by pctoledo
Code: Select all
#include "hmg.ch"
Function Main
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 320 HEIGHT 200 ;
TITLE 'TextBox Vacio' ;
MAIN
@ 10,10 TEXTBOX Text_1 ;
VALUE 123 ;
TOOLTIP 'Numeric TextBox' ;
NUMERIC ;
MAXLENGTH 5 ;
RIGHTALIGN
DEFINE BUTTON C
ROW 60
COL 80
WIDTH 160
CAPTION 'Set Text_1 Vacio'
ACTION TxtVacio()
END BUTTON
END WINDOW
Form_1.Center
Form_1.Activate
Return Nil
Func TxtVacio()
Local nControlHandle:=GetControlHandle("Text_1","Form_1")
SetWindowText ( nControlHandle , "" )
Return Nil
Re: TextBox DataType Numeric Vacio
Posted: Wed Mar 09, 2016 10:36 pm
by Alepts
Gracias pctoledo, me sirvió tu código.