Visual Basic - validar textbox para que no quede vacio

cómo puedo validar un textbox para impedir que quede vacío????/, muchas gracias

bueno en el evento Lostfocus
preguntas si el texto esta vacio ..

if text4.text <> "" then
else
Text4.SetFocus
SendKeys "{Home}+{End}"
endif

espero te sirva

Si queremos estar SEGUROS de que un textbox no quedara vacio, yo tampoco veo otra forma que no sea con un boton, porque como dice manuel si el usuario pincha en otro control no se producira el evento lostfocus. Me encantaria que alguien me ilustrara si se puede hacer de otra manera.

VB v6 no esta muerto, pero tiene los dias contados. Aunque hay miles de aplicaciones con millones de lineas de codigo que requeriran mantenimiento, y tendremos que hacerlo en VB nos guste o no. A mi me gusta, y he hecho casi de todo en VB v6.No me hacia ninguna falta que viniera al tio Gates a complicarme la vida con su .NET.

Por cierto, antes en .net para mostrar un formulario desde otro tenias que volver a ir a la escuela, ahora veo con agrado que vuelve a funcionar el Form1.show de toda la vida. ¿Significara esto que estan compatibilizando hacia atras? Seria una buena cosa que los que hemos crecido con VB pudieramos programar en .NET sin complicarnos la vida con POOO herencias y polimorfismos, que al menos a mi, todavia no me interesan.

Saludos y que no llegue la sangre al rio.

Amigos, mi intención no era generar un conflicto de opiniones, en cuanto a sus respuestas les diré lo siguiente:

ya utilicé:

If Text1.text = "" then
msgbox "vacio"
Endif
y la verdad que no me funciona, pues si le doy un espacio ya no me dice que está vacio, les agradezco su ayuda y me gustaría que no se enfrentáran más, pues lo que necesitamos los que no sabemos es ayuda.....espero no ofenderlos con estas palabras y que me puedan echar la mano con algunas otras sugerencias.....salu2

Y si probás con

If Trim(Text1.Text) = "" Then
MsgBox "vacio"
End If

Así ignorás los espacios

Saludos cordiales

Juan Carlos, muchas gracias, al parecer es lo que necesito....salu2

IF LEN(TEXT1.TEXT) = 0 THEN
MSGBOX("EL CAMPO TEXT1 ESTA VACIO")
TEXT1.SETFOCUS
END IF

Espero que te sirva. Un abrazo!

Todas estas respuestas son correctas si el foco esta en la caja de texto, pero imaginaros que justo antes de llegar a ella, el usuario (que siempre es dificil prever lo que va a hacer) hace click en otro control y se salta nuestra caja de texto. No podemos validarla porque nos la hemos saltado y el compòrtamiento de la aplicacion sera imprevisible.

Esto es justo lo que decia Manuel e insistia yo, pero parece que las respuestas ignoran este punto.
Bueno, lo dicho, que Dios reparta suerte.

Function valida() As Boolean

Dim Obj As Object

For Each Obj In Me.Controls
If Obj.Tag = "valida" Then
If Trim(Obj.Text) = "" Then
MsgBox "Campo por validar", vbInformation
Obj.SetFocus
valida = False
Exit For
Else
valida = True
End If
End If
Next

End Function

Gracias!!!
If Trim(Text1.Text) = "" Then
MsgBox "vacio"
End If

me sirvio el trim ya que me valida los espacios de mis cajas de texto, en verdad gracias...

Private Sub Campo_requerido()
Dim T As Control
For Each T In Me.Controls
If TypeOf T Is TextBox Then
If Trim(T.Text) = "" Then
camporequerido.SetError(T, "Campo Requerido")
'Else
' MessageBox.Show("Dot Net Perls is awesome.")
End If
Else
' mesagebox aqui hay otro control diferente de textbox

End If
Next
End Sub

me parece muy bien lo de juan carlos, pero si tienes varios textbox vacios como hacer para que aparesca el foco en el primer campo vacio, o si tienes varios campos vacios que te muestre un msg indicandote que tienes campos vacios y te localice en el primer campo vacio

Saludos....


Se que ha pasado mucho tiempo desde que se publico este post, pero la solucion que yo encontre es la siguiente:

Me.txtCajaTexto.Clear()

Ahora, tambien depende si de ahi haces buisquedas con una base de datos y reflejadas en un datagrid, a mi me funciono muy bien, ese codigo lo puse en el boton que hace la funcion de limpiar el textbox, y asi ya valida lo que tengas que realizar, si esta vacio, no muestra nada, y si tiene texto, ya te muestra los resultados, anexo lo siguiente para que te des una idea:

En el boton de buscar puse lo siguiente:

If txtCajaTexto.Text.Length = 0 Then
MsgBox("Ingrese el texto a buscar", MsgBoxStyle.Critical, "Operacion no valida")

else

Me.XXXTableAdapter.FillByEJEMPLO(XXXDataSet.XXX, "%" & txtCajaTexto.Text & "%")

end if

Espero y te sea de utilidad...