Visual Basic 6.0 中的 ListBox 控件在 Visual Basic 2005 中替換為
在 Visual Basic 6.0 中，ListBox 控件的 Style 屬性確定是否在每一文本項的旁邊顯示復選框。即使 MultiSelect 屬性設置為 False，也可以通過選擇 ListBox 中各項旁邊的復選框來選中多個項。不能以編程方式確定項的選中狀態(tài)；如果需要此功能，必須改用 ListView 控件。
在 Visual Basic 2005 中，新的 CheckedListBox 控件在每一項旁邊顯示復選框；不再可以在 ListBox 控件中顯示復選框。CheckedListBox 控件允許通過
在 Visual Basic 6.0 中，Columns 屬性采用整數(shù)指定要顯示的列數(shù)。
在 Visual Basic 2005 中，
在 Visual Basic 6.0 ListBox 控件中，當引發(fā) ItemCheck 事件時，復選狀態(tài)已經(jīng)更改。
在 Visual Basic 2005CheckedListBox 控件中，在引發(fā)
下面的示例演示 Visual Basic 6.0 和 Visual Basic 2005 在編碼方法上的不同之處。
下面的代碼演示如何添加和移除 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 項的值。
| |
|---|---|
' 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 控件中各項的選中狀態(tài)。
| |
|---|---|
' 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 6.0 中的屬性、方法和事件及它們的 Visual Basic 2005 等效項。具有相同的名稱和行為的屬性、方法和事件未予列出。如果適用，常數(shù)在屬性或方法的下面縮進。除非另外說明，否則所有 Visual Basic 2005 枚舉都映射到
此表提供相關主題的鏈接，這些主題對行為之間的差異進行說明。如果 Visual Basic 2005 中沒有直接等效項，則提供指向介紹替換項的主題的鏈接。
| Visual Basic 6.0 | Visual Basic 2005 等效項 | ||
|---|---|---|---|
| Appearance | 新的實現(xiàn)。有關更多信息，請參見 Appearance 和 BorderStyle 屬性（針對 Visual Basic 6.0 用戶）。 | ||
| BackColor |
| ||
| Columns | MultiColumn 和 ColumnWidth | ||
| Container | | ||
| DataChanged DataField DataFormat DataMember DataSource | 新的實現(xiàn)。有關更多信息，請參見適用于 Visual Basic 6.0 用戶的數(shù)據(jù)訪問。 | ||
| DragIcon DragMode | 新的實現(xiàn)。有關更多信息，請參見拖放（針對 Visual Basic 6.0 用戶）。 | ||
| Font Font FontBold FontItalic FontName FontSize FontStrikethrough FontUnderline |
| ||
| ForeColor |
| ||
| Height |
| ||
| HelpContextID | 新的實現(xiàn)。有關更多信息，請參見幫助支持（針對 Visual Basic 6.0 用戶）。 | ||
| HWnd | | ||
| Index | 新的實現(xiàn)。有關更多信息，請參見控件數(shù)組（針對 Visual Basic 6.0 用戶）。 | ||
| IntegralHeight | | ||
| ItemData | 新的實現(xiàn)。有關更多信息，請參見無法升級 ItemData 屬性。 | ||
| Left |
| ||
| List | | ||
| ListCount | | ||
| ListIndex | | ||
| MouseIcon | 新的實現(xiàn)。有關更多信息，請參見無法設置自定義 MousePointer。 | ||
| MousePointer | 有關常數(shù)的列表，請參見 MousePointer（針對 Visual Basic 6.0 用戶）。 | ||
| MultiSelect | | ||
| NewIndex | 新的實現(xiàn)。有關更多信息，請參見無法升級 NewIndex 屬性。 | ||
| OLEDragMode OLEDropMode | 新的實現(xiàn)。有關更多信息，請參見拖放（針對 Visual Basic 6.0 用戶）。 | ||
| Parent | | ||
| SelCount | | ||
| Selected | | ||
| Style | 新的實現(xiàn)屬性。“0 – Standard”映射到 CheckedListBox 控件，“1 – Checkbox”映射到 CheckedListBox 控件。 | ||
| ToolTipText | 有關更多信息，請參見工具提示支持（針對 Visual Basic 6.0 用戶）。 | ||
| Top |
| ||
| WhatsThisHelpID | 新的實現(xiàn)。有關更多信息，請參見幫助支持（針對 Visual Basic 6.0 用戶）。 | ||
| Width |
|
| 名稱 | Visual Basic 2005 等效項 | ||
|---|---|---|---|
| AddItem | | ||
| Clear | | ||
| Drag | 新的實現(xiàn)。有關更多信息，請參見拖放（針對 Visual Basic 6.0 用戶）。 | ||
| Move |
| ||
| OLEDrag | 新的實現(xiàn)。有關更多信息，請參見拖放（針對 Visual Basic 6.0 用戶）。 | ||
| RemoveItem | | ||
| SetFocus | | ||
| ShowWhatsThis | 新的實現(xiàn)。有關更多信息，請參見幫助支持（針對 Visual Basic 6.0 用戶）。 | ||
| ZOrder | |
| Visual Basic 6.0 | Visual Basic 2005 等效項 |
|---|---|
| DblClick | |
| DragDrop DragOver | 新的實現(xiàn)。有關更多信息，請參見拖放（針對 Visual Basic 6.0 用戶）。 |
| GotFocus | |
| ItemCheck | ItemCheck（只適用于 CheckedListBox） |
| LostFocus | |
| OLECompleteDrag OLEDragDrop OLEDragOver OLEGiveFeedback OLESetData OLEStartDrag | 新的實現(xiàn)。有關更多信息，請參見拖放（針對 Visual Basic 6.0 用戶）。 |
| Scroll | 新的實現(xiàn)。有關更多信息，請參見 TopIndex 屬性和 Scroll 事件（針對 Visual Basic 6.0 用戶）。 |
| Validate | |
在升級期間，如果 Visual Basic 6.0 Listbox 的 Style 屬性設置為“1 – Checkbox”，則該控件升級為 CheckedListBox 控件；否則，該控件升級為 ListBox 控件。
