Results 1 to 4 of 4

Thread: VB6 Skins

  1. #1
    Guest

    Post

    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

  2. #2
    Junior Member
    Join Date
    Jan 1999
    Location
    Fridley, MN, USA
    Posts
    19

    Post

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

  3. #3
    So Unbanned DiGiTaIErRoR's Avatar
    Join Date
    Apr 1999
    Location
    /dev/null
    Posts
    4,111

    Post

    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

  4. #4
    Lively Member Maartin's Avatar
    Join Date
    Jan 2000
    Location
    Benoni, Gauteng, South-Africa
    Posts
    99

    Post

    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
  •  



Click Here to Expand Forum to Full Width