Visual Basic para Aplicaciones - Aplicar skin

Life is soft - evento anual de software empresarial
 
Vista:

Aplicar skin

Publicado por HectorRaf (1 intervención) el 15/10/2008 18:21:36
Saludos a todos

me gustaria que me ayudaran en el siguiente problema:

En el foro http://invisiblehack.mforos.com/110[....]mo-aplicar-un-skin-a-un-form-en-vb/ explican muy claro como agregar un skin a los form, pero mi problema es el siguiente:

Estoy haciendo una aplicacion con skin. ya sé como aplicar el skin del formulario padre al form hijo pero en el form padre tengo una opcion de menó para cambiar el skin, pero cuando cambio el skin, los form hijos permanecen con el skin que empezaron.

como puedo hacer que al cambiar el skin por el menú al form padre, los demas form tambien adquieran el skin actual del form padre??????

les informo lo que he hecho:

1- un modulo con el siguiente codigo...

Public Sub Aplicar_skin(ByVal Formulario As Form)

Form1.Skin1.LoadSkin App.Path & "Skinswinaqua.skn"
Form1.Skin1.ApplySkin Formulario.hWnd

End Sub

2- el form padre con el siguiente codigo...

Private Sub Form_Load()
Aplicar_skin Me

End Sub

Private Sub MNUArchivo_Click(Index As Integer)
Unload Me
End Sub

Private Sub MNUCambiarSkin_Click(Index As Integer)

Select Case Index

Case Is = 0
Skin1.LoadSkin App.Path & "SkinsB-Studio.skn"
Skin1.ApplySkin Form1.hWnd

Case Is = 1
Skin1.LoadSkin App.Path & "Skinsgalaxy.skn"
Skin1.ApplySkin Form1.hWnd

Case Is = 2
Form1.Skin1.LoadSkin App.Path & "Skinsgreen.skn"
Skin1.ApplySkin Form1.hWnd

End Select

End Sub

y por medio de un boten de comando...

Private Sub Command1_Click()
Form2.Show 1, Form1
End Sub

y por ultimo, en el formulario hijo...

Private Sub Form_Load()

Aplicar_skin Me

End Sub



Gracias de antemano a todos.
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

RE:Aplicar skin

Publicado por the_cracker (1 intervención) el 30/03/2009 23:40:23
Lo más probable es que estés aplicando un componente skin por cada formulario.
Debes utilizar solo un componente skin en el formulario principal y desde este tomarlo desde los demás formulario.

Para aplicar el skin del formulario principal a los demás hijos solo colocas en el form_Load de cada uno de los hijos la siguiente línea de comandos.

General.Aplicar_skin mi

Así cuando le cambies el skin al principal los demás cambiaran conjuntamente con el

Espero te sirva

Saludos
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