vb界面在很多的編程人員看來都是不怎么美化的,都是需要使用到一些其它的美化軟件來美化的,如果有需要美化的朋友,你現(xiàn)在就可以試試下面的這款比較好用的專業(yè)適合vb界面美化軟件(Xtreme Suite Pro ActiveX)!
vb界面美化軟件(Xtreme Suite Pro ActiveX)使用方法
1、需要下載以及安裝打開vb6.0;
2、將上述下載地址的兩個(gè)文件下載后放在同一個(gè)目錄下,然后解壓Part1,解壓完成后,可以看到一個(gè)setup.exe文件,按提示安裝,其中Sn在對(duì)應(yīng)的文本中,注意我們選用的Sn為Xtreme Suite Pro ActiveX v12.0.1 英文正式版的,Xtreme Toolkit Pro v12.0.1是針對(duì)MFC的,不要輸入錯(cuò)誤。
現(xiàn)在假設(shè)Xtreme Suite Pro ActiveX 按照默認(rèn)方式已安裝成功,那邊我們可以進(jìn)入到下一步了。
正式開始
1、新建一個(gè)VB6的EXE工程
2、在工具欄上點(diǎn)擊右鍵找到部件,因?yàn)閄treme Suite Pro ActiveX 已安裝成功,所以我們可以看到部件引用中有如下內(nèi)容
勾中xtreme SkinFramework ActiveX Control 12.0.1,此時(shí)我們的界面當(dāng)中應(yīng)該可以看到類似下面的圖片
到這里,我們的準(zhǔn)備工作已完全準(zhǔn)備妥當(dāng),下面是關(guān)鍵的代碼,我們將其放在Form_Load事件中
Private Sub Form_Load()
Dim FileName as string
Dim IniFile as string
FileName ="C:/Program Files/Codejock Software/ActiveX/Xtreme SuitePro ActiveX v12.0.1/Samples/SkinFramework/Styles/Office2007.cjstyles"
IniFile="NormalBlue.ini"
SkinFramework1.LoadSkin Dlg.FileName, IniFile
SkinFramework1.ApplyWindow Me.hWnd
SkinFramework1.ApplyOptions = SkinFramework1.ApplyOptions Or xtpSkinApplyMetrics
End Sub
這里我們利用SkinFramework的LoadSkin方法找到指定的皮膚文件,然后再調(diào)用ApplyWindow方法,并且設(shè)置了ApplyOptions 屬性,注意這里的設(shè)置其實(shí)就是SkinFramework的默認(rèn)值。
按F5運(yùn)行工程,出現(xiàn)在我們眼前的界面將是下面這個(gè)樣子了
簡單的引用,簡單的代碼,出現(xiàn)在我們面前的卻已經(jīng)是如此漂亮的界面,到這里我們已大告功成了。
- PC官方版
- 安卓官方手機(jī)版
- IOS官方手機(jī)版