vb列表框的问题

不会消失。
你取消列表框中的某个项目，
仅是触发了列表框的click事件，
你期望能够修改文件，
需要在Click事件中编写代码。

另外一种思路：
你在选中某个Item时，
并不真正写文件，
而是在列表选择的各项都明确后，通过一个按钮（或类似的机制）统一执行文件写入。

会不会消失取决于你是否写了从文件中让写入的数据消失的代码．

／／方法一 即时保存数据库方式
Private Sub List1_Click()
If List1.Selected(List1.ListIndex) Then
'选中，则删除该项
MsgBox "查找数据库是否存在" & List1.List(List1.ListIndex) & " ，存在则不操作，不存在入库操作"
Else
MsgBox "查找数据库是否存在" & List1.List(List1.ListIndex) & "，存在则删除，不存在不操作"
End If
End Sub

／／方法二 点击按钮才保存的方式，增加命令按钮
Private Sub Command1_Click()
'放一个保存按钮
Dim i As Long
For i = 1 To List1.ListCount
If List1.Selected(i - 1) Then
'查找数据库是否存在，存在刚不操作，不存在入库操作
MsgBox "查找数据库是否存在" & List1.List(i - 1) & " ，存在则不操作，不存在入库操作"
Else
'查找数据库是否存在，存在则删除，不存在不操作
MsgBox "查找数据库是否存在" & List1.List(i - 1) & "，存在则删除，不存在不操作"
End If
Next
End Sub