🚀 go-pugleaf

"Cliff Beeckman" <cliffbeeckman@pandora.be> wrote in message
news:5Nv_a.65367$F92.7402@afrodite.telenet-ops.be...
> thx voor het adres...
>
> ik heb ook even de code geprobeerd voor een XP-style te verkrijgen in mijn
> programma's. De code heb ik mooi gekopieerd en geplakt en een bestandje
met
> de naam van mijn programma + .exe.manifest maar hij geeft telkens opnieuw
> een foutmelding dat de configuratie van de toepassing verkeerd is. Zijn er
> nog andere mogelijkheden om dit te verkrijgen of weet er iemand waaraan
dit
> ligt?
>
> "Billyke" <gert.verstappen@gmx.net> schreef in bericht
> news:bhduiv$lu3$1@reader10.wxs.nl...
> >
> > "Cliff Beeckman" <cliffbeeckman@pandora.be> wrote in message
> > news:0Nu_a.65263$F92.7291@afrodite.telenet-ops.be...
> > > Iemand een idee hoe je een een gradient achtrgrond verkrijgt in de
forms
> > van
> > > VB6?
> > >
> > >
> >
> > Zonder API's: http://www.mvps.org/vbnet/code/forms/gradientform.htm
> > Met API's: http://www.mvps.org/vbnet/code/forms/gradientfill.htm
> >
> >
>
>

If you provide a manifest, but your application does not link to
ComCtl32.dll, then it will fail to load - sometimes with no error message!.
You need to call at least InitCommonControls before any visual elements are
displayed. Sometimes, you don't need to do anything because your application
may already link to ComCtl32.dll (for example, if it includes any of the
Windows Common Controls provided with Visual Basic), however, to be certain
it works it is best to call InitCommonControls prior to displaying any
forms.

Here is the code you need at the start of your application to ensure you've
linked to ComCtl32.dll:

Private Type tagInitCommonControlsEx
   lngSize As Long
   lngICC As Long
End Type
Private Declare Function InitCommonControlsEx Lib "comctl32.dll" _
   (iccex As tagInitCommonControlsEx) As Boolean
Private Const ICC_USEREX_CLASSES = &H200

Public Function InitCommonControlsVB() As Boolean
   On Error Resume Next
   Dim iccex As tagInitCommonControlsEx
   ' Ensure CC available:
   With iccex
       .lngSize = LenB(iccex)
       .lngICC = ICC_USEREX_CLASSES
   End With
   InitCommonControlsEx iccex
   InitCommonControlsVB = (Err.Number = 0)
   On Error Goto 0
End Function

Public Sub Main()
   InitCommonControlsVB

   '
   ' Start your application here:
   '

End Sub
Bron:
http://www.vbaccelerator.com/home/VB/Code/Libraries/XP_Visual_Styles/Using_XP_Visual_Styles_in_VB/article.asp