|
|
| No.36 |
|
Re:读者交流专帖《Visual Basic 6.0 完全自学手册》
'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝=====================
'列表框List属性增加列表项目验证代码
'此代码用于验证《Visual Basic 6.0完全自学手册》一书中第153页最后一行至第154页第一行的
'“在代码中也能够改变List属性值，但是这种方法只能够改变项目的文本，而无法增减列表的项目数”
'经验证，上述说法不完全正确，验证说明：List属性除能够改变项目文本外，还能够增加列表的项目数
'但List属性不能减少列表的项目数
'代码设计及编写：翔鹰空间——吴礼道 网名：翔鹰 QQ：399647758
'=============================================================================================
Option Explicit
Dim intList1index() As Integer
'使用List属性添加列表项目代码段开始
Private Sub Command1_Click()
On Error Resume Next
'在列表框最后添加列表项目
List1.List(List1.ListCount) = "添加项目" & List1.ListCount
End Sub
'使用RomveItem方法删除列表项目代码段开始
Private Sub Command2_Click()
On Error Resume Next
If List1.ListCount > 0 Then '列表中有项目时执行删除操作
List1.RemoveItem (List1.ListCount - 1) '删除最后添加的列表项目
'没有列表项目可以删除时弹出提示信息
Else
MsgBox "列表中没有项目可删除！”", vbInformation, "提示信息"
End If
End Sub
'改变列表项目文本代码段开始
Private Sub Command3_Click()
ReDim Preserve intList1index(List1.ListCount)
'列表中没有项目时弹出提示信息
If List1.ListCount = 0 Then
MsgBox "列表中没有项目可供改变！请先添加项目！”", vbInformation, "提示信息"
Else
'没有列表项目被选中时弹出提示信息
If List1.ListIndex = -1 Then
MsgBox "没有列表项目被选中！请选择项目！", vbInformation, "提示信息"
Else
'被选中列表项已经被改变则弹出提示信息
If List1.ListIndex = intList1index(List1.ListIndex) Then
MsgBox "选择项目已经改变！请重新选择项目！", vbInformation, "提示信息"
Else
'改变选择的项目
List1.List(List1.ListIndex) = "改变项目" & List1.ListIndex
'标志为已改变
intList1index(List1.ListIndex) = List1.ListIndex
End If
End If
End If
End Sub
Private Sub Form_Load()
Dim intI As Integer
ReDim Preserve intList1index(List1.ListCount)
For intI = 0 To List1.ListCount
intList1index(intI) = -1 '标志为未改变
Next
End Sub
[编辑][删除] 发表:2008-03-17 16:19:47
|
|
≡公证版块≡ → 电脑软件知识 → 读者交流专帖《Visual Basic 6.0 完全自学手册》
预览 
