2. 计算机
  3. 窗体上有List1､List2两个列表框,程序运行时,在两个列表框中分别选中1个项目,如图a所示,单击名称为Commandl的“交换”按钮,则把选中的项目互换,互换后的位置不限,如图b所示。下面的程序可实现这一功能,请填空。 Privat

窗体上有List1､List2两个列表框,程序运行时,在两个列表框中分别选中1个项目,如图a所示,单击名称为Commandl的“交换”按钮,则把选中的项目互换,互换后的位置不限,如图b所示。下面的程序可实现这一功能,请填空。 Privat

admin2012-05-23  34
问题 窗体上有List1､List2两个列表框,程序运行时,在两个列表框中分别选中1个项目,如图a所示,单击名称为Commandl的“交换”按钮,则把选中的项目互换,互换后的位置不限,如图b所示。下面的程序可实现这一功能,请填空。
       
Private Sub Command1_Click()
    If Listl.Text=“”Or List2.Text=“”Then
       Msg BOX“请选择交换的物品!”
    Else
    List1.Addltem List2.TeXt
    List2.RemoveItem  【  】
     【  】
    List1.Removeltem List1.Listlndex
       End If
    End Sub
选项
答案List2.ListIndex List2.AddItemListl.Text
解析 列表框的ListIndex属性用于返回或设置控件中当前选择项目的索引,设计时不可用;AddItem方法用于在列表框中指定的位置上插入一行指定的文本,其格式为:列表框.AddItem项目字符串[,索引值];RemoveItem方法用于删除列表框中指定的项目,每次只能删除一项,其格式为:列表框.RemoveItem索引值。根据本题的要求首先把List2中选中的项目加入到List1中,然后在List2中利用RemoveItem方法移除选中项,方法的参数为List2.ListIndex;接下来应该在List2中使用AddItem方法加入在List1中选中的项目,使用语句List2.Admtem Listl.Text.最后在列表框1中移除选定的项目。
转载请注明原文地址:https://kaotiyun.com/show/6Php777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)