Visual Basic.NET - Pasar un Color a String

   
Vista:

Pasar un Color a String

Publicado por Lunnaticoo (17 intervenciones) el 23/06/2010 16:57:41
Holas..

Resulta que quiero guardar el color en una variable de tipo string, luego con esa variable asignarle el color al formulario..

Lo estoy haciendo de la siguiente forma y no fe funciona:

Dim oColor2 As New ColorDialog, Color as String
If oColor2.ShowDialog = DialogResult.OK Then
Color = oColor2.Color.ToString
Form1.ForeColor.FromName(Color)
End If

Alguien me podria ayudar porfa..

Gracias..
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
Imágen de perfil de roger

RE:Pasar un Color a String

Publicado por roger (186 intervenciones) el 23/06/2010 18:49:17
prueba con Color = oColor2.Color.Name en vez de Color = oColor2.Color.ToString
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

RE:Pasar un Color a String

Publicado por Lunnaticoo (17 intervenciones) el 23/06/2010 20:12:44
Gracias..

Asi quedo ..
'********** formulario para cambiar el color del texto **************
Dim oColor2 As New ColorDialog
oColor2.Color.FromName(Color)
If oColor2.ShowDialog = DialogResult.OK Then
Color = oColor2.Color.Name 'oMuestra.ForeColor.Name
oMuestra.ForeColor = oColor.Color.FromName(Color) ' label1
end if

'**************** despues de guardar la variable color en un archivo .INI **************

'Abro el formulario y leo la variable color

Public oColor As New ColorDialog ' variable global

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Loading(0)
'Dim texto As String
'Dim i As Integer
'Dim RutaC As String = 'System.Reflection.Assembly.GetExecutingAssembly.Location
' Dim Exe As String = Dir(RutaC)
'Archivo = Microsoft.VisualBasic.Left(RutaC, Len(RutaC) - Len(Exe)) & "Mensajes.ini"

'Archivo = archivo
'Cantidad = Plano.Leer(Archivo, "Mensajes", "Cantidad", "0")
'Visibilidad = Plano.Leer(Archivo, "Mensajes", "Visibilidad", "100")
Color = Plano.Leer(Archivo, "Mensajes", "Color", "Red") ' recupero el color del INI
'Historial.Text = DateTime.Now.ToLongTimeString & " " & Date.Today.Date
Me.ForeColor = oColor.Color.FromName(Color)
'GuardarReg()
End Sub
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