Curso 31 VB.NET Caja de Mensajes (Msgbox) Personalizados

[postlink]https://tutorialeshispanos.blogspot.com/2012/08/curso-31-vbnet-caja-de-mensajes-msgbox.html[/postlink]http://www.youtube.com/watch?v=RLgVlfqAwngendofvid
[starttext]
En este video tutorial aprenderemos a crear mensajes personalizados le daremos un uso con consicionales generalmente se usa cuando quieres cerrar un programa y quieres preguntarle al usuario si desea cerrar el programa .

• Qué aprendo ?
• Resumen de el video
• Codigo Fuente

Aprenderás a :

• Crear Mensajes personalizados

Aprenderemos a escribir texto de manera automatica .

Evento que se ejecuta antes de cerrar el programa

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing


If MessageBox.Show("Esta seguro de cerrar el programa ? ", "Info", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = vbYes Then


Else
'Si el usuario selecciona la opcion NO
e.Cancel = True
MsgBox("Te quedaste en el formulario !")



End If



End Sub

[endtext]

Curso 31 VB.NET Caja de Mensajes (Msgbox) Personalizados

VB.NET 35 - Recordar Usuario y Contraseñas

[postlink]https://tutorialeshispanos.blogspot.com/2012/07/vbnet-35-recordar-usuario-y-contrasenas.html[/postlink]http://www.youtube.com/watch?v=Ocq4mSHhX14endofvid
[starttext]
En este video tutorial aprenderemos a guardar las contraseñas y usuarios en un formulario muy sencillo solo para variables de tipo string (cadena)

• Qué aprendo ?
• Resumen de el video
• Codigo Fuente

Aprenderás a :

• Guardar usuarios y contraseñas .
• Utilizar la opcion propiedades de un projecto (settings)

Guardaremos los nombres usuarios y contraseñas de manera sencilla .

Boton Recordar

My.Settings.usuario = txtusuario.Text
My.Settings.contrasena = txtcontrasena.Text


My.Settings.Save()

Cargando el formulario

'SI TIENES UN VALOR
If My.Settings.usuario <> "" Then

txtusuario.Text = My.Settings.usuario

Else

txtusuario.Text = ""

End If




If My.Settings.contrasena <> "" Then

txtcontrasena.Text = My.Settings.contrasena

Else
txtcontrasena.Text = ""

End If

[endtext]

VB.NET 35 - Recordar Usuario y Contraseñas