VB
用VB创建/读取INI文件，并利用INI文件汉化程序，设置程序显示语言方法(二)
Allen 2011-09-10 09:39:47 5202 0 0 0 0
 上一篇介绍了用INI文件设置程序显示语言的方法，但那都是正常控件，如果使用了控件数组，那种方法就不能使用了。
下面的方法可以对控件数组进行设置。
 
 1，首先要根据窗体创建INI文件。
Public Sub prCreateIniForArray()   '根据控件数组创建INI文件   ' Tao Add to Set Chinese by Ini, --20110816
 
    Dim pFileName, pstr As String
    Dim pFileNum, pI
    Dim plblName As String
    
    pFileName = App.Path & "ini" & App.EXEName & "_lang_" & Me.Name & ".ini"
    pFileNum = FreeFile
    
    Open pFileName For Output As #pFileNum
    
    '写入空行
    pstr = " "
    Print #pFileNum, pstr
    
    '处理控件数组开始---(((         如有多个控件数组，请在下面重复执行此过程
    plblName = "fraDraw"                                          '----------设定控件数组名称
    '写入节名
    pstr = "[" & Me.Name & "." & plblName & "]"
    Print #pFileNum, pstr
    '循环各控件，写入Ini文件
    For pI = fraDraw.LBound To fraDraw.UBound                     '----------设定控件数组名称
         If fChkControls(frmInfo, "fraDraw", pI) = True Then      '----------设定控件数组名称
             pstr = "  " & pI & " = " & fraDraw(pI).Caption       '----------设定控件数组名称
             Print #pFileNum, pstr
         End If
    Next pI
    '处理控件数组结束---)))
 
    '处理控件数组开始---(((         如有多个控件数组，请在下面重复执行此过程
    plblName = "lblData"                                           '----------设定控件数组名称
    '写入节名
    pstr = "[" & Me.Name & "." & plblName & "]"
    Print #pFileNum, pstr
    '循环各控件，写入Ini文件
    For pI = lblData.LBound To lblData.UBound                     '----------设定控件数组名称
         If fChkControls(frmInfo, "lblData", pI) = True Then      '----------设定控件数组名称
             pstr = "  " & pI & " = " & lblData(pI).Caption       '----------设定控件数组名称
             Print #pFileNum, pstr
         End If
    Next pI
    '处理控件数组结束---)))
    
    '处理控件数组开始---(((         如有多个控件数组，请在下面重复执行此过程
    plblName = "lblHWY"                                           '----------设定控件数组名称
    '写入节名
    pstr = "[" & Me.Name & "." & plblName & "]"
    Print #pFileNum, pstr
    '循环各控件，写入Ini文件
    For pI = lblHWY.LBound To lblHWY.UBound                       '----------设定控件数组名称
         If fChkControls(frmInfo, "lblHWY", pI) = True Then       '----------设定控件数组名称
             pstr = "  " & pI & " = " & lblHWY(pI).Caption        '----------设定控件数组名称
             Print #pFileNum, pstr
         End If
    Next pI
    '处理控件数组结束---)))
    
    '如有多个控件数组，请在下面重复执行上面过程
    '----------((
    
    '----------))
    
    '处理完成后关闭文件
    Close #pFileNum
    
    MsgBox "Ini file for [" & Me.Name & "] have created success!"
    
    
End Sub
 然后，在窗体上添加一按钮，执行以下代码，对每个窗体生成ini文件：
Private Sub Command1_Click()   ' Tao Add to Set Chinese by Ini, --20110816
    frmData.prCreateIniForArray
    frmData2.prCreateIniForArray
    frmInfo.prCreateIniForArray
End Sub
将各窗体生成的ini文件合并，命名为App.EXEName_Lang.ini。保存目录：App.Pathini
生成的ini文件内容示例如下：
[COMMON]
  '此部分为公用过程，请直接添加
 
  LANGUAGE = CHINESE
  'LANGUAGE = JAPANESE
 
  '系统语言
  WINDOWS=CHINESE
  'WINDOWS=JAPANESE
 
  '控件caption字符集
  Proportional Font = Simsun
  'Proportional Font = MS PGothic
 
  '控件文体内容字符集
  Regular Font = Simsun
  'Regular Font = MS Gothic
 
[frmData.lblData]
  0 = 工号
  1 = 工名
  2 = 图纸的种类
  '......
[frmData2.lblData]
  0 = 工号
  1 = 工名
  2 = 图纸的种类
  3 = 用纸
  4 = 横向
  '...... 
[frmInfo.fraDraw]
  1 = 1-RC柱
  2 = 2-升降机器
  '......
[frmInfo.lblData]
  1 = （外侧）
  2 = （内侧）
  3 = （外侧）
  9 = A
  '......
2，使用INI文件设置窗体显示：在每个窗体中添加以下过程，并在form_load中调用此过程。
Public Sub prSetDisplay_Array()     '根据INI文件，设定控件数组显示   ' Tao Add to Set Chinese by Ini, --20110816
 
    Dim pIniFile As String
    Dim plblName As String
    Dim plblIdx As Integer
 
    plblName = "lblData"                                             '---------设定标签数组名称-----------
 
    pIniFile = App.Path & "ini" & App.EXEName & "_lang.ini"
 
    If Dir(pIniFile) = "" Then
        MsgBox "Ini File [" + pIniFile + "] not found !!", vbCritical + vbOKOnly
        Exit Sub
    End If
 
    Dim pLang$, pPrp_Font, pReg_Font, pWin$
    Dim pCharset_data
 
    pLang$ = cfReadIniFile(pIniFile, "COMMON", "LANGUAGE") ' "JAPANESE" or "CHINESE"
    pPrp_Font = cfReadIniFile(pIniFile, "COMMON", "Proportional Font")
    pReg_Font = cfReadIniFile(pIniFile, "COMMON", "Regular Font")
 
    pWin$ = cfReadIniFile(pIniFile, "COMMON", "WINDOWS") ' "JAPANESE" or "CHINISE"
 
        If (pLang$ = "JAPANESE") And (pWin$ = "JAPANESE") Then
            pCharset_data = 1
        ElseIf (pLang$ = "JAPANESE") And (pWin$ = "CHINESE") Then
            pCharset_data = 1 '128
        ElseIf (pLang$ = "CHINESE") And (pWin$ = "CHINESE") Then
            pCharset_data = 1
        ElseIf (pLang$ = "CHINESE") And (pWin$ = "JAPANESE") Then
            pCharset_data = 128
        End If
 
    Dim n As Integer
    Dim dat$, a$
    Dim pFlag As Boolean
 
    n = FreeFile
    pFlag = False
    dat$ = ""
 
    '处理控件数组开始---(((         如有多个控件数组，请在下面重复执行此过程
    Open pIniFile For Input As n
    plblName = "fraDraw"                                               '---------设定控件数组名称
    Do While Not EOF(n)
        Line Input #n, a$
        a$ = Trim(CutQuote(a$))
        If a$ <> "" Then
            If Not pFlag Then
                If UCase(a$) = UCase("[" & Me.Name & "." & plblName & "]") Then
                    pFlag = True
                End If
            Else
                If Left$(a$, 1) = "[" Then
                    Exit Do
                Else
                    plblIdx = CInt(GetItem(a$, 1))
                    If IsNumeric(plblIdx) Then
                        fraDraw(plblIdx).FontName = pPrp_Font
                        fraDraw(plblIdx).Font.Charset = pCharset_data
                        fraDraw(plblIdx).Caption = GetItem(a$, 2)      '---------设定控件数组名称
                    End If
                End If
            End If
        End If
    Loop
    Close #n
    '处理控件数组结束---)))
 
    '处理控件数组开始---(((         如有多个控件数组，请在下面重复执行此过程
    pFlag = False
    Open pIniFile For Input As n
    plblName = "lblData"                                               '---------设定控件数组名称
    Do While Not EOF(n)
        Line Input #n, a$
        a$ = Trim(CutQuote(a$))
        If a$ <> "" Then
            If Not pFlag Then
                If UCase(a$) = UCase("[" & Me.Name & "." & plblName & "]") Then
                    pFlag = True
                End If
            Else
                If Left$(a$, 1) = "[" Then
                    Exit Do
                Else
                    plblIdx = CInt(GetItem(a$, 1))
                    If IsNumeric(plblIdx) Then
                        lblData(plblIdx).FontName = pPrp_Font
                        lblData(plblIdx).Font.Charset = pCharset_data
                        lblData(plblIdx).Caption = GetItem(a$, 2)      '---------设定控件数组名称
                    End If
                End If
            End If
        End If
    Loop
    Close #n
    '处理控件数组结束---)))
    
    '处理控件数组开始---(((         如有多个控件数组，请在下面重复执行此过程
    pFlag = False
    Open pIniFile For Input As n
    plblName = "lblHWY"                                                '---------设定控件数组名称
    Do While Not EOF(n)
        Line Input #n, a$
        a$ = Trim(CutQuote(a$))
        If a$ <> "" Then
            If Not pFlag Then
                If UCase(a$) = UCase("[" & Me.Name & "." & plblName & "]") Then
                    pFlag = True
                End If
            Else
                If Left$(a$, 1) = "[" Then
                    Exit Do
                Else
                    plblIdx = CInt(GetItem(a$, 1))
                    If IsNumeric(plblIdx) Then
                        lblHWY(plblIdx).FontName = pPrp_Font
                        lblHWY(plblIdx).Font.Charset = pCharset_data
                        lblHWY(plblIdx).Caption = GetItem(a$, 2)       '---------设定控件数组名称
                    End If
                End If
            End If
        End If
    Loop
    Close #n
    '处理控件数组结束---)))
    
    '如有多个控件数组，请在下面重复执行上面过程
    '----------((
    
    '----------))
    
