当然能在工程中引用uskin.net 2.2 free library Dim a As New USkinCOMObject Private Sub Form_Load() a.USkinInit "", "", App.Path + "\Cyclops.u3" '"Cyclops.u3"为皮肤文件名 End SubPrivate Sub cmdQuit_Click()'退出 a.USkinRemoveSkin a.USkinExit '退出时卸掉uskin Unload Me End Sub
我是在下面这个地址下载的2.2版的开发包,在我的Windows XP sp2系统下可用。 http://www.11nong.com/soft/23453/ 注意:解压缩后把原USkin.dll和USkinComFree.dll删除,把USkinFree.dll改名为USkin.dll,把USkinComFree.dll改名为USkinCom.dll,然后在VB中添加引用时要引用USkinCom.dll而不是USkin.dll
Dim a As New USkinCOMObject
Private Sub Form_Load()
a.USkinInit "", "", App.Path + "\Cyclops.u3" '"Cyclops.u3"为皮肤文件名
End SubPrivate Sub cmdQuit_Click()'退出
a.USkinRemoveSkin
a.USkinExit '退出时卸掉uskin
Unload Me
End Sub
你能不能把你的那个版本发给我,
顺便也给我一个测试代码,
好吗????
http://www.11nong.com/soft/23453/
注意:解压缩后把原USkin.dll和USkinComFree.dll删除,把USkinFree.dll改名为USkin.dll,把USkinComFree.dll改名为USkinCom.dll,然后在VB中添加引用时要引用USkinCom.dll而不是USkin.dll