Aprende a programar en Visual Basic gratis ,rapido y facil con videotutoriales ,cursos escritos ,ejercicios ,ejemplos y codigo fuente que te ayudaran en tu aprendizaje .Cursos de vb.net y visual basic 6 programacion basica , intermedia y avanzada .Aprende de forma interactiva y dinamica con ejemplos sencillos .Curso visual basic esta orientado a escolares , universitarios y profesionales .
Hola les comento que soy nuevo en esto de VB.NET, he estado siguiendo sus videos y son muyy buenos. En este video me llamo la atencion de lo "engorroso" que hacen que aparezcan las indicaciones en las cajas de texto. Se que esto en el ambiente web se llama PLACEHOLDER e intentando una y otra vez en el codigo encontre los eventos GotFocus y LostFocus. Les dejo el codigo para que lo compartan.FUNCIONA PERFECTAMENTE.
Private Sub txtlogin_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtlogin.GotFocus If txtlogin.Text = "Ejemplo555@hotmail.com" Then txtlogin.ForeColor = Color.Black txtlogin.Text = "" End If End Sub
Private Sub txtlogin_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtlogin.LostFocus If txtlogin.Text = Nothing Then txtlogin.ForeColor = Color.Gray txtlogin.Text = "Ejemplo555@hotmail.com" End If End Sub Private Sub txtpass_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtpass.GotFocus If txtpass.Text = "Escribe tu contraseña" Then txtpass.ForeColor = Color.Gray txtpass.Text = "" End If End Sub Private Sub txtpass_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtpass.LostFocus If txtpass.Text = Nothing Then txtpass.ForeColor = Color.Gray txtpass.Text = "Escribe tu contraseña"
Creo que sin usar muchos controles y solo codigos quedaría asi..
ResponderEliminarPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If TextBox1.Text = "" Then
TextBox1.Text = "alguien@example.com"
End If
''''''''''''''''''''''''''''''''''''''''
If TextBox2.Text = "" Then
TextBox2.Text = "Contraseña"
End If
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If TextBox1.Text = "" Then
TextBox1.Text = "alguien@example.com"
End If
''''''''''''''''''''''''''''''''''''''''
If TextBox2.Text = "" Then
TextBox2.Text = "Contraseña"
End If
End Sub
Hola les comento que soy nuevo en esto de VB.NET, he estado siguiendo sus videos y son muyy buenos. En este video me llamo la atencion de lo "engorroso" que hacen que aparezcan las indicaciones en las cajas de texto. Se que esto en el ambiente web se llama PLACEHOLDER e intentando una y otra vez en el codigo encontre los eventos GotFocus y LostFocus. Les dejo el codigo para que lo compartan.FUNCIONA PERFECTAMENTE.
ResponderEliminar////////////////////////////////////////////////////////////////
Private Sub txtlogin_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtlogin.GotFocus
If txtlogin.Text = "Ejemplo555@hotmail.com" Then
txtlogin.ForeColor = Color.Black
txtlogin.Text = ""
End If
End Sub
Private Sub txtlogin_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtlogin.LostFocus
If txtlogin.Text = Nothing Then
txtlogin.ForeColor = Color.Gray
txtlogin.Text = "Ejemplo555@hotmail.com"
End If
End Sub
Private Sub txtpass_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtpass.GotFocus
If txtpass.Text = "Escribe tu contraseña" Then
txtpass.ForeColor = Color.Gray
txtpass.Text = ""
End If
End Sub
Private Sub txtpass_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtpass.LostFocus
If txtpass.Text = Nothing Then
txtpass.ForeColor = Color.Gray
txtpass.Text = "Escribe tu contraseña"
End If
End Sub