Visual Basic - Saber cuantos textBox tienen texto

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Saber cuantos textBox tienen texto

Publicado por Angel De Jesus (1 intervención) el 12/09/2022 17:42:44
hola quisiera saber como mostrar un MsgBox que me diga cuantos TextBox tienen caratecteres, por ejemplo tengo 3 TextBox y solo lleno 2 quiero que el mensaje me muestre "ha llenado 2 TextBox''
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 145
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Saber cuantos textBox tienen texto

Publicado por Sah1d Ra (191 intervenciones) el 12/09/2022 18:16:25
Hola, lo haría de la siguiente manera

1
2
3
4
5
6
contador = 0
si textbox1 esta vacio entonces contador++
si textbox2 esta vacio entonces contador++
si textbox3 esta vacio entonces contador++
 
si contador es mayor a cero mostrar "se han llenado " & 3 - contador & "textbox"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Saber cuantos textBox tienen texto

Publicado por Andres Leonardo (1799 intervenciones) el 13/09/2022 15:40:19
hola

Espero esto te ayude, esto lo puedes hacer una funcion mandando como parametros el formulario, asi te serviria para todos los formularios de tu proyecto , pero si quieres para uno especifico esto te ayudaria,.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Command1_Click()
Dim ob As Object
Dim ct As Control
Dim contt, conttv As Integer
 
contt = 0
conttv = 0
 For Each ob In Form1.Controls
  Set ct = ob
  If TypeOf ct Is TextBox Then
   contt = contt + 1
    If ct.Text <> "" Then conttv = conttv + 1
  End If
 Next
    MsgBox "De los " & contt & " que hay en el formulario " & conttv & " estan llenos ", vbInformation, "Contador de Text"
End Sub
ContaTextboxes
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar