Ayuda sobre operaciones de los datos de casillas de formularios en Visual Fox Pro

Antes que todo espero que estes bien estoy comensando por mi cuenta a programar en visual foxpro y quisiera saber como hago en los formularios para sumar dos casillas y dar el resultado en una, la rutina ok pero lo que no se es donde le aplico el nombre a la variable

1 respuesta

Respuesta
1
Bueno lo que pasa es que ya no usas variables, utilizas objetos.
Aqui te envio un pequeño ejemplo que espero te ayude.
PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
**************************************************
*-- Form: form1 (h:\fuentes\prueba\prueba.scx)
*-- ParentClass: form
*-- BaseClass: form
*-- Marca de hora: 03/29/03 08:54:00 PM
*
DEFINE CLASS form1 AS form
DoCreate = .T.
Caption = "Form1"
Name = "Form1"
ADD OBJECT text1 AS textbox WITH ;
Alignment = 3, ;
Value = 0.00, ;
Height = 23, ;
Left = 144, ;
Top = 60, ;
Width = 100, ;
Name = "Text1"
ADD OBJECT text2 AS textbox WITH ;
Alignment = 3, ;
Value = 0.00, ;
Height = 23, ;
Left = 144, ;
Top = 96, ;
Width = 100, ;
Name = "Text2"
ADD OBJECT text3 AS textbox WITH ;
Alignment = 3, ;
Value = 0.00, ;
Enabled = .F., ;
Height = 23, ;
Left = 144, ;
Top = 132, ;
Width = 100, ;
Name = "Text3"
ADD OBJECT label1 AS label WITH ;
Caption = "Valor 1", ;
Height = 17, ;
Left = 96, ;
Top = 60, ;
Width = 40, ;
Name = "Label1"
ADD OBJECT label2 AS label WITH ;
Caption = "Valor 2", ;
Height = 17, ;
Left = 96, ;
Top = 96, ;
Width = 40, ;
Name = "Label2"
ADD OBJECT label3 AS label WITH ;
Caption = "Suma:", ;
Height = 17, ;
Left = 96, ;
Top = 135, ;
Width = 40, ;
Name = "Label3"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 168, ;
Left = 108, ;
Height = 27, ;
Width = 176, ;
Caption = "Efectuar operación de suma:", ;
Name = "Command1"
PROCEDURE command1.Click
Thisform.text3.value=Thisform.text1.value+Thisform.text2.value
ENDPROC
ENDDEFINE
*
*-- EndDefine: form1
**************************************************

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas