<rp id="wnpn7"><ruby id="wnpn7"></ruby></rp>
<progress id="wnpn7"><track id="wnpn7"><rt id="wnpn7"></rt></track></progress>
<ruby id="wnpn7"></ruby>
<ruby id="wnpn7"><blockquote id="wnpn7"><div id="wnpn7"></div></blockquote></ruby>

    1. <em id="wnpn7"><ruby id="wnpn7"><input id="wnpn7"></input></ruby></em>
      1. <button id="wnpn7"><acronym id="wnpn7"></acronym></button><button id="wnpn7"><acronym id="wnpn7"></acronym></button>

        <rp id="wnpn7"><acronym id="wnpn7"></acronym></rp>

        <li id="wnpn7"><object id="wnpn7"><u id="wnpn7"></u></object></li>
        VB.net 2010 視頻教程 VB.net 2010 視頻教程 python基礎視頻教程
        SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
        當前位置:
        首頁 > 編程開發 > VBnet >
        • VB.NET中ListView控件的操作

         '建立顯示控件

        Dim LW As New ListView()

         

                '大小及位置

                LW.Bounds = New Rectangle(New Point(6, 40), New Size(522, 227))

                '顯示方式

                LW.View = View.Details

                '顯示網絡線.

                LW.GridLines = True

                '重新排序.

                LW.AllowColumnReorder = True

                '選中整行.

                LW.FullRowSelect = True

                '選擇多項.

                LW.MultiSelect = False

                '建立標題.

                LW.Columns.Add("姓名", 80, HorizontalAlignment.Left)

                LW.Columns.Add("編號", 150, HorizontalAlignment.Left)

                LW.Columns.Add("身份證號", 150, HorizontalAlignment.Left)

                '設立列表高度.

                '建立一個圖像.

                Dim IL As New ImageList

                '設置圖像大小.

                IL.ImageSize = New Size(1, 20)

                LW.SmallImageList = IL

                '將控件添加顯示.

            Me.GroupBox1.Controls.Add(LW)

         

         

         

        #Region "  查詢操作"

            Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

                Try

                    If Me.TextBox1.Text.Length > 0 Then

                        Dim T As String = "Select Top 100 姓名,編號,身份證號 From DaLiYongUsers Where " & _

                        "編號 Like '%{0}%' Or 姓名 Like '%{1}%' Or 拼音縮寫 Like '%{2}%' Or 電話 Like '%{3}%' Or 手機 Like '%{4}%' Or 身份證號 Like '%{5}%' Or 單位 Like '%{6}%' Or備注 Like '%{7}%'"

                        T = String.Format(T, Me.TextBox1.Text, Me.TextBox1.Text, Me.TextBox1.Text, Me.TextBox1.Text, Me.TextBox1.Text, Me.TextBox1.Text,Me.TextBox1.Text, Me.TextBox1.Text)

                        Dim DT As DataTable = DB.RunSelectTable(T)

                        If DT.Rows.Count > 0 Then

                            LW.Items.Clear()

                            Dim LWI As ListViewItem

                            Dim B As Boolean = False

                            For Each R As DataRow In DT.Rows

                                LWI = New ListViewItem(R.Item("姓名").ToString)

                                LWI.SubItems.Add(R.Item("編號").ToString)

                                LWI.SubItems.Add(R.Item("身份證號").ToString)

                                '隔行顏色.

                                If B Then

                                    LWI.BackColor = Color.LavenderBlush

                                End If

                                B = Not B

                                '添加到列表.

                                LW.Items.Add(LWI)

                            Next

                            LW.Visible = True

                        Else

                            LW.Visible = False

                        End If

                    Else

                        LW.Visible = False

                    End If

                Catch ex As Exception

         

                End Try

            End Sub

        #End Region

        相關教程
                
        免费看成年人视频大全_免费看成年人视频在线观看