vb6自动生成控件

自动生成控件·

Option Explicit

Public muPlusKey() As Integer    '创建Key键数组
Public muPlusValue()  As String   '创建Value值数组
Public max_index As Integer        '定义公共变量，备用
Public key_index As Integer         'Key的Index
Public val_index As Integer          'Value的Index
Public dictKey As Object              '根据Key生成
Public dictValue As Object             '根据Value生成

' autoCreate
'自动生成控件。取Key生成
'# obj()         控件数组名
'# fileName      配置文件路径
'# sectionName   节点名称
Public Sub autoCreateOfKey(obj As Object, fileName As String, sectionName As String)

    Set dictKey = CreateObject("Scripting.Dictionary")  '绑定字典
    Set dictKey = ReadSingleFull(fileName, sectionName) '读取一整个节点信息，根据Key生成字典
    '【字典接收字典用Set】

    '循环遍历字典
    Dim vKey As Variant
    For Each vKey In dictKey
        key_index = key_index + 1               '数组下标
        Load obj(key_index)                     '加载菜单
        obj(key_index).Caption = vKey           '设置增加的菜单的Caption
        obj(key_index).Visible = True           '增加的该菜单可见
    Next

    '额外增加，根据配置文件，改变长度。如果配置文件改变，请重启程序。
    ReDim muPlusKey(dictKey.Count) As Integer
    ReDim muPlusValue(dictKey.Count) As String
End Sub


' autoCreate
'自动生成控件,取Value生成
'# obj()         控件数组
'# fileName      配置文件路径
'# sectionName   节点名称
Public Sub autoPluginOfKey(obj As Object, fileName As String, sectionName As String)

    Set dictValue = CreateObject("Scripting.Dictionary")
    Set dictValue = ReadSingleFull(fileName, sectionName) '字典接收字典用Set

    Dim vKey As Variant
    For Each vKey In dictValue
        val_index = val_index +