Скины для программ написанные на VB .......

[Daniil]

Как сделать поддержку скинов для программы? Может есть у кого исходники? Уж уочень хочется иметь возможность меня скины. Заранее спасибо за ответ.

[Лёха_Virus]

например хранить в файле скина настройки картинок, цветов, шрифтов ну и т.п. при загрузке читаешь файл скина, применяешь настройки, типа:
dim fso,f
dim skin_filename
private sub form1_load()
skin_filename = app.path & "\skin.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(skin_filename)
Set ts = f.OpenAsTextStream(1, -2)
pic = ts.readline
forecolor = ts.readline
fontsize=ts.readline
'и т.д.
me.Picture = loadpicture(pic)
me.forecolor=forecolor
me.fontsize=fontsize
end sub

а файл конфига (для данного примера) будет таким:

skin1.bmp
16777215
12

и т.д.

Ну и соответсвенно для скина те надо буит файл картинки и файл настроек.

[Daniil]

например хранить в файле скина настройки картинок, цветов, шрифтов ну и т.п. при загрузке читаешь файл скина, применяешь настройки, типа:
dim fso,f
dim skin_filename
private sub form1_load()
skin_filename = app.path & "\skin.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(skin_filename)
Set ts = f.OpenAsTextStream(1, -2)
pic = ts.readline
forecolor = ts.readline
fontsize=ts.readline
'и т.д.
me.Picture = loadpicture(pic)
me.forecolor=forecolor
me.fontsize=fontsize
end sub

а файл конфига (для данного примера) будет таким:

skin1.bmp
16777215
12

и т.д.

Ну и соответсвенно для скина те надо буит файл картинки и файл настроек.

Как делать файл конфига? как делать записи в него? Как прочитать из него данные? В общем все от начал и до конца. Может исходник есть?

[EvilCoder]

<DELETE>

[Cyrax]

а еще тут можно компонент взять... правда он не бесплатный, зато поддержка скинов сделана на очень высоком уровне. есть даже свой SkinBuilder.
и вот здесь несколько примеров было...

[hCORe]

А vbAccelerator отменяли? Отличнейший пример, только все .ocx и .dll надо зарегистрировать через regsvr32.