我用VB做了一个需要 外接 OCX 控件的程序。
如果把它放在另一台计算机上运行,很可能因为缺少相应的OCX
控件而报错。我采取如下的方法:

本文介绍了 Visual Basic
中资源文件的多种使用技巧:①开发中英(简、繁)双版本的技巧;②实现“绿色”软件;③直接播放声音文件;④保存各类图标、光标图片等等。

添加一个模块,见代码


Attribute VB_Name = “Module1”
Option Explicit
Private Sub Main()
Dim r%
r = Shell(“regsvr32.exe ” & App.Path & “TEXTRICHTX32.OCX /s”, 1)
DoEvents
r = Shell(“regsvr32.exe ” & App.Path & “TEXTCOMDLG32.OCX /s”, 1)
DoEvents
Form1.Show
End Sub

在 Visual Basic 中资源文件的多种使用技巧

然后把“启动对象“换作 “Sub
Main”。生成程序后,把程序连同文件夹“TEXT”及里面的 *.ocx
一同放到另一台计算机上,就可以运行了。但是,我不知这样会有什么不妥,甚至严重后果。请知情者指点,十分感谢!

一、 开发中英(简、繁)双版本
现在比较流行的软件都会有中文版、英文版、繁体版等等多个版本,并可以根据系统的语言自动显示相适应的版本,那么这个功能在
VB 是如何实现得呢的:
1、 首先通过 API 函数GetSystemDefaultLCID 判断系统的语言
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
2、然后程序就可以加载保存在资源文件(这里我们就是使用的这种方法)、注册表、INI
文件、文本文件或其他文件中的各类字符串,以达到达到实现多种语言的目的。
⑴启动 VB6.0,在“外接程序→外接程序管理器”中加载“Visual Basic 6
资源编辑器”
⑵在 VB 资源编辑器窗口中,点击“编辑字符串表格”输入如下资料:
标识号 中文(中国)
101 例子
102 中文
103 英文
201 Ensample
202 Chinese
203 English
⑶保存资源文件,写如下代码:(自定义装载字符的函数 LoadString)
Sub LoadString()
Me.Caption = LoadResString(Int(lang & "01"))
Command1(0).Caption = LoadResString(Int(lang & "02"))
Command1(1).Caption = LoadResString(Int(lang & "03"))
End Sub
⑷怎么样一个简单的中英双版本的程序就做出来了,如果把 lang 的值设置为
1,则显示中文,如果把 lang 的值设置为 2,则显示英文。
二、 实现“绿色”软件
现在非常流行“绿色”软件,不需要什么安装程序只要一个 EXE
文件就可以运行程序
了,而在 VB 的编程中有许多地方需要调用第三方的控件(很难用 API
函数搞定所有的功能),这就需要制做一个安装程序,把所需要的控件、DLL
文件或其他文件打包进去了,那么在 VB
中怎么用变通的方法实现“绿色”软件呢,请看:
示例:
澳门新葡亰,1、主程序.EXE
用 VB6.0 编写的程序,调用了 Winsock 控件,如果在没有安装 VB5.0、6.0
的机器上运行则会出现错误,导致程序运行失败,这时如果按一般的方法,只有把这个程序用
VB5.0、6.0 的安装程序进行打包,不然只有用用2的方法来解决了。
2、注册程序.EXE
用 VB6.0 编写的程序,使用资源文件的方法,把 Winsock
控件封装到本程序中,在运行主程序.EXE之前,先运行本程序,通过 API 函数
GetSystemDirectory 取得系统的 WinddowsSystem 的目录,然后把 Winsock
控件复制到该目录下,并用 Shell 来完成控件的注册。
⑴启动 VB6.0,在“外接程序→外接程序管理器”中加载“Visual Basic 6
资源编辑器”
⑵在 VB 资源编辑器窗口中,点击“添加自定义资料”,增加 Winsock
控件(C:WinddowsSystemMswinsck.ocx),再双击刚刚创建的自定义资源,弹出”编辑属性”窗口,定义如下:
类型: “OCX”
标识号: 101
语言: 中文(中国)
⑶保存资源文件,写如下代码:
Option Explicit
Private Declare Function GetSystemDirectory Lib "kernel32"
Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal
nSize As Long) As Long
Const MAX_PATH = 260 注释:定义足够长的字符串
Private Sub Form_Load()
Dim TempFile() As Byte
Dim FileNum As Integer
Dim TempDir As String
TempDir = GetWinSysDir 注释:自定义函数取得系统的 WinddowsSystem
的目录
TempFile = LoadResData(101, "OCX") 注释:用以从资源 (.res)
文件装载若干可能类型的数据,并返回一个 Byte 数组
FileNum = FreeFile
Open TempDir & "Mswinsck.ocx" For Binary Access Write As
#FileNum 注释:新建文件(把 Winsock 控件复制到指定目录下)
Put #FileNum, , TempFile
Close #FileNum

注释:Shell "regsvr32 " & TempDir & "Mswinsck.ocx ",
vbNormalFocus 注释:注册控件,有弹出对话框
Shell "regsvr32 " & TempDir & "Mswinsck.ocx /s",
vbNormalFocus 注释:注册控件,无弹出对话框

网站地图xml地图