forms/financialsetup/frmFinancialSetupGlobalPrint.vb

（开头部分） 18KB

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

Imports System.ComponentModel

Public Class frmFinancialSetupGlobalPrint

    Private mFrmLedgerList As List(Of ClsLedger) '保存系统中所有账套信息
    Private mIfSelectedIndustryAcct As Boolean '是否已经选择了行业科目
    Private mIfSettingEdit As Boolean '控件内容是否已修改过
    Private mIfSavedEdit As Boolean '当前修改内容是否已存盘

    '订阅对象
    Private m_Broker As ClsBroker = New ClsBroker()

    ''' <summary>
    ''' 订阅事件的回调函数
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e">传递的参数,包含行业科目类对象</param>
    Private Sub GetSelectedIndustryAcctType(ByVal sender As Object, ByVal e As TransEventArg)
        '将收到的行业科目类对象加载到控件对象上
        Dim tmpAcctType As ClsIndustryAccountType
        If "IndustryAcctType".Equals(e.Msg) Then
            tmpAcctType = CType(e.Obj, ClsIndustryAccountType)
        Else
            Return
        End If

        '修改控件内容
        With tmpAcctType
            Me.txtIndustryType.Text = .Industry
            Me.txtOneAcctLength.Text = .OneLevelAcctLength.ToString
            Me.txtSubAcctLength.Text = .NewAcctLength.ToString
            Me.txtCashCode.Text = .CashCode
            Me.txtBankCode.Text = .BankCode
            Me.txtAssets.Text = .AssetsCode
            Me.txtDepCode.Text = .DepCode
            Me.txtReceiveCode.Text = .RecieveCode
            Me.txtPayCode.Text = .PayCode
            Me.txtGainCode.Text = .GainCode
            Me.txtDevCode.Text = .DevCode
            Me.txtStockCode.Text = .StockCode
            Me.txtIncAndDecCode.Text = .IncAndDecCode
        End With

        '标记选择了行业科目
        mIfSelectedIndustryAcct = True
    End Sub

    Private Sub OnCustomControlTextChanged(ByVal sender As Object, ByVal e As CustomControlChangeNotifyEventArg)
        '此时控件内容被改变
        mIfSettingEdit = True

        'Debug.Print("文本控件内容被改变")
    End Sub
    Private Sub frmFinancialSetupGlobalPrint_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '订阅 行业科目选择 事件
        AddHandler ClsBroker.OnChange, AddressOf GetSelectedIndustryAcctType

        '测试自定义通知控件
        AddHandler ClsBroker.OnCustomCtrolContentChange, AddressOf OnCustomControlTextChanged
后面还有 407 行代码，解锁后查看完整代码

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

AI 解读

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

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