vb列表框内容添加和删除

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

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

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

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