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.
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


0