Sres. Desarrolladores, les envio otro aporte, este trata de despejar algunas
dudas de como utiizar los controles básicos en una aplicación Windows usando
Visual Basic .Net.
EL EJEMPLO
Los controles mas utilizados en aplicaciones Windows son las cajas de texto y
los controles de lista, en este ejemplo se ingresa los datos de un producto que
se repartirá entre los departamentos que se seleccionen de una empresa, la
cantidad de departamentos es mínimo dos.
Se usan variables y se grafica un poco como usar estas a nivel de clase y
como cambiar y manejar su valor entre los diferentes procedimientos.En este
ejemplo se ingresa una cantidad de un supuesto producto que luego según los
departamentos seleccionados tendrá que repartirse. Note ciertas consistencias
en el ingreso de datos y luego en el manejo de las variables. Suerte.
A continuación sigue código en Visual Basic .Net
Private
Sub SeleccionaDepas(ByVal sender As
System.Object, _
ByVal e As System.EventArgs) Handles cmdSelec.Click
'Procedimiento
para seleccionar los departamentos
'Comprobar el ingreso correcto de
datos
If
Len(Trim(txtIDProd.Text)) = 0 Or
Len(Trim(txtCanti.Text)) = 0 Or
Len(Trim(txtDescrip.Text)) = 0 Then
MessageBox.Show("Faltan
datos...", "Error...", MessageBoxButtons.OK)
Exit
Sub
End
If
'Comprobar que la cantidad sea ingreso
numérico
If
Not IsNumeric(txtCanti.Text) Or Val(txtCanti.Text) <= 0 Then
MessageBox.Show("Cantidad
no válida...", "Error...", MessageBoxButtons.OK)
Exit
Sub
End
If
'Para saber cuantos hay
seleccionados
Dim
c As Integer
For i = 0 To chklDepas.Items.Count - 1
If chklDepas.GetItemChecked(i) = True Then
c += 1
End
If
Next
If c >= 2 Then
cboDepa.Items.Clear()
lstAsignado.Items.Clear()
cmdMostrar.Enabled
= True
cmdAsignar.Enabled = False
For i = 0 To chklDepas.Items.Count - 1
If chklDepas.GetItemChecked(i) = True Then
cboDepa.Items.Add(chklDepas.Items.Item(i))
End
If
Next
'Regresar los valores asignados a
CERO
vAdministracion = 0 : VContabilidad = 0 : vProduccion = 0 : vVentas =
0
txtCantiAsigna.Clear()
lblRestantes.Text = txtCanti.Text
vRestante = Val(lblRestantes.Text)
lblProducto.Text = "Producto : "
Else
MessageBox.Show("Son dos departamentos como mínimo...", "Error...",
MessageBoxButtons.OK)
End
If
End
Sub
Private Sub
SeleccionarDepa(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles
cboDepa.SelectedIndexChanged
cmdAsignar.Enabled = True
Select Case cboDepa.SelectedItem
Case
"Administración"
txtCantiAsigna.Text = vAdministracion
Case "Contabilidad"
txtCantiAsigna.Text = VContabilidad
Case "Producción"
txtCantiAsigna.Text
= vProduccion
Case "Ventas"
txtCantiAsigna.Text = vVentas
End
Select
End
Sub
El código completo se encuentra en el archivo adjunto, suerte a todos y no se
olviden de dar su calificación en PanoramaBox, eso me alienta a seguir
publicando.
Ing. Fernando Luque Sánchez
CIP 61806
Trujillo - Perú
Espacios de nombres usados en el código de este artículo:
System.Windows.Forms
