ListBox 控制項（針對 Visual Basic 6.0 用戶）

06-20

Visual Basic 6.0 中的 ListBox 控制項在 Visual Basic 2005 中替換為 ListBox 控制項或 CheckedListBox 控制項。某些屬性、方法、事件和常數的名稱是不同的，在某些情況下，行為也有所不同。

概念差異複選 ListBox

在 Visual Basic 6.0 中，ListBox 控制項的 Style 屬性確定是否在每一文本項的旁邊顯示複選框。即使 MultiSelect 屬性設置為 False，也可以通過選擇 ListBox 中各項旁邊的複選框來選中多個項。不能以編程方式確定項的選中狀態；如果需要此功能，必須改用 ListView 控制項。

在 Visual Basic 2005 中，新的 CheckedListBox 控制項在每一項旁邊顯示複選框；不再可以在 ListBox 控制項中顯示複選框。CheckedListBox 控制項允許通過 CheckedItemCollection 集合以編程方式確定每一項的選中狀態。

列屬性

在 Visual Basic 6.0 中，Columns 屬性採用整數指定要顯示的列數。

在 Visual Basic 2005 中，MultiColumn 屬性採用布爾值，而 ColumnWidth 屬性採用整數指定寬度（以像素為單位）。如果在運行時更改了 ListBox 控制項的寬度，則可能還需要為各列設置 ColumnWidth 屬性。

ItemCheck 事件

在 Visual Basic 6.0 ListBox 控制項中，當引發 ItemCheck 事件時，複選狀態已經更改。

在 Visual Basic 2005CheckedListBox 控制項中，在引發 ItemCheck 事件時，複選狀態尚未更改。可以從傳遞給事件的 ItemCheckEventArgs 參數獲取掛起值。

ListBox 控制項的代碼更改

下面的示例演示 Visual Basic 6.0 和 Visual Basic 2005 在編碼方法上的不同之處。

在 ListBox 控制項中添加和移除項的代碼更改

下面的代碼演示如何添加和移除 ListBox 項。

	複製代碼
" Visual Basic 6.0 " Add an item at the end of the list. List1.AddItem "Tokyo" " Insert an item at the top of the list. List1.AddItem "Copenhagen", 0 " Remove the first item. List1.RemoveItem 0

Visual Basic	複製代碼
"Visual Basic 2005 " Add an item at the end of the list. ListBox1.Items.Add("Tokyo") " Insert an item at the top of the list. ListBox1.Items.Insert(0, "Copenhagen") " Remove the first item. ListBox1.Items.RemoveAt(0)

訪問 ListBox 控制項中的特定項的代碼更改

下面的代碼演示如何返回 ListBox 項的值。

	複製代碼
" Visual Basic 6.0 Private Function GetItemText(i As Integer) As String " Return the text of the item using the index: GetItemText = ListBox1.List(1) End Function

Visual Basic	複製代碼
" Visual Basic 2005 Private Function GetItemText(ByVal i As Integer) As String " Return the text of the item using the index: GetItemText = CStr(ListBox1.Items(i)) End Function

確定 CheckedListBox 控制項中選中的項的代碼更改

下面的代碼演示如何確定 CheckedListBox 控制項中各項的選中狀態。

	複製代碼
" Visual Basic 6.0 " The Visual Basic 6.0 ListBox control didn"t support this scenario, " a ListView control had to be used instead. Dim s As String Dim i As Integer " Loop through all items For i = 1 To ListView1.ListItems.Count " If an item is checked, add it to the string If ListView1.ListItems(i).Checked = True Then s = s & "Checked Item" & CStr(i) & " = " & _ ListView1.ListItems(i) & vbCrLf End If Next " Determine if any items are checked. If s <> "" Then MsgBox s End If

複製代碼

" Visual Basic 6.0 " The Visual Basic 6.0 ListBox control didn"t support this scenario, " a ListView control had to be used instead. Dim s As String Dim i As Integer " Loop through all items For i = 1 To ListView1.ListItems.Count " If an item is checked, add it to the string If ListView1.ListItems(i).Checked = True Then s = s & "Checked Item" & CStr(i) & " = " & _ ListView1.ListItems(i) & vbCrLf End If Next " Determine if any items are checked. If s <> "" Then MsgBox s End If

Visual Basic	複製代碼
" Visual Basic 2005 " Determine if there are any items checked. If CheckedListBox1.CheckedItems.Count <> 0 Then " If so, loop through all checked items and print results. Dim x As Integer Dim s As String = "" For x = 0 To CheckedListBox1.CheckedItems.Count - 1 s = s & "Checked Item " & CStr(x + 1) & " = " & _ CStr(CheckedListBox1.CheckedItems(x)) & ControlChars.CrLf Next x MessageBox.Show(s) End If

Visual Basic

複製代碼

" Visual Basic 2005 " Determine if there are any items checked. If CheckedListBox1.CheckedItems.Count <> 0 Then " If so, loop through all checked items and print results. Dim x As Integer Dim s As String = "" For x = 0 To CheckedListBox1.CheckedItems.Count - 1 s = s & "Checked Item " & CStr(x + 1) & " = " & _ CStr(CheckedListBox1.CheckedItems(x)) & ControlChars.CrLf Next x MessageBox.Show(s) End If

ListBox 控制項的屬性、方法和事件等效項

下面幾個表列出了 Visual Basic 6.0 中的屬性、方法和事件及它們的 Visual Basic 2005 等效項。具有相同的名稱和行為的屬性、方法和事件未予列出。如果適用，常數在屬性或方法的下面縮進。除非另外說明，否則所有 Visual Basic 2005 枚舉都映射到 System.Windows.Forms 命名空間。

