Visual Basic - Aplicar Skin

Life is soft - evento anual de software empresarial
   
Vista:

Aplicar Skin

Publicado por HectorRaf (1 intervención) el 15/10/2008 18:23:27
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