用Visual Basic做列表框的应用技巧

用Visual Basic做列表框的应用技巧(3)
　　'10.双击Option1控件，并输入下列代码来实现功能转换：

Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
ff = True
Call Init
Call mun
Case 1
ff = False
Call Init
Call mun
End Select
End Sub

　　'11.分别统计出两个列表框中数据的个数：

Private Sub mun()
Label1.Caption = "列表框元素个数:" & List1.ListCount
Label2.Caption = "列表框元素个数:" & List2.ListCount
End Sub

　　'12.初始化列表框的内容：

Private Sub Init()
For i = 0 To List1.ListCount - 1
flag(i) = 0
Next i
List1.Clear '清除List1控件
'初始化控件List1信息
List1.AddItem "北京"
List1.AddItem "广州"
List1.AddItem "上海"
List1.AddItem "台湾"
List1.AddItem "香港"
List1.AddItem "大连"
List1.AddItem "澳门"
List1.AddItem "深圳"
List1.AddItem "成都"
List1.AddItem "西藏自治区"
List1.AddItem "云南"
List1.AddItem "桂林"
List1.AddItem "内蒙古自治区"
List1.AddItem "重庆"
List1.AddItem "哈尔滨"
List1.AddItem "天津"
List1.AddItem "海南岛"
List1.AddItem "珠海"
List1.AddItem "中山"
List1.AddItem "钓鱼台"
List1.AddItem "天津"
List1.AddItem "宁夏回族自治区"
List2.Clear '清空控件List2内容
End Sub

　　写完上面全部的源代码后，按F5键运行程序（如图3和图4所示）你就可以看到功能一和功能二到底有什么区别了。