此表提供相關主題的鏈接，這些主題對行為之間的差異進行說明。如果 Visual Basic 2005 中沒有直接等效項，則提供指向介紹替換項的主題的鏈接。

屬性

Visual Basic 6.0

Visual Basic 2005 等效項

Appearance

新的實現。有關更多信息，請參見 Appearance 和 BorderStyle 屬性（針對 Visual Basic 6.0 用戶）。

BackColor

注意
顏色在 Visual Basic 2005 中以不同方式處理。有關更多信息，請參見顏色行為（針對 Visual Basic 6.0 用戶）。

Columns

MultiColumn 和 ColumnWidth

Container

Parent

DataChanged

DataField

DataFormat

DataMember

DataSource

新的實現。有關更多信息，請參見適用於 Visual Basic 6.0 用戶的數據訪問。

DragIcon

DragMode

新的實現。有關更多信息，請參見拖放（針對 Visual Basic 6.0 用戶）。

Font Font

FontBold

FontItalic

FontName

FontSize

FontStrikethrough

FontUnderline

Font

注意
字體在 Visual Basic 2005 中以不同方式處理。有關更多信息，請參見 Font 對象（針對 Visual Basic 6.0 用戶）。

ForeColor

注意
顏色在 Visual Basic 2005 中以不同方式處理。有關更多信息，請參見顏色行為（針對 Visual Basic 6.0 用戶）。

Height

Height, Size

注意
坐標在 Visual Basic 2005 中以不同方式處理。有關更多信息，請參見坐標系統（針對 Visual Basic 6.0 用戶）。

HelpContextID

新的實現。有關更多信息，請參見幫助支持（針對 Visual Basic 6.0 用戶）。

HWnd

Handle

Index

新的實現。有關更多信息，請參見控制項數組（針對 Visual Basic 6.0 用戶）。

IntegralHeight

ItemData

新的實現。有關更多信息，請參見無法升級 ItemData 屬性。

Left

注意
坐標在 Visual Basic 2005 中以不同方式處理。有關更多信息，請參見坐標系統（針對 Visual Basic 6.0 用戶）。

List

Items

ListCount

Count (List.Count)

ListIndex

SelectedIndex

MouseIcon

新的實現。有關更多信息，請參見無法設置自定義 MousePointer。

MousePointer

Cursor

有關常數的列表，請參見 MousePointer（針對 Visual Basic 6.0 用戶）。

MultiSelect

SelectionMode

NewIndex

新的實現。有關更多信息，請參見無法升級 NewIndex 屬性。

OLEDragMode

OLEDropMode

新的實現。有關更多信息，請參見拖放（針對 Visual Basic 6.0 用戶）。

Parent

FindForm 方法

SelCount

Count (SelectedItem.Count)

Selected

GetSelected 和 SetSelected（ListBox 控制項）

GetItemChecked 和 SetItemChecked（CheckedListBox 控制項）

Style

新的實現屬性。「0 – Standard」映射到 CheckedListBox 控制項，「1 – Checkbox」映射到 CheckedListBox 控制項。

ToolTipText

ToolTip 組件

有關更多信息，請參見工具提示支持（針對 Visual Basic 6.0 用戶）。

Top

注意
坐標在 Visual Basic 2005 中以不同方式處理。有關更多信息，請參見坐標系統（針對 Visual Basic 6.0 用戶）。

WhatsThisHelpID

新的實現。有關更多信息，請參見幫助支持（針對 Visual Basic 6.0 用戶）。

Width

Width, Size

注意
坐標在 Visual Basic 2005 中以不同方式處理。有關更多信息，請參見坐標系統（針對 Visual Basic 6.0 用戶）。

方法

名稱

Visual Basic 2005 等效項

AddItem

Add

AddRange

Insert

Clear

Drag

新的實現。有關更多信息，請參見拖放（針對 Visual Basic 6.0 用戶）。

Move

SetBounds

注意
坐標在 Visual Basic 2005 中以不同方式處理。有關更多信息，請參見坐標系統（針對 Visual Basic 6.0 用戶）。

OLEDrag

新的實現。有關更多信息，請參見拖放（針對 Visual Basic 6.0 用戶）。

RemoveItem

Remove

SetFocus

Focus

ShowWhatsThis

新的實現。有關更多信息，請參見幫助支持（針對 Visual Basic 6.0 用戶）。

ZOrder

BringToFront 或 SendToBack 方法

事件

Visual Basic 6.0	Visual Basic 2005 等效項
DblClick	DoubleClick
DragDrop DragOver	新的實現。有關更多信息，請參見拖放（針對 Visual Basic 6.0 用戶）。
GotFocus	Enter
ItemCheck	ItemCheck（只適用於 CheckedListBox）
LostFocus	Leave
OLECompleteDrag OLEDragDrop OLEDragOver OLEGiveFeedback OLESetData OLEStartDrag	新的實現。有關更多信息，請參見拖放（針對 Visual Basic 6.0 用戶）。
Scroll	新的實現。有關更多信息，請參見 TopIndex 屬性和 Scroll 事件（針對 Visual Basic 6.0 用戶）。
Validate	Validating

升級說明

在升級期間，如果 Visual Basic 6.0 Listbox 的 Style 屬性設置為「1 – Checkbox」，則該控制項升級為 CheckedListBox 控制項；否則，該控制項升級為 ListBox 控制項。

請參見

參考

ListBox 控制項概述（Windows 窗體）ListBox 控制項概述（Windows 窗體）CheckedListBox 控制項概述（Windows 窗體）
推薦閱讀：

※C#中利用LightningChart繪製曲線（及LightningChart介紹）
※WPF控制項簡單總結（轉載）
※C# 控制項縮寫大全+命名規範+示例
※第三章常用的控制項和屬性
※Camera Raw控制項功能全解

TAG:控制 | 用戶 | 控制項 |