VB.NET编程语言中的资源文件应用方法有许多种,开发人员可以根据自己不同的需求来进行选择。我们在这里就为大家总结了几种常见的VB.NET资源文件应用技巧,希望能给大家带来一些帮助。
一、VB.NET资源文件开发中英(简、繁)双版本
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 "当前系统为:中文繁体","语言" Case &H804 MsgBox "当前系统为:中文简体","语言" lang = "1" Case &H409 MsgBox "当前系统为:英文","语言" lang = "2" End Select End Sub
⑴启动 vb6.0,在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”
⑵在 vb 资源编辑器窗口中,点击“编辑字符串表格”输入如下资料:
标识号 中文(中国)
101 例子
102 中文
103 英文
201 Ensample
202 Chinese
203 English
Sub LoadString()
Me.Caption = LoadResstring(Int(lang & "01"))
Command1(0)。Caption = LoadResstring(Int(lang & "02"))
Command1(1)。Caption = LoadResstring(Int(lang & "03"))
End Sub
⑴启动 vb6.0,在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”
类型: "WAVE"
标识号: 102
语言: 中文(中国)
Option Explicit
Private Declare Function GetSystemDefaultLCID Lib "kernel32"
()
As Long
(lpszSoundName As Any,ByVal uFlags As Long)
As Long
Public Const SND_ASYNC = &H1&
Public Const SND_MEMORY = &H4&
Private Sub Command5_Click()
注释:播放 WAV 文件
Dim bArr()
As Byte
bArr = LoadResData(102,"WAVE")
sndplaySoundFromMemory bArr(0),
SND_ASYNC Or SND_MEMORY
End Sub
⑷按 F5 运行本程序,点击 Command 按钮,就可以听到你选定的 WAV 文件的声音了。
⑴启动 vb6.0,在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”
⑶程序代码如下:
Me.Icon = LoadResPicture(101,vbResIcon)
注释:加载图标
Picture1.Picture = LoadResPicture(101,vbResBitmap)
注释:加载位图
Command1.MouseIcon = LoadResPicture(101,vbResCursor)
注释:加载光
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。