<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 ListView 控件功能使用詳解

        ListView控件

        在工具箱上擊鼠標右鍵,選擇快捷菜單的Components(部件)項,在控件列表中選擇Microsoft Windows Common Controls 5.0控件(Comctl32.ocx),這個控件中包括ListView、TreeView等幾個Windows 95特有的控件。

        如果使用的是Visual Basic 6.0,則應該選擇Microsoft Windows Common Controls 6.0控件。

        將 ColumnHeader 對象添加到 ListView 控件的 ColumnHeaders 集合中。 
         
        語法 
        ListView1.ColumnHeaders.Add(index, key, text, width, alignment, icon) 
        Add 方法的語法包含下面部分: 
        部分  描述 
        object   必需的。對象表達式,其值是 ColumnHeaders 集合。 
        index   可選的。唯一標識對象集合成員的整數。 
        key   可選的。唯一的字符串表達式,可以用來訪問集合的成員。 
        text   可選的。出現在 ColumnHeader 對象中的字符串。 
        width   可選的。數值表達式,它使用控件容器的度量單位指定對象的寬度。 
        alignment  可選的。決定 ColumnHeader 對象中文本對齊方式的整數。關于設置信息,請參閱“請參閱列表中 Alignment 屬性的信息。 
        icon   可選的。Smallicons 圖象列表中圖象的關鍵字或索引。 
        說明 Add 方法返回新插入的 ColumnHeader 對象的引用。 
        使用 index 參數在 ColumnHeaders 集合的特定位置插入列標頭。 
        當 ColumnHeaders 集合成員可能動態變更時,應使用 Key 屬性引用它們,因為任何 ColumnHeader 對象的 Index 屬性都可以改變。

        示例:
        ListView1.ListItems.Clear               '清空列表
        ListView1.ColumnHeaders.Clear           '清空列表頭
        ListView1.View = lvwReport              '設置列表顯示方式
        ListView1.GridLines = True              '顯示網絡線
        ListView1.LabelEdit = lvwManual         '禁止標簽編輯
        ListView1.FullRowSelect = True          '選擇整行

        ListView1.ColumnHeaders.Add , , "ID", 500 '給列表中添加列名
        ListView1.ColumnHeaders.Add , , "本地 IP", 1500
        ListView1.ColumnHeaders.Add , , "本地端口", 900
        ListView1.ColumnHeaders.Add , , "協議", 550
        ListView1.ColumnHeaders.Add , , "遠程 IP", 1500
        ListView1.ColumnHeaders.Add , , "遠程端口", 900
        ListView1.ColumnHeaders.Add , , "當前狀態", 900
        ListView1.ColumnHeaders.Add , , "連接時間", 900
        -------------------------------------------------------
        Dim X
        X = ListView1.ListItems.Count + 1
        ListView1.ListItems.Add , , X
        ListView1.ListItems(X).SubItems(1) = "00:00:00"
        ListView1.ListItems(X).SubItems(2) = "2008-01-01"
        ListView1.ListItems(X).SubItems(3) = "(無)"
        -------------------------------------------------------
        ListView1.ListItems.Clear               '清空列表
        ListView1.ListItems.Add , , "1" 
        ListView1.ListItems(1).SubItems(1) = "00:00:00" 
        ListView1.ListItems(1).SubItems(2) = "2008-01-01" 
        ListView1.ListItems(1).SubItems(3) = "(無)" 
        ListView1.ListItems.Add , , "2" 
        ListView1.ListItems(2).SubItems(1) = "00:00:01" 
        ListView1.ListItems(2).SubItems(2) = "2008-01-01" 
        ListView1.ListItems(2).SubItems(3) = "(無)" 
        -------------------------------------------------------
        ListView1.View = lvwReport              '設置顯示方式為列表
        ListView1.AllowColumnReorder = True     '對行進行程序排列,用鼠標進行排列
        ListView1.Arrange = lvwAutoLeft         '圖標橫排列
        ListView1.Arrange = lvwAutoTop          '圖標豎排列
        ListView1.FlatScrollBar = False         '顯示滾動條
        ListView1.FlatScrollBar = True          '隱藏滾動條
        ListView1.FullRowSelect = True          '選擇整行
        ListView1.LabelEdit = lvwManual         '禁止標簽編輯
        ListView1.GridLines = True              '顯示網絡線
        ListView1.LabelWrap = True              '圖標可以換行
        ListView1.MultiSelect = True            '可以選擇多個項目
        ListView1.PictureAlignment = lvwTopLeft '圖片對齊方式是左頂部,其他有右頂部(1)、左底部(2)、右底部(3)、居中(4)、平鋪(5)
        ListView1.Checkboxes = True             '顯示復選框
        ListView1.DropHighlight = ListView1: ListItems.Item (2)  '顯示系統顏色

        獲取當前行數和列數:
        MsgBox "行數:" & ListView1.ListItems.Count & "列數:" & ListView1.ColumnHeaders.Count

        Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) 
        ListView1.ToolTipText = "行數:" & ListView1.ListItems.Count & "列數:" & ListView1.ColumnHeaders.Count 
        End Sub

        設置寬度:
        ListView1.ColumnHeaders.Add , , "備注" ,1500

        當前選中行:
        msgbox ListView1.SelectedItem.index

        獲取復選框的值:
        msgbox ListView1.ListItems(1).Checked

        刪除指定行:
        ListView1.ListItems.Remove 1

        去掉鼠標左鍵點擊標簽編輯:
        labeledit屬性改為1

        讀取某行第一列內容:
        ListView1.ListItems(i).Text

        讀取某行第幾列內容(不包括第一列):
        ListView1.ListItems(Num).SubItems(4)

        讀取當前選中行第一列內容:
        ListView1.ListItems(ListView1.SelectedItem.Index).Text

        循環查找讀取項目:
        Dim i As Integer
        For i = 1 To ListView1.ListItems.Count
            If ListView1.ListItems(i).Text = 4 Then MsgBox ListView1.ListItems(i).Text '第一列
            If ListView1.ListItems(i).SubItems(1) = 4 Then MsgBox ListView1.ListItems(i).SubItems(1) '第二列
        Next i

        清空列表頭:
        ListView1.ColumnHeaders.Clear

        清空列表:
        ListView1.ListItems.Clear

        右鍵菜單:
        Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
        If Button = vbRightButton Then PopupMenu CommandLst '按下鼠標右鍵 顯示菜單
        End Sub

        當前選中判斷:
        Dim N
        If ListView1.ListItems.Count <> 0 Then N = ListView1.SelectedItem.Index Else MsgBox "當前沒有任何主機在線!", vbInformation, "警告:": Exit Sub
        If N < 1 Then MsgBox "你沒有選中任何主機!", vbInformation, "警告:": Exit Sub

        VB設置某行為選中/非選中狀態:
        ListView.ListItems(i).Selected = True '選中第i行
        ListView.ListItems(i).Selected = False '選中第i行

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