为DataGridView添加自动搜索框

为DataGridView添加自动搜索框
搜索框要跟随DataGridView的列宽自动伸缩
datagridview中的各种数据类型都能参与检索

用法:在form的load事件里 添加 dim x as new tjss(datagridview1)

 Class tjss
        Dim dv As DataGridView
        Dim sp As SplitContainer
        Sub New(ByVal dv As DataGridView)
            Me.dv = dv
            addsp()
            addtext(dv, sp)
            AddHandler dv.Paint, AddressOf Data_Paint
        End Sub
        Sub Data_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
            Dim ss As Control = sender

            'Dim sp As SplitContainer = ss.Parent.Parent
            Dim dv1 As DataGridView = dv
            For Each c As Control In sp.Panel1.Controls
                If c.Tag Is Nothing Then Continue For
                If dv1.Columns(c.Tag) Is Nothing Then Exit Sub
                Dim co As DataGridViewColumn = dv1.Colum