End Sub
 3，也需要一些公用过程支持，除了方法(一)中的公用过程，还需要以下过程支持,请将以下代码添加到公用模块中。
Public Function fChkControls(frmObject As Form, strControlsName As String, lngIndex) As Boolean
On Error GoTo Err
    Dim strContrName As String
    If lngIndex >= 0 Then
        strContrName = frmObject.Controls(strControlsName)(lngIndex).Name
    Else
        strContrName = frmObject.Controls(strControlsName).Name
    End If
    fChkControls = True
    Exit Function
Err:
    fChkControls = False
End Function
 这样，用INI设置VB显示语言，基本上就可以完全对应了，还是很方便的!
 
 

Tag: VB技巧 编程 TTTBLOG
还没有评论，快来抢沙发吧！ ↓
我也要发一个   ·   返回首页   ·   返回[VB]   ·   前一个   ·   下一个
相关内容

VM中Linux虚拟机下安装VMware Tools 2010-04-27 

感叹陈水扁不如卢武铉 2009-05-26 

看看你的域名好不好www.domometer.com 2010-12-16 

今天女儿去幼儿园反应激烈，感觉不太正常! 2009-10-10 

趁机声明一下! 2010-01-16 

晒晒第一次做的馅饼~~ 2009-02-24 

功能强大的wibiya工具栏及Z-Blog中添加方法 2010-01-20 

多个微博同时更新之完美解决方案! 2010-10-30 

[转]过期域名、删除域名抢注实战 2010-11-02 

叹啊：我们的城市又在折腾，又在修路，又在浪费，还“地球一小时 2009-04-03 

一年一度的体验 2009-09-09 

现在的女人，令人感觉哈哈哈-读后感 2008-09-27 

看看世界首席富豪们如何教子女理财 2009-08-03 

[转]一些非常有意思的杂项资源 2010-09-28 

整理博客，并推荐两本书：再活一次、好妈妈胜过好老师 2010-07-08 

[转]写得蛮好的linux学习笔记二：一些常用的基本命令 2010-04-20 

火星新闻--太棒了 2009-06-20 

20080721 2008-07-21 

真是没有人性，该死的警察…… 2010-06-03 

做下个人的广告--处理小熊早餐套装(正品全新)：酸奶机+煮蛋 2009-12-15 

评论
还没有评论，快来抢沙发吧！ ↓
欢迎评论
未登录，
请先 [ 注册 ] or [ 登录 ]
(一分钟即可完成注册!)
返回首页     ·   返回[VB]   ·   返回顶部  
热门推荐
热门标签
同学 金句 评论 SEO GoogleAdsense 友联社区 Oracle版本 正则表达式 旅游 社区 导航 工作 中国女人 日本 参考站点 程序日志 Html 美国签证 资源 哲理
最新主题
友情链接
更多...