VB6 Skins

I downloaded the Activeskin 3 ocx
and all is going fine except i cant
skin any buttons. Also the ocx and its files
are rather big, is there a compact
way of adding skins to an app?
please describe how
thanks

[VB Starter]

Use the Bitblt control, i forget where to get it, but its pretty common.

[DiGiTaIErRoR]

Usually buttons are images so a way of doing this is to have your program open bmps from image files. Then put them in the designated spots.

------------------
DiGiTaIErRoR

[Maartin]

If your using ActiveSkin 3 use the butons that the supply and use the ApplySkin function, to skin the buttons that the use.

I put the skinning code in a module and then make on call and all the needs to be skinned is skinned.

Here is the code of the module.

Public Sub Apply_Skin(frm As Form)

'|apply the skin to the specified form and controls
'|on the form.
Dim lLoop As Long

frm.Skin.SkinPath = App.Path & "\clipboard.skn"

On Local Error Resume Next
For lLoop = 0 To frm.Controls.Count
'|Debug.Print frm.cntrl.Name
frm.Controls(lLoop).ApplySkin frm.Skin
Next lLoop
On Local Error GoTo 0

End Sub

When you want to skin all in the form you call would look like this.


Private Sub Form_Load()

Apply_Skin Me

End Sub

Have fun.


------------------
Have Fun.
Maartin.
dinamite@onwe.co.za
-----------------------