s.vb

来自「通版开发平台」· VB 代码 · 共 41 行

Module S
    Public SForms As Dictionary(Of Integer, S_Forms)
    Public SDataSource As Dictionary(Of Integer, S_DataSource)
    Public SDisplayColumns As Dictionary(Of Integer, S_DisplayColumns)
    Public SMenuItem As Dictionary(Of Integer, S_MenuItem)
    Public SToolItem As Dictionary(Of Integer, S_ToolItem)
    Public SComponent As Dictionary(Of Integer, S_Component)
    Public SEvent As Dictionary(Of Integer, SEvent)
    Public STool As Dictionary(Of Integer, S_Tool)
    Public SSqlCommand As Dictionary(Of Integer, S_SqlCommand)
    Public SUser As Dictionary(Of Integer, S_User)
    Public STreeNode As Dictionary(Of Integer, S_TreeNode)


    Public imageList As ImageList

    Public Sub FillAll()
        S.SDataSource = DAO_DataSource.findAll()
        S.SDisplayColumns = DAO_DisplayColumns.findAll()
        S.SForms = DAO_Forms.findAll()
        S.SMenuItem = DAO_MenuItem.findAll()
        S.SToolItem = DAO_ToolItem.findAll()
        S.SComponent = DAO_Component.findAll
        S.SEvent = DAO_SEvent.findAll
        S.STool = DAO_Tool.findAll
        S.SSqlCommand = DAO_S_SqlCommand.findAll
        S.SUser = DAO_User.findAll

        S.imageList = New ImageList
        imageList.Images.Add(My.Resources.ico0)
        imageList.Images.Add(My.Resources.ico1)
        imageList.Images.Add(My.Resources.ico2)
        imageList.Images.Add(My.Resources.ico3)
        imageList.Images.Add(My.Resources.ico4)
        imageList.Images.Add(My.Resources.ico5)
        imageList.Images.Add(My.Resources.ico6)
        imageList.Images.Add(My.Resources.ico7)
        imageList.Images.Add(My.Resources.ico8)
    End Sub
End Module