VFP中关于ListBox和Command控件的使用一例

简单说明利用VFP的ListBox,Command控件实现将列表项在两个ListBox中逐项添加，全部添加，全部移除等功能。

我们可充分利用ListBox的list属性t逐项遍历,ListCount属性来统计列表项的个数,listIndex属性.如下图:
图二

图三:

图四:

首先,添加两个ListBox,List1,List2,五个Command控件属性分别为:’>’,’>>’,’<’,’<<’,’Quit’
其中List1 的属性RowSourceType为1-值.
以下为具体的代码:

List1的Init事件:

WithThisform.List1 &&逐个添加列表框中的项目
.AddItem("杨过")
.AddItem("刘备")

.AddItem("岳冰")
.AddItem("红蕃")
.AddItem("龙马")
EndWith

按键‘>’Click事件：
For i =1 To Thisform.List1.ListCount
If Thisform.List1.Selected[i] Then &&将ListBox1的列表项逐个加入到ListBox2中
Thisform.List2.AddItem(Thisform.List1.list(i))
Thisform.List1.RemoveItem(Thisform.List1.listindex(i))
EndIf
EndFor

按键‘>>’的Click事件:
For i =1 To Thisform.List1.ListCount
Thisform.List2.AddItem(Thisform.List1.list(i)) &&将LIstBox1的列表项一次性全部加入 到LIstBox2中

EndFor
Thisform.List1.Clear

按键‘>’Click事件：For i =1 To Thisform.List1.ListCount
If Thisform.List1.Selected[i] Then
Thisform.List2.AddItem(Thisform.List1.list(i))
Thisform.List1.RemoveItem(Thisform.List1.listindex(i))
EndIf
EndFor

按键‘<’的Click事件:
For i =1 To Thisform.List2.ListCount &&将ListBox2的列表项逐个加入到ListBox1中,并注意listindex的用法

If Thisform.List2.Selected[i] Then
Thisform.List1.AddItem(Thisform.List2.list(i))
Thisform.List2.RemoveItem(Thisform.List2.listindex(i))
EndIf
EndFor
按键‘<<’的Click事件:
For i =1 To Thisform.List2.ListCount &&将LIstBox2的列表项一次性全部加入 到LIstBox1中

Thisform.List1.AddItem(Thisform.List2.list(i))
EndFor
Thisform.List2.Clear
按键‘Quit’的Click事件:
Thisform.Release
&&或Quit