vb的问题！求救啊！

显示全部楼层 · 2010-6-26 13:32:29

在窗体上建立两个文本框和一个列表框控件，第一个文本框中用来输入要在列表框中插入的项内容，第二个文本框用来输入列表框中插入项的插入位置的值（0开始为第一个元素），当用户名输入的插入位置大于列表框已有的项数时，系统提示：“插入的位置有误”的错误提示，当用户要插入的项在列表框中已经存在时，系统提示：“值已存在”错误并返回

千问 · 2010-6-26 13:32:29

Private Sub Text1_DblClick()List1.AddItem Text1.TextDim i As IntegerIf List1.List(List1.ListCount - 2) = Text1.Text ThenMsgBox " 文件已经存在！"End IfEnd SubPrivate Sub Text2_DblClick()List1.AddItem Text1.TextDim number As Integernumber = Int(Val(Text2.Text))If munber > List1.ListCount - 1 ThenMsgBox "文件超出