頁:
[1]
VB6.0界面美化不帶任何附件的簡單實現方
本帖最後由 darkjack 於 2012-4-29 10:11 PM 編輯VB6.0界面美化往往生成的exe往往要帶有bas、dll、ocx等等東西。很麻煩。所以介紹下面的美化方法生成的exe后就一個exe。沒有任何的附件。首先准備3個美化的東東：vb6.0 she皮膚調用模塊.bas、aero.she、SkinH_VB6.dll。放在“D:”下面：
新建工程，在“外接程序”——“外接程序管理器”——“vb6資源編輯器”然后在“工具”——“資源編輯器”里面添加：vb6.0 she皮膚調用模塊.bas、aero.she、SkinH_VB6.dll這3個文件，分別命名為(101, "CUSTOM")、(102, "CUSTOM")、(103, "CUSTOM")
好了。在工程1里面添加模塊1（Module1）：在Module1添加代碼：Sub Main()
Dim bas As Stringbas = "D: b6.0 she皮膚調用模塊.bas"
Dim OPEN1() As Byte
OPEN1 = LoadResData(101, "CUSTOM")
Open bas For Binary As #1
Put #1, ,
OPEN1
Close #1
Dim she As Stringshe = "D:aero.she"
Dim OPEN2() As Byte
OPEN2 = LoadResData(102, "CUSTOM")
Open she For Binary As #1
Put #1, ,
OPEN2
Close #1
Dim dll As String
dll = "C:WINDOWSsystem32SkinH_VB6.dll"
Dim OPEN3() As Byte
OPEN3 = LoadResData(103, "CUSTOM")
Open dll For Binary As #1
Put #1, ,
OPEN3
Close #1
Form1.Show
End Sub
再添加vb6.0 she皮膚調用模塊.bas模塊
好了。在Form1下面添加代碼：Private Sub Form_Load()
SkinH_AttachEx "D:aero.she", ""
End Sub
Private Sub Form_Unload(Cancel As Integer)
Kill ("D:aero.she")
Kill ("D: b6.0 she皮膚調用模塊.bas")
End Sub
最后在“工程”——“工程1屬性”里面將“啟動對象”改為“Sub Main”。生成一個exe看看效果。不放心的話，刪除vb6.0 she皮膚調用模塊.bas、aero.she、SkinH_VB6.dll這3個文件，再運行看看。果然這個exe不用帶任何附件就實現了美化效果。
能不能翻譯1下呢??
他的 新建工程，在“外接程序”——“外接程序管理器”——“vb6資源編輯器”
然后在“工具”——“資源編輯器”里面添加：vb6.0 she皮膚調用模塊.bas、aero.she、SkinH_VB6.dll這3個文件，分別命名為(101, "CUSTOM")、(102, "CUSTOM")、(103, "CUSTOM")
請問是在哪裡?? 我們台灣 vb6 跟大陸vb6 不一樣 所以他們的 工程 = 我們的專案 還是搞不懂!
幫你包代碼
...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><div></div> 小弟想請問一下，這個是VB的美化那像C#的話有沒有相關的方法也能做到?或者能不能套用在C#?
翻譯那個我可以幫忙，可是我需要知道你的VB開發環境的版本，我才知道我有沒有才能幫忙看。 那個是 VB6 版本的 如果沒記錯.. .net 版本好像沒有..
而那個 皮膚的 通常都是C 去作的
頁:
[1]