建站
咨詢(xún)
售后
建站咨詢(xún)
新聞中心
VB.NET編程語(yǔ)言中的資源文件應(yīng)用方法有許多種，開(kāi)發(fā)人員可以根據(jù)自己不同的需求來(lái)進(jìn)行選擇。我們?cè)谶@里就為大家總結(jié)了幾種常見(jiàn)的VB.NET資源文件應(yīng)用技巧，希望能給大家?guī)?lái)一些幫助。
扶溝網(wǎng)站制作公司哪家好，找成都創(chuàng)新互聯(lián)公司！從網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開(kāi)發(fā)、APP開(kāi)發(fā)、成都響應(yīng)式網(wǎng)站建設(shè)等網(wǎng)站項(xiàng)目制作，到程序開(kāi)發(fā)，運(yùn)營(yíng)維護(hù)。成都創(chuàng)新互聯(lián)公司從2013年開(kāi)始到現(xiàn)在10年的時(shí)間，我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn)，來(lái)保證我們的工作的順利進(jìn)行。專(zhuān)注于網(wǎng)站建設(shè)就選成都創(chuàng)新互聯(lián)公司。
一、VB.NET資源文件開(kāi)發(fā)中英（簡(jiǎn)、繁）雙版本
現(xiàn)在比較流行的軟件都會(huì)有中文版、英文版、繁體版等等多個(gè)版本，并可以根據(jù)系統(tǒng)的語(yǔ)言自動(dòng)顯示相適應(yīng)的版本，那么這個(gè)功能在 vb 是如何實(shí)現(xiàn)得呢的：
1、 首先通過(guò) API 函數(shù)GetSystemDefaultLCID 判斷系統(tǒng)的語(yǔ)言
- Option Explicit
- Dim lang As String
- Private Declare Function
GetSystemDefaultLCID Lib
"kernel32" () As Long- Private Sub Form_Load()
- Dim LocaleID As Long
- LocaleID = GetSystemDefaultLCID
- Select Case LocaleID
- Case &H404
- MsgBox "當(dāng)前系統(tǒng)為：中文繁體", , "語(yǔ)言"
- Case &H804
- MsgBox "當(dāng)前系統(tǒng)為：中文簡(jiǎn)體", , "語(yǔ)言"
- lang = "1"
- Case &H409
- MsgBox "當(dāng)前系統(tǒng)為：英文", , "語(yǔ)言"
- lang = "2"
- End Select
- End Sub
2、然后程序就可以加載保存在資源文件（這里我們就是使用的這種方法）、注冊(cè)表、INI 文件、文本文件或其他文件中的各類(lèi)字符串，以達(dá)到達(dá)到實(shí)現(xiàn)多種語(yǔ)言的目的。
⑴啟動(dòng) vb6.0，在“外接程序→外接程序管理器”中加載“Visual Basic 6 資源編輯器”
⑵在 vb 資源編輯器窗口中，點(diǎn)擊“編輯字符串表格”輸入如下資料：
標(biāo)識(shí)號(hào) 中文（中國(guó)）
101 例子
102 中文
103 英文
201 Ensample
202 Chinese
203 English
⑶保存資源文件，寫(xiě)如下代碼：（自定義裝載字符的函數(shù) LoadString）
- Sub LoadString()
- Me.Caption = LoadRes
String(Int(lang & "01"))- Command1(0).Caption =
LoadResString(Int(lang & "02"))- Command1(1).Caption =
LoadResString(Int(lang & "03"))- End Sub
⑷怎么樣一個(gè)簡(jiǎn)單的中英雙版本的程序就做出來(lái)了，如果把 lang 的值設(shè)置為 1，則顯示中文，如果把 lang 的值設(shè)置為 2，則顯示英文。#t#
ps：更簡(jiǎn)單實(shí)用的方法是:把不同語(yǔ)言文字放在同一個(gè)標(biāo)識(shí)號(hào)ID對(duì)應(yīng)的不同字符串表格中即可。vb 會(huì)自動(dòng)實(shí)現(xiàn)多種語(yǔ)言轉(zhuǎn)換!
二、 VB.NET資源文件直接播放EXE文件中的聲音文件
使用資源文件，可以直接在在EXE文件中播放聲音文件（WAV文件），使程序顯得更加專(zhuān)業(yè)。
⑴啟動(dòng) vb6.0，在“外接程序→外接程序管理器”中加載“Visual Basic 6 資源編輯器”
⑵在 vb 資源編輯器窗口中，點(diǎn)擊“添加自定義資料”，增加任意的 WAV 文件，再雙擊剛剛創(chuàng)建的自定義資源，彈出”編輯屬性”窗口，定義如下：
類(lèi)型： "WAVE"
標(biāo)識(shí)號(hào)： 102
語(yǔ)言： 中文（中國(guó)）
⑶保存資源文件，寫(xiě)如下代碼：
- Option Explicit
- Private Declare Function
GetSystemDefaultLCID Lib
"kernel32" () As Long- Private Declare Function
sndPlaySoundFromMemory Lib
"winmm.dll" Alias "sndPlaySoundA"
(lpszSoundName As Any, ByVal
uFlags As Long) As Long- Public Const SND_ASYNC = &H1&
- Public Const SND_MEMORY = &H4&
- Private Sub Command5_Click()
注釋?zhuān)翰シ?nbsp;WAV 文件- Dim bArr() As Byte
- bArr = LoadResData(102, "WAVE")
- sndPlaySoundFromMemory bArr(0),
SND_ASYNC Or SND_MEMORY- End Sub
⑷按 F5 運(yùn)行本程序，點(diǎn)擊 Command 按鈕，就可以聽(tīng)到你選定的 WAV 文件的聲音了。
三、 VB.NET資源文件直接調(diào)用各類(lèi)圖標(biāo)、光標(biāo)圖片
在一個(gè)程序中，我們可能需要調(diào)用多個(gè)圖標(biāo)、光標(biāo)、圖片文件，一般來(lái)說(shuō)我們主要是使用 ImageList 控件，不過(guò)其時(shí)使用資源文件是最好的方法（可以少使用一個(gè)控件呀）。
⑴啟動(dòng) vb6.0，在“外接程序→外接程序管理器”中加載“Visual Basic 6 資源編輯器”
⑵在 vb 資源編輯器窗口中，點(diǎn)擊“添加光標(biāo)”，“添加圖標(biāo)”，“添加位圖”，裝載所需要的文件。
⑶程序代碼如下：
- Me.Icon = LoadResPicture
(101, vbResIcon) 注釋?zhuān)杭虞d圖標(biāo)- Picture1.Picture = LoadResPicture
(101, vbResBitmap) 注釋?zhuān)杭虞d位圖- Command1.MouseIcon = LoadResPicture
(101, vbResCursor) 注釋?zhuān)杭虞d光
當(dāng)前標(biāo)題：VB.NET資源文件應(yīng)用經(jīng)驗(yàn)總結(jié)
網(wǎng)頁(yè)網(wǎng)址：http://www.dlmjj.cn/article/dpshjio.html
