mailto:tonyki@citiz.net

模块MdlLanMgr.bas：

AttributeVB_Name="ModuleLanMgr"

OptionExplicit

PrivateDeclareFunctionGetPrivateProfileString&Lib"kernel32"Alias"GetPrivateProfileStringA"(ByVallpApplicationNameAsString,ByVallpKeyNameAsString,ByVallpDefaultAsString,ByVallpReturnedStringAsString,ByValnSizeAsLong,ByVallpFileNameAsString)

PrivateLanguageFileNameAsString

'选择语言

PublicSubSelectLanguage(LanNameAsString)

OnErrorResumeNext

SelectCaseLanName'根据用户选择的语言的名称，分别读取不同的语言文件

Case"English":

LanguageFileName=AddSplash(App.Path)&"English.Lan"

Case"Chinese(Simplify)":

LanguageFileName=AddSplash(App.Path)&"ChineseS.Lan"

Case"Chinese(Traditional)":

LanguageFileName=AddSplash(App.Path)&"ChineseT.Lan"

CaseElse:

LanguageFileName=""

EndSelect

EndSub

'翻译文字

PublicFunctionTranslateStr(sSectionAsString,sKeyAsString,sDefValAsString)AsString

DimsValueAsString*128

DimNAsLong

OnErrorResumeNext

TranslateStr=sDefVal

IfNotFileExists(LanguageFileName)Then

ExitFunction

EndIf

N=GetPrivateProfileString(sSection,sKey,sDefVal,sValue,127,LanguageFileName)

IfN>0Then

TranslateStr=Left(sValue,N)

EndIf

EndFunction

'自动转换Form上的一些基本控件(也可自行扩展，目前支持CommandButton,Label,OptionButton,CheckButton)

PublicSubTranslateForm(FrmAsForm)

DimIAsLong

OnErrorResumeNext

Frm.Caption=TranslateStr(Frm.Name,"Caption",Frm.Caption)

ForI=0ToFrm.Controls.Count-1

If(TypeOfFrm.Controls(I)IsCommandButton)Or(TypeOfFrm.Controls(I)IsLabel)_

Or(TypeOfFrm.Controls(I)IsOptionButton)Or(TypeOfFrm.Controls(I)IsCheckBox)Then

Frm.Controls(I).Caption=TranslateStr(Frm.Name,Frm.Controls(I).Name,Frm.Controls(I).Caption)

EndIf

NextI

EndSub->

在VB中绘制实时曲线是比较难的，一般要应用第三方控件或是WindowsAPI函数来完成，但是如果你对实时曲线的要求不是很高，只要能表示出当前的一般情况的话，我们可以直接应用VB提供给我们的空间来完成

该功能数据记录的统计需要在中增加属性才会进行记录统计，比如这样：PrivateSubCommand1_Click()

OnErrorGoToErr100

'定义表与字段

DimDefDatabaseAsDatabase

DimDefTableAsTableDef,DefFieldAsField

SetDefDatabase=Workspaces(0).OpenDatabase(App.Path&"\vbeden.mdb",0,False)

SetDefTable=DefDatabase.CreateTableDef("VB编程乐园")

'dbBinary=9

'dbBoolean=1

'dbByte=2

'dbChar=18

'dbDate=8

'dbInteger=3

'dbLong=4

'dbMemo=12

'dbText=10

'建立Name字段为8个字符型

SetDefField=DefTable.CreateField("Name",dbText,8)

DefTable.Fields.AppendDefField

SetDefField=DefTable.CreateField("Sex",dbText,2)

DefTable.Fields.AppendDefField

'该字段允许为空

DefField.AllowZeroLength=True

'建立Age字段为3个的常整型

SetDefField=DefTable.CreateField("Age",dbInteger,3)

'字段追加

DefTable.Fields.AppendDefField

'表追加

DefDatabase.TableDefs.AppendDefTable

MsgBox"VB编程乐园数据库建立完成

1，对于JSON对象与JSON格式字符串的转换可以直接用 toJSONString()这个方法其方法是：打开Windows注册表的＼HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\3.5＼Engines＼Xbase键，执行“编辑”菜单中的“新建”，然后单击“字符串值”，输入INFPath作为名称，再在“数据”列输入该．inf文件的完整的目录或者网络路径

原因在于此句代码中的文件名未指定编码字符集：人机图一中所显示的时间就是使用者从一开始做练习到目前所用的时间

。