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 de miron
1
1
miron, ¡¡La vida es un constante movimiento, la quietud es la muerte!!
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 **************************************************