Question

vb列表框内容添加和删除

程序运行界面如图。窗体上有1个标签框(Label1)、1个文本框(Text1)、1个列表框(List1)和2个命令按钮，实现以下功能：
命令按钮“添加”(Command1) ：将文本框中的内容按升序添加到列表框中，然后删除文本框内容。
如果列表框中的项目数已到了30个，则在Text1中删去原有内容,而显示“不能再添加!”的信息。
命令按钮“删除”(Command2)：删除列表框中所选的项目（允许多选）。

特别要求：列表框中的初始项目在Form_Load中设置，不要在属性窗口中设置。

Answer 1

1、首先，打开VB软件，在窗体上面添加一个列表框，如下图所示。

2、单击列表框，在属性窗口中，设置列表框的属性和内容，如下图所示。

3、在窗体上面，添加两个命令按钮，如下图所示。

4、分别设置，两个命令按钮的属性，名称分别为“复制”，“清除”，如下图所示。

5、双击“清除”命令按钮，编辑其代码，如下图所示。

6、运行程序，验证结果。选中列表框中的“语文”，点击“复制”命令按钮，则在列表框中，复制了“语文”项目；再选择“政治”，点击“清除”命令按钮，则列表框中“政治”项目消失。如下图所示。

Answer 2

我给做这个,你看下百度消息...

Private Sub Command1_Click() '添加

If List1.ListCount > 29 Then
MsgBox "不能再添加!", 48, "提示"

'Label1.Caption = "不能再添加!"

Text1.Text = ""
Else
List1.AddItem Text1.Text
Text1.Text = ""
End If

End Sub

Private Sub Command2_Click() '删除

For I = List1.ListCount - 1 To 0 Step -1
If List1.Selected(I) Then
List1.RemoveItem I
End If
Next

End Sub

Private Sub Form_Load()
'设置 List1.Style = 1 ， 需要手动设置
End Sub