画一个名称为List1的列表框，并输入若干列表项，再画一个标题为“删除”怎么操作，名称

原问题：画一个名称为List1的列表框，并输入若干列表项，再画一个标题为“删除”怎么操作，名称
分类：编程开发 > 最后更新时间：【2017-05-05 09:14:37】
问题补充：

1、画一个名称为List1的列表框，并输入若干列表项，再画一个标题为“删除”，名称为Command1的命令按钮，编写适当的事件过程，使得单击“删除”按钮，就删除选中的列表项；双击某个列表项，则把该列表项内容添加到列表的最后。

最佳答案

创建一个空窗体，然后从工具箱拖拽一个ListBox和一个Command到该窗体，VB会自动为这两个新控件命名为List1和Command1，然后将下列代码插入窗体就能看到效果了：

PrivateSubCommand1_Click()

WithList1
If.ListIndex>-1Then
.RemoveItem.ListIndex
Command1.Enabled=.ListIndex>-1
EndIf
EndWith

EndSub

PrivateSubForm_Load()

DimIAsLong
ForI=1To10
List1.AddItemFormat$(I,"00000000")
Next
WithCommand1
.Caption="删除选定项"
.Enabled=False
EndWith
Me.Show

EndSub

PrivateSubList1_Click()

WithList1
Command1.Enabled=.ListIndex>-1
EndWith

EndSub

PrivateSubList1_DblClick()

WithList1
If.ListIndex>-1Then.AddItem.List(.ListIndex)
EndWith

EndSub

最佳答案由网友  专业大傻鱼  提供
公告： 为响应国家净网行动，部分内容已经删除，感谢网友理解。
14

分享到：

其他回答

暂无其它回答!

    推荐