XP theme change causes crash

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

   Hi.

Am in love with your job guys. Kudos and keep up. I experienced a crush of VB6 and the application(when its on run mode) whenever am changing the color scheme of windows XP style on the appearance tab of display properties. Just to mention also am using the ribbon bar. The code i invoked was:

  With CommandBarsGlobalSettings

    .App = App

    .Companyname = "*********"

    .Title = "**********"

    .Office2007Images = App.Path & "\theme\Office2007Aqua.dll"

    .ColorManager.SystemTheme = xtpSystemThemeSilver 'suspect line :o)

End With

SkinFramework.LoadSkin App.Path & "\Styles\Office2007.cjstyles", "Normalaqua.ini"

SkinFramework.ApplyWindow Me.hWnd

SkinFramework.ApplyOptions = xtpSkinApplyFrame

Anybody out there who could help. (i wouldnot imagine my client doing something like this cuz they may outrightly make acusations on my system.)

JM

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
joeliner Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 09 June 2006 Status: Offline Points: 273	Post Options Post Reply Quote joeliner Report Post Thanks(0) Quote Reply Topic: XP theme change causes crash Posted: 02 October 2006 at 7:40am
	Hi. Am in love with your job guys. Kudos and keep up. I experienced a crush of VB6 and the application(when its on run mode) whenever am changing the color scheme of windows XP style on the appearance tab of display properties. Just to mention also am using the ribbon bar. The code i invoked was: With CommandBarsGlobalSettings .App = App .Companyname = "*******" .Title = "********" .Office2007Images = App.Path & "\theme\Office2007Aqua.dll" .ColorManager.SystemTheme = xtpSystemThemeSilver 'suspect line :o) End With SkinFramework.LoadSkin App.Path & "\Styles\Office2007.cjstyles", "Normalaqua.ini" SkinFramework.ApplyWindow Me.hWnd SkinFramework.ApplyOptions = xtpSkinApplyFrame Anybody out there who could help. (i wouldnot imagine my client doing something like this cuz they may outrightly make acusations on my system.) JM

Oleg Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 21 May 2003 Location: United States Status: Offline Points: 11234	Post Options Post Reply Quote Oleg Report Post Thanks(0) Quote Reply Posted: 02 October 2006 at 12:41pm
	Hello, Thank you for good words. We need to reproduce it on our side, but I failed: I created new project aded sf and commandbars, copied themes/skins and added code Private Sub Form_Load() With CommandBarsGlobalSettings .App = App .CompanyName = "*******" .Title = "********" .Office2007Images = App.Path & "\theme\Office2007Aqua.dll" .ColorManager.SystemTheme = xtpSystemThemeSilver 'suspect line :o) End With Dim Ribbon As RibbonBar Set Ribbon = CommandBars.AddRibbonBar("The Ribbon") Ribbon.AddSystemButton Ribbon.InsertTab 0, "Tab" Ribbon.EnableFrameTheme SkinFramework.LoadSkin App.Path & "\Styles\Office2007.cjstyles", "Normalaqua.ini" SkinFramework.ApplyWindow Me.hWnd SkinFramework.ApplyOptions = xtpSkinApplyFrame End Sub and don't see problem with Color schme chainging. Can you try to reproduce it with new small project?
	Oleg, Support Team CODEJOCK SOFTWARE SOLUTIONS

joeliner Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 09 June 2006 Status: Offline Points: 273	Post Options Post Reply Quote joeliner Report Post Thanks(0) Quote Reply Posted: 04 October 2006 at 9:19am
	thanks oleg. I tried to simulate the scenarioo again but the bug was gone(or else i couldn't simulate it like it was since the code i pasted was a work around) Incase am succesful in reproducing it al post it.