control/AcctFindPopWin.vb

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

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports System.ComponentModel

Public Class AcctFindPopWin

    Private m_AcctList As List(Of ClsTAccount) = New List(Of ClsTAccount)()
    Private m_FindAcctRowIndex As Integer '当前列表选中项索引
    Private m_FindAcctText As String  '要搜索的字串
    Private m_FindAcctResult As Boolean '搜索结果
    Public Delegate Sub FindCallBack(ByVal sender As Object, ByVal e As FindAcctEventArg)
    Private m_AcctFindResultCallBack As FindCallBack
    'Private m_AcctFindList As List(Of ClsTAccount) = New List(Of ClsTAccount)()

    Public Sub New()

        ' 此调用是设计器所必需的。
        InitializeComponent()

        ' 在 InitializeComponent() 调用之后添加任何初始化。

    End Sub

    Public Property AcctList As List(Of ClsTAccount)
        Get
            Return m_AcctList
        End Get
        Set(value As List(Of ClsTAccount))
            m_AcctList = value
        End Set
    End Property

    Public Property FindAcctRowIndex As Integer
        Get
            Return m_FindAcctRowIndex
        End Get
        Set(value As Integer)
            m_FindAcctRowIndex = value
        End Set
    End Property

    Public Property FindOk As Boolean
        Get
            Return m_FindAcctResult
        End Get
        Set(value As Boolean)
            m_FindAcctResult = value
        End Set
    End Property

    Public Property AcctFindResultCallBack As FindCallBack
        Get
            Return m_AcctFindResultCallBack
        End Get
        Set(value As FindCallBack)
            m_AcctFindResultCallBack = value
        End Set
    End Property


    Private Sub lstAcct_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstAcct.SelectedIndexChanged
        If lstAcct.SelectedIndices.Count > 0 Then