VB
用VB创建/读取INI文件，并利用INI文件汉化程序，设置程序显示语言方法(二)
Allen 2011-09-10 09:39:47 5191 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]   ·   前一个   ·   下一个
相关内容

伤心与感动。。。 2009-09-22 

[转]谈谈Oracle10g 管理系统全局区(SGA) 2009-11-21 

ChatGPT 的 5 大功能可以帮助你提高代码质量 2023-02-19 

RecordSet的属性和方法 2009-08-26 

在线高清电影2012，地球末日，诺亚方舟变成了现实 2009-12-20 

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

我的幼儿教育观念 2009-10-14 

判断oracle连接是专用模式/共享模式方法(dedicat 2010-04-08 

认识Oracle数据库SystemGlobalArea（SG 2009-07-17 

[转]解决夫妻矛盾的最佳五步骤 2010-06-22 

360vsQQ：360和腾讯视窗大战。 2010-10-29 

20080721 2008-07-21 

OutLook Express关闭时提示压缩解决方法 2009-07-02 

增加验证码啦~~注意与wibiya工具条有冲突 2010-01-22 

如此乱真~! 装吧！你就装吧！--精彩创意 2009-11-10 

MySql初学笔记 2010-10-27 

互联网目睹之怪现状 2009-08-02 

庆余年整理后记 2009-03-07 

所有网页上的Google广告不显示了(Google Adse 2010-12-16 

[转]城市，让人民死的早 2010-01-16 

评论
还没有评论，快来抢沙发吧！ ↓
欢迎评论
未登录，
请先 [ 注册 ] or [ 登录 ]
(一分钟即可完成注册!)
返回首页     ·   返回[VB]   ·   返回顶部  
热门推荐
热门标签
流行歌曲 英文网站 技术 网站优化 出国 美国签证 日本 建站 Thinkphp 域名 创业 php 站点资料 Claude 澳大利亚 阿里云 网站日志 感悟 网站开发 ChatGPT
最新主题
友情链接
更多...