Al otro lado de la pantalla
Supongamos el caso de que tenéis un grupo de controles que pueden ser valuebox.
Estos valuebox pueden pertenecer a algo concreto que os interese.
Por ejemplo. Podíamos tener una serie de valuebox donde se van a ingresar gastos
y puede que en otros nos interese guardar un tipo de gasto, etc,etc.
En este ejemplo solo voy a sumar tres gastos. Tengo tres ValueBox.
Al principio quise formar un grupo de estos controles y trabajar con ellos, pero encontré una forma mejor.
Este es el formulario. Simple.
Este es el código:
' gambas class file
Private ctrlgastos As New Control[]
Public Sub Form_Open()
Me.Title = "Sumar Gastos"
Me.Center
'Añadimos los controles al array
ctrlgastos.Add(vlbAlimentacion)
ctrlgastos.Add(vlbElectricidad)
ctrlgastos.Add(vlbAgua)
End
Public Sub btnCalcular_Click()
Dim uncontrol As Object
Dim suma As Float
'Como sabemos que son valuebox, no preguntamos si es un tipo concreto
'Sumamos el valor de la propiedad value de los valuebox y lo
'almacenamos en suma
For Each uncontrol In ctrlgastos
If uncontrol.value <> "" Then suma += uncontrol.value
Next
'Asignamos el total a un valuebox en el que su propiedad de solo lectura es True
vlbTotal.Value = suma
'Toma el foco el primer valuebox de los gastos
vlbAlimentacion.SetFocus
End
Private ctrlgastos As New Control[]
Public Sub Form_Open()
Me.Title = "Sumar Gastos"
Me.Center
'Añadimos los controles al array
ctrlgastos.Add(vlbAlimentacion)
ctrlgastos.Add(vlbElectricidad)
ctrlgastos.Add(vlbAgua)
End
Public Sub btnCalcular_Click()
Dim uncontrol As Object
Dim suma As Float
'Como sabemos que son valuebox, no preguntamos si es un tipo concreto
'Sumamos el valor de la propiedad value de los valuebox y lo
'almacenamos en suma
For Each uncontrol In ctrlgastos
If uncontrol.value <> "" Then suma += uncontrol.value
Next
'Asignamos el total a un valuebox en el que su propiedad de solo lectura es True
vlbTotal.Value = suma
'Toma el foco el primer valuebox de los gastos
vlbAlimentacion.SetFocus
End
La idea es añadir cada control a un array de controles. Ya que nos interesa sumar la propiedad value de cada valuebox.
Es una forma de concretar que controles del formulario nos interesa sumar, o cuales queremos agrupar en una categoría
concreta.
Preguntas sobre el control ValueBox. ¿ Por qué no muestra por defecto 0 ?.
Saludos
| SumarValueBoxes.tar.gz | ||
| Descripción: |  Descargar |
|
| Nombre del archivo: | SumarValueBoxes.tar.gz | |
| Tamaño: | 13.38 KB | |
| Descargado: | 25 veces | |
| SumarValueBoxes.tar.gz | ||
| Descripción: | Descargar |
|
| Nombre del archivo: | SumarValueBoxes.tar.gz | |
| Tamaño: | 13.38 KB | |
| Descargado: | 25 veces | |
| SumarValueBoxes.tar.gz | ||
| Descripción: | Descargar |
|
| Nombre del archivo: | SumarValueBoxes.tar.gz | |
| Tamaño: | 13.38 KB | |
| Descargado: | 25 veces | |
