-
Dec 12th, 1999, 10:08 AM
#1
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
-
Dec 12th, 1999, 10:46 AM
#2
Junior Member
Use the Bitblt control, i forget where to get it, but its pretty common.
-
Dec 12th, 1999, 12:31 PM
#3
So Unbanned
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
-
Jan 20th, 2000, 02:23 PM
#4
Lively Member
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
-----------------------
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|