vb.net皮膚下載 vbnet keydown

vb怎么加載皮膚

轉(zhuǎn)載此出處

創(chuàng)新互聯(lián)專(zhuān)注于企業(yè)成都全網(wǎng)營(yíng)銷(xiāo)推廣、網(wǎng)站重做改版、北海網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、H5頁(yè)面制作、商城系統(tǒng)網(wǎng)站開(kāi)發(fā)、集團(tuán)公司官網(wǎng)建設(shè)、成都外貿(mào)網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁(yè)設(shè)計(jì)等建站業(yè)務(wù)，價(jià)格優(yōu)惠性?xún)r(jià)比高，為北海等各大城市提供網(wǎng)站開(kāi)發(fā)制作服務(wù)。

說(shuō)到換膚，我們腦子當(dāng)中可能就會(huì)浮現(xiàn)很多商業(yè)軟件那些漂亮的皮膚，自從XP流行以來(lái)，程序的外觀變得比以往更加引人注意，像Office 系列的界面，一直是很多程序員模仿的范例，今天我就利用Xtreme Suite Pro ActiveX 輕松的給自己程序加上皮膚應(yīng)用功能，為我們自己的程序增色。

目標(biāo)：制作一個(gè)具有換膚功能的程序，程序界面模仿Office 2007樣式

一、準(zhǔn)備工作

1、開(kāi)發(fā)工具VB6，當(dāng)然也可以用.Net，這里以VB6做示例

2、Xtreme Suite Pro ActiveX 12英文正式版

下載地址為：

Part1:

Part2:

二、工具安裝

1、VB6的安裝不多說(shuō)

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)入到下一步了。

三、正式開(kāi)始

1、新建一個(gè)VB6的EXE工程

2、在工具欄上點(diǎn)擊右鍵找到部件，因?yàn)閄treme Suite Pro ActiveX 已安裝成功，所以我們可以看到部件引用中有如下內(nèi)容

（圖1）

勾中xtreme SkinFramework ActiveX Control 12.0.1，此時(shí)我們的界面當(dāng)中應(yīng)該可以看到類(lèi)似下面的圖片

（圖2）

到這里，我們的準(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è)樣子了

（圖3）

簡(jiǎn)單的引用，簡(jiǎn)單的代碼，出現(xiàn)在我們面前的卻已經(jīng)是如此漂亮的界面，到這里我們已大告功成了。

四、擴(kuò)展

Xtreme Suite Pro ActiveX 的SkinFramework 不但支持以cjstyles為擴(kuò)展的皮膚文件，同時(shí)也支持XP的themes文件，即以msstyles為擴(kuò)展名的文件，知道了這點(diǎn)我們的皮膚來(lái)源就非常廣了。

下面為大家推薦一個(gè)地方，里面有很多免費(fèi)的皮膚

安裝完Xtreme Suite Pro ActiveX ，官方即包含Office2007.cjstyles，Vista.cjstyles，WinXP.Luna.cjstyles，WinXP.Royale.cjstyles四個(gè)皮膚文件，同一個(gè)皮膚文件中可能包含幾個(gè)配置文件，比如Office2007.cjstyles就包含NormalBlue.ini 、NormalAqua.ini 、NormalSilver.ini 、NormalBlack.ini 四個(gè)配置文件，可以放在LoadSkin方法的第二個(gè)參數(shù)中，就可以顯示不同配置文件所達(dá)到的不同皮膚的效果。

為了讀取皮膚文件所包含的配置文件，我們可以用下面的方法

Dim Discription As SkinDescription

Dim i As Integer

Dim FileName as string

FileName ="C:/Program Files/Codejock Software/ActiveX/Xtreme SuitePro ActiveX v12.0.1/Samples/SkinFramework/Styles/Office2007.cjstyles"

Set Discription = SkinFramework1.EnumerateSkinFile(FileName )

For i = 0 To Discription.Count - 1

debug.print "IniFile:" Discription.IniFile(i).IniFileName "/ColorScheme:" Discription.IniFile(i).ColorScheme _

"/FontSize:" Discription.IniFile(i).FontSize

Next

寫(xiě)到這里，我們才真正搞定了皮膚的開(kāi)發(fā)，為了大家的使用方便，我特意寫(xiě)了一個(gè)示例程序

下載地址為：

另外這里包含了幾個(gè)皮膚文件:

有興趣的可以參考一下

用于vb.net程序皮膚

DotNetSkin.dll 找這個(gè)破解的dll

，它的皮膚你上官方網(wǎng)站下。

這個(gè)控件不到1m，很小，速度也快，美觀方面，也夠用了。

VB.net高手進(jìn) 透明窗體皮膚

form的opacity屬性和form的transparencykey屬性 opacity數(shù)據(jù)類(lèi)型為雙精度浮點(diǎn)型，它決定窗體本身的透明度。 例：me.opacity=0.5 transparencykey的屬性決定窗體上的控件的所在區(qū)域是否完全透明。當(dāng)窗體上的控件的背景色與窗體的transparencykey屬性相同時(shí)，則該控件的所在區(qū)域完全透明。 例：me.transparencykey=color.red me.textbox1.backcolor=color.red 上面的代碼為窗體上的textbox控件完全透明

新聞名稱(chēng)：vb.net皮膚下載 vbnet keydown
瀏覽路徑：http://muchs.cn/article8/dospjip.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供服務(wù)器托管、網(wǎng)站導(dǎo)航、動(dòng)態(tài)網(wǎng)站、App開(kāi)發(fā)、靜態(tài)網(wǎng)站、響應(yīng)式網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)