Control style in Basic4ppc

[Zenerdiode]

Originally Posted by agraham

This works on .NET 2.0 and later.

...and these four lines of code are burned into all of my desktop applications.

Will it throw an exception if this is run on a Windows 2000 platform?

Interestingly, when run in the IDE, the IDE itself adopts the Windows XP style.

[agraham]

Originally Posted by Zenerdiode

Will it throw an exception if this is run on a Windows 2000 platform?

I don''t know, probably not as it is a .NET Framework facility which I would hope would find out if the the OS supported visual styles and fail gracefully if not. You could always ErrorLabel it to make sure.

Sub SetAppStyle
  ErrorLabel(StyleErr)
  obj1.New1(False)
  obj1.CreateNew("System.Windows.Forms.Application" & obj1.System_Windows_Forms)
  obj1.RunMethod("EnableVisualStyles")
  obj1.SetProperty("VisualStyleState", "ClientAndNonClientAreasEnabled")
StyleErr:
End Sub