Can't skin popup forms in .NET

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   I am working on a .NET interop user control.  To apply skinning I have created a shared form (frmStyles) that contains an instance of the skin control.  It also has an initialise method that sets up the selected skin passed through from our VB6 app.  Each user control declares a shared variable as an instance of this form and has a setTheme method that applies the theming.  Like this:

If _frmStyles Is Nothing Then

_frmStyles = New frmInteropStyles

End If

_frmStyles.Initialize(sSkinStyle, bSkinON)
 _frmStyles.SkinFramework.ApplyWindow(Me.Handle.ToInt32)

_frmStyles.Visible = False
This is all working fine.  The problem occurs when I try to pop up a modal form from the user control.  I use the following code:

Dim frm As New frmMyModalPopUpForm

_frmStyles.SkinFramework.ApplyWindow(frm.Handle.ToInt32)
frm.showdialog()

The form is displayed with only the form caption bar skinned.  All the controls remain unskinned.

Can anyone explain what I might be doing wrong?

Thanks,

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
YellowStreak Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 07 April 2008 Status: Offline Points: 34	Post Options Post Reply Quote YellowStreak Report Post Thanks(0) Quote Reply Topic: Can't skin popup forms in .NET Posted: 16 June 2008 at 10:39am
	I am working on a .NET interop user control. To apply skinning I have created a shared form (frmStyles) that contains an instance of the skin control. It also has an initialise method that sets up the selected skin passed through from our VB6 app. Each user control declares a shared variable as an instance of this form and has a setTheme method that applies the theming. Like this: If _frmStyles Is Nothing Then _frmStyles = New frmInteropStyles End If _frmStyles.Initialize(sSkinStyle, bSkinON) _frmStyles.SkinFramework.ApplyWindow(Me.Handle.ToInt32) _frmStyles.Visible = False This is all working fine. The problem occurs when I try to pop up a modal form from the user control. I use the following code: Dim frm As New frmMyModalPopUpForm _frmStyles.SkinFramework.ApplyWindow(frm.Handle.ToInt32) frm.showdialog() The form is displayed with only the form caption bar skinned. All the controls remain unskinned. Can anyone explain what I might be doing wrong? Thanks,