0
点赞
收藏
分享

微信扫一扫

VB6 调用 DirectSkin OCX 示例

hwwjian 2023-01-15 阅读 64


今天看到 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

举报

相关推荐

0 条评论