VB6 调用 DirectSkin OCX 示例
2007-05-03 17:01 电脑人生 阅读(199) 评论(0) 编辑 收藏 举报今天看到 DirectSkin5 发布了,顺便总结了下用法:
(一)第一步
Private Sub Form_Load()
Wbocx1.InitWB
Wbocx1.SetRootPath 1
Wbocx1.SetRootPathStr "C:/Program Files/Stardock/DirectSkin/samples/skins/"
Wbocx1.LoadUIS "xp corona/xp corona.uis"
Wbocx1.DoWindow Me.hWnd
End Sub
(二)第二步
Private Sub Form_Unload(Cancel As Integer)
Wbocx1.DetachWindow hWnd
Wbocx1.UndoWB
End Sub