Results 1 to 5 of 5

Thread: Please I need Help with this....

  1. #1

    Thread Starter
    New Member
    Join Date
    Jan 2007
    Posts
    5

    Wink Please I need Help with this....

    Hello, I was wondering if someone can help me?

    I have created a skinnable Advanced Notepad application, I am using the DirectSkin OCX for the skinning... My Question is How can My Application load the last chosen skin on startup?

    For example: I would like to use savesettings / getsettings to load the last used DirectSkin skin when my program is lauched lets say for an example I loaded a New DirectSkin theme (newtheme.uis) how can my program start with that theme? any help would be appreciated I am using VB 6.0 and DirectSkin ocx by stardock... If neccessary I will Zip all source files and email them to you if you can help me... I am completing this text editor for my college course and need this load last skin on startup feature implemented...

  2. #2
    I'm about to be a PowerPoster! Hack's Avatar
    Join Date
    Aug 2001
    Location
    Searching for mendhak
    Posts
    58,333

    Re: Please I need Help with this....

    Moved

  3. #3
    Frenzied Member
    Join Date
    Oct 2003
    Posts
    1,301

    Re: Please I need Help with this....

    Just store (textf file, ini file, registry) the name of the skin or file when you choose it and load it when the program starts.

  4. #4
    Frenzied Member zaza's Avatar
    Join Date
    Apr 2001
    Location
    Borneo Rainforest Habits: Scratching
    Posts
    1,486

    Re: Please I need Help with this....

    Since you know that you would like to use GetSetting / SaveSetting, have you tried looking them up in the VB help? There are explanations and code examples for each.


    zaza
    I use VB 6, VB.Net 2003 and Office 2010



    Code:
    Excel Graphing | Excel Timer | Excel Tips and Tricks | Add controls in Office | Data tables in Excel | Gaussian random number distribution (VB6/VBA,VB.Net) | Coordinates, Vectors and 3D volumes

  5. #5
    PowerPoster gavio's Avatar
    Join Date
    Feb 2006
    Location
    GMT+1
    Posts
    4,462

    Re: Please I need Help with this....

    VB Code:
    1. Option Explicit
    2.     Private skin As String
    3.  
    4. Private Sub Form_Load()
    5.     'change "default" so it will suite your default skin name
    6.     skin = GetSetting(App.EXEName, "Settings", "skin", "default")
    7. End Sub
    8.  
    9. Private Sub changeSkin()
    10.     'change it here
    11.     skin = '...
    12. End Sub
    13.  
    14. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    15.     SaveSetting App.EXEName, "Settings", "skin", skin
    16. End Sub

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