Question

vb列表框的问题

我把列表框的style设置为1（也就是带有复选框的），在click事件中，我把选中的项目复制到一个文件中，可是当我取消其中的一个项目时，文件中的被写入的数据会消失吗？

Answer 1

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

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

追问

我的具体做法是，在列表框中选中3个选项，然后经过代码执行把这3个选项写入数据库，然后我在点击这3个中的一个选项，即把这个选项取消，同时我想把数据库里对应的这个项目也取消，该怎么做啊？会有加分的啊，各位高手

追答

你能够用代码写入（insert或者update）数据库，
当然就能够用代码从数据库中删除（delete）该项喽。

Answer 2

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

／／方法一 即时保存数据库方式
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