forms/system/frmNavigate.vb

（开头部分） 51KB

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

Imports System.ComponentModel
Imports System.Reflection

Public Class frmNavigate

    '定义一个dictionary,用来存放每个标题按钮对应的flowlayoutpanel
    'Private btnTitleDic As Dictionary(Of String, Object)
    '定义一个dictionary，用来存放每个具体工具对应的窗体类的类型 - 
    'Private btnItemDic As Dictionary(Of String, Type)

    Private Sub frmNavigate_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '加载菜单条目
        LoadNavItems()

    End Sub

    Private Sub LoadNavItems()

        '定义标题按钮的对象词典
        sysBtnTitleDic = New Dictionary(Of String, Object)
        sysBtnItemDic = New Dictionary(Of String, Type)


        '添加账套相关的按钮组
        '如果当前有账套，则生成当前账套数据库连接字串，并添加相应按钮组
        If sysCurrentClsLedger IsNot Nothing Then
            '当前账套的数据库访问字串
            If String.IsNullOrEmpty(sysUserDataConnectionString) Then
                'sysUserDataConnectionString = IO.Path.Combine(IO.Path.Combine(sysAppCurrentPath, APP_DATA_PATH), sysCurrentClsLedger.LedgerDataRealPath)
                Dim tmpPath As String = IO.Path.Combine(IO.Path.Combine(sysAppCurrentPath, APP_DATA_PATH), sysCurrentClsLedger.LedgerDataRealPath)
                'sysUserDataConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & tmpPath & ";Persist Security Info=True"
                sysUserDataConnectionString = String.Format(sysConnectionTemplate, tmpPath)
            End If
            '添加相应操作按钮组
            LoadNormalButtonGroup()
        End If

        '如果当前用户有管理权限，则添加系统管理按钮组
        If sysCurrentClsUser.UserIfAdmin Then
            LoadSysManageButtonGroup()
        End If
    End Sub

    Private Sub LoadNormalButtonGroup()

        '================================================
        '001 - 生成第一个标题按钮
        '================================================
        '添加第一组按钮标签 凭证处理:
        '01 - 定义分组布局
        Dim panelVoucher As FlowLayoutPanel = New FlowLayoutPanel()
        panelVoucher.Anchor = AnchorStyles.Left Or AnchorStyles.Top
        '02 - 定义标题按钮标签
        Dim btnTitleVoucher As NavTitleButton = New NavTitleButton()
        '03 - 设置标题按钮标签属性
        With btnTitleVoucher
            .Text = NAV_TITLE_VOUCHER_TEXT  '"凭证处理"
            .Image = My.Resources.nav_title_bg_voucher  'Image.FromFile(IO.Path.Combine(IO.Path.Combine(sysAppCurrentPath, "pic"), "nav_title_bg_voucher.png"))
            .Tag = NAV_TITLE_VOUCHER_TAG '"TitleVoucher"
        End With
后面还有 1006 行代码，解锁后查看完整代码

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。