asegurar ningún campo de un formulario está vacío
Publicado por fernando leon (1 intervención) el 08/04/2007 03:26:12
Hola,
Tengo un trabajo que hacer para un curso de VB .NET y necesito vuestra ayuda. He estado buscando por internet en algunos tutoriales, pero no encuentro una respuesta exacta a mis problemas. Os doy las gracias por adelantado.
Tengo 2 problemillas con mi proyecto:
PROBLEMA (A)
He hecho un formulario con distintos buttons, labels y textboxes. Al pulsar un botón de confirmación el programa procesa toda la información introducida en los textboxes. Lo que me gustaría conseguir, antes de que el programa comience a procesar la información de los textboxes, es que compruebe que no hay ninguno vacío. También, me gustaría conseguir que el programa no continuara ejecutándose hasta que el usuario haya rellenado todos los campos.
Hasta ahora lo que se me ha ocurrido es escribir un loop que compruebe el atributo .text de todos los textbox del formulario, en este caso lo he llamado "txtBoxes". ¿Me haría falta un Do-while loop para que continúe pidiendo al usuario rellenar los campos vacíos hasta que se cumpla la condición de que todos los campos están rellenos?¿Voy desencaminado?
Module emptyField
Public Sub emptyFieldError(ByVal txtBoxes)
Dim i As Integer
Dim content As String
Do
For i = 0 To 7
content = Trim(txtBoxes(i))
If content = "" Then
MsgBox("Please, make sure you have filled all the form fields.")
i = i + 0
Else
i = i + 1
End If
Next i
Loop While f i Mod 8 <> 0 Then
End Sub
End Module
PROBLEMA (B)
No sé como borrar el texto introducido en un textbox desde una subrutina dentro de un módulo. Desde el propio formulario tan sólo tendría que usar .clear(), pero la cosa se complica cuando el código está en un módulo. Desde el formulario he escrito una función que llama a una subrutina escrita en un módulo y como parámetros paso una variable a la que le he asinado previamente el valor .Text del textbox.
Sería algo así...
´desde el formulario
Dim field As String
field = txtNombre.Text
emptyField(field)
´en el módulo
Public Sub emptyField(ByVal field)
...
´aquí iría la solución a este problema.
Tengo un trabajo que hacer para un curso de VB .NET y necesito vuestra ayuda. He estado buscando por internet en algunos tutoriales, pero no encuentro una respuesta exacta a mis problemas. Os doy las gracias por adelantado.
Tengo 2 problemillas con mi proyecto:
PROBLEMA (A)
He hecho un formulario con distintos buttons, labels y textboxes. Al pulsar un botón de confirmación el programa procesa toda la información introducida en los textboxes. Lo que me gustaría conseguir, antes de que el programa comience a procesar la información de los textboxes, es que compruebe que no hay ninguno vacío. También, me gustaría conseguir que el programa no continuara ejecutándose hasta que el usuario haya rellenado todos los campos.
Hasta ahora lo que se me ha ocurrido es escribir un loop que compruebe el atributo .text de todos los textbox del formulario, en este caso lo he llamado "txtBoxes". ¿Me haría falta un Do-while loop para que continúe pidiendo al usuario rellenar los campos vacíos hasta que se cumpla la condición de que todos los campos están rellenos?¿Voy desencaminado?
Module emptyField
Public Sub emptyFieldError(ByVal txtBoxes)
Dim i As Integer
Dim content As String
Do
For i = 0 To 7
content = Trim(txtBoxes(i))
If content = "" Then
MsgBox("Please, make sure you have filled all the form fields.")
i = i + 0
Else
i = i + 1
End If
Next i
Loop While f i Mod 8 <> 0 Then
End Sub
End Module
PROBLEMA (B)
No sé como borrar el texto introducido en un textbox desde una subrutina dentro de un módulo. Desde el propio formulario tan sólo tendría que usar .clear(), pero la cosa se complica cuando el código está en un módulo. Desde el formulario he escrito una función que llama a una subrutina escrita en un módulo y como parámetros paso una variable a la que le he asinado previamente el valor .Text del textbox.
Sería algo así...
´desde el formulario
Dim field As String
field = txtNombre.Text
emptyField(field)
´en el módulo
Public Sub emptyField(ByVal field)
...
´aquí iría la solución a este problema.
Valora esta pregunta


0