🚀 go-pugleaf

thx

"Billyke" <gert.verstappen@gmx.net> schreef in bericht
news:bhe1pv$onc$1@reader10.wxs.nl...
>
> "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_X
P_Visual_Styles_in_VB/article.asp
>
>