关于activeskin在PB中运用问题

1: 首先定义外部函数:

PUBLIC FUNCTION ulong GetDC(ulong hwnd) LIBRARY "user32.dll"
PUBLIC FUNCTION ulong GetDesktopWindow() LIBRARY "user32.dll"
PUBLIC FUNCTION ulong ReleaseDC(ulong hwnd,ulong hdc) LIBRARY "user32.dll"

2: 定义实例变量:

ulong iu_skin,iu_dsktop

3: 在主窗体中加入控件:

在打开的窗口中选择Insert Control栏
在下面选中ActiveSkin Control并放到窗口上，并命名为ole_1

4: 窗口的open事件:

string ls_skindir
ls_skindir="skin/Web-II.skn" //皮肤文件相应的路径与名称

//创建skin对象

ole_1.Object.loadskin(ls_skindir)
ole_1.Object.ApplySkin(Handle(This))
iu_skin=GetDC(Handle(This))
iu_dsktop=GetDC(GetDesktopWindow())

5: 窗口的close事件:

//注销skin对象

ReleaseDC(Handle(This),iu_skin)
ReleaseDC(Handle(This),iu_dsktop)
CloseUserObject(ole_1)

6: ActiveSkin4.27的其它使用方法:

当使用opensheet打开窗口:
w_main下打开w_sheet
ole_1.object.ApplySkin(Handle(w_sheet)) //这句很重要，不要偷懒
ole_1.object.applyskinbyname(handle(w_sheet),"form")

当使用菜单打开窗口
w_main.ole_1.object.ApplySkin(Handle(w_sheet))
w_main.ole_1.object.applyskinbyname(handle(w_sheet),"form")