VB
用VB创建/读取INI文件，并利用INI文件汉化程序，设置程序显示语言方法(二)
Allen 2011-09-10 09:39:47 5192 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显示语言，基本上就可以完全对应了，还是很方便的!
 
 

【版權聲明】
本文爲原創，遵循CC 4.0 BY-SA版權協議！轉載時請附上原文鏈接及本聲明。
原文鏈接：https://tdlib.com/am.php?t=Q004vV47Te5w
Tag: VB技巧 编程 TTTBLOG
還沒有評論，快來搶沙發吧！ ↓
我也要發一個   ·   返回首頁   ·   返回[VB]   ·   前一個   ·   下一個
相關內容

没有节制啊 2008-09-08 

很惨的一件事啊。。。 2009-07-11 

计算机改名后，如何修改Oracle配置？ 2009-12-23 

MySql初学笔记 2010-10-27 

房价真的能够打压下去吗？ 2010-04-21 

[转]关于Oracle的Dual表 2010-04-08 

动态AdvStringGrid完美示例 (AdvString 2009-06-10 

[转]买车的老百姓到底关注什么？ 2011-03-22 

批处理操作注册表完全攻略(读取注册表/写入注册表等) 2010-01-11 

[转]用Dos命令反编译CHM文档 2011-02-18 

每个程序员都应该知道的 8 大算法 2023-02-19 

经典好玩的赛车游戏--漂移之王 2009-11-27 

一去不复返 2007-10-25 

有生皆苦 2009-10-06 

Windows下修改默认邮件客户端方法 2009-08-04 

Oracle架构的基础知识 2009-11-25 

查看Linux版本方法一览 2009-06-19 

小小的感想 2009-04-09 

TTT BLOG也有PR值了~~(PR值是什么意思……) 2009-10-30 

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

評論
還沒有評論，快來搶沙發吧！ ↓
歡迎評論
未登錄，
請先 [ 註冊 ] or [ 登錄 ]
(一分鍾即可完成註冊!)
返回首頁     ·   返回[VB]   ·   返回頂部  

萬維笑話

表哥请我吃饭，带着女朋友就去了。点菜时，表嫂不吃牛羊肉，不吃下货，不吃香菜......表哥很无奈的看着我！然后问我女朋友有什么不吃的?女朋友想了一下，说:我要是不说有什么不吃的，你是不是很没面子啊？