Guardar configuración de aplicación
Es necesario en muchas veces guardar la configuracion de un programa, ya sea el color, tipo de letra, imagen de fondo, posición , tamaño, etc. Para que te ilustres te muestro una imagen:
Si deseas conservar la estructura y estilo de tu formulario debes intervenir el app de configuración para esto haces clic derecho sobre el proyecto para ver:
Debes crear las variables como se ve en la imagen... claro que nos son una regla depende de tus necesidades:
Listo, ademas debes incluir un control {ColorDialog} al form, la codificación queda:
Public Class Form1
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
'Guarda los valores al cerrar el form
My.MySettings.Default.Color = Me.BackColor
My.MySettings.Default.Texto = TextBox1.Text
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'carga los valores al iniciar el form
Me.BackColor = My.MySettings.Default.Color
TextBox1.Text = My.MySettings.Default.Texto
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Asigna color al form
ColorDialog1.ShowDialog()
Me.BackColor = ColorDialog1.Color
End Sub
End Class
De esta forma guardará los ultimos valores personalizados para tu aplicación,...nos vemos en otra entrega!!
Si deseas conservar la estructura y estilo de tu formulario debes intervenir el app de configuración para esto haces clic derecho sobre el proyecto para ver:
Debes crear las variables como se ve en la imagen... claro que nos son una regla depende de tus necesidades:
Listo, ademas debes incluir un control {ColorDialog} al form, la codificación queda:
Public Class Form1
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
'Guarda los valores al cerrar el form
My.MySettings.Default.Color = Me.BackColor
My.MySettings.Default.Texto = TextBox1.Text
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'carga los valores al iniciar el form
Me.BackColor = My.MySettings.Default.Color
TextBox1.Text = My.MySettings.Default.Texto
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Asigna color al form
ColorDialog1.ShowDialog()
Me.BackColor = ColorDialog1.Color
End Sub
End Class
De esta forma guardará los ultimos valores personalizados para tu aplicación,...nos vemos en otra entrega!!
Gracias justo lo que buscaba ...
ResponderEliminarimpecable aporte!
ResponderEliminar