Drawing XP effects in VB 2008 express

[Faraz Azhar]

Hello

I just migrated from VB6 to VB2008 Express. Im getting along pretty
well, just stuck at one place.

I have a custom usercontrol on VB6 in which I access the uxtheme.dll
library APIs to draw some XP controls on my usercontrol. Now I trying
to do this in VB2008.

For example, to draw XP styles, you first have to open the theme data,
using following API

Private Function OpenThemeData Lib "uxtheme.dll" (ByVal hwnd As Long,
ByVal pszClassList As Long) As Long

Then I call OpenThemeData for extracting theme details and then later
I would call DrawThemeBackground and other APIs to draw.

Now how to achieve this in VB2008? How do I declare functions that
link to uxtheme.dll ?

 

[Faraz Azhar]

Hello

I just migrated from VB6 to VB2008 Express. Im getting along pretty
well, just stuck at one place.

I have a custom usercontrol on VB6 in which I access the uxtheme.dll
library APIs to draw some XP controls on my usercontrol. Now I trying
to do this in VB2008.

For example, to draw XP styles, you first have to open the theme data,
using following API

Private Function OpenThemeData Lib "uxtheme.dll" (ByVal hwnd As Long,
ByVal pszClassList As Long) As Long

Then I call OpenThemeData for extracting theme details and then later
I would call DrawThemeBackground and other APIs to draw.

Now how to achieve this in VB2008? How do I declare functions that
link to uxtheme.dll ?

I've resolved this myself. Sorry for disturbing you all

 

[Patrice]

API call wil stioll work the same way. Be aware that Long in VB6 is now Int
in VB.NET.

Also you may want to explain what youa re trying to do as .NET could have
alternate of doing so (See
http://msdn.microsoft.com/en-us/library/ms171733.aspx)