Question

在窗体中引入一个文本框Text1，在文本框下引入一个列表框List1，单击添加按钮，将文本框中内

添加到列表框，如果没有内容则给出提示“没有内容，不与添加”单击删除按钮，将选中项删除，没有选择则给出提示“请选择删除项目”

Answer 1

如:第一个窗体1即:Form1的代码:
Private Sub 窗体2_Click()
Form1.Hide
Form2.Show
End Sub
第二个窗体2即:Form2的代码:
Private Sub 还回_Click()
Form2.Hide
Form1.Show
End Sub
退出代码:
Private Sub 退出_Click()
Unload Me '退出"
End Sub

Answer 2

Private Sub Command1_Click()
If Text1 = "" Then MsgBox "没用内容，不与添加！”: Exit Sub
List1.AddItem Text1
End Sub

Private Sub Command2_Click()
if List1.ListIndex then
List1.RemoveItem List1.ListIndex
else
msgbox “请选择条目!"
end if
End Sub

Answer 3

Private Sub Command1_Click()
If Text1 = "" Then
 MsgBox "不能添加空值"
 Exit Sub
End If
List1.AddItem Text1

End Sub

Private Sub Command2_Click()
If List1.ListIndex = -1 Then
   MsgBox "请选择条目"
   Exit Sub
End If

If List1.Selected(List1.ListIndex) Then
   List1.RemoveItem List1.ListIndex
End If


End Sub