listbox 操作问题

Question

着是一个数据库的操作,  首先查询数据库将符合条件的记录显示在listbox 中, 然后选重哪个记录就删除哪条, 在listbox中的记录未选重之前,删除键的 enable属性为false ,当选重以后变为true , 问题是我不懂怎么实现选重记录后删除键可用的着段代码  帮帮忙! 

Answer 1

Private Sub cmdDel_Click()
    Dim i As Integer
    If List1.SelCount = 0 Then Exit Sub
    For i = 0 To List1.ListCount - 1
        If i > List1.ListCount - 1 Then Exit Sub
        If List1.Selected(i) = True Then
            List1.RemoveItem i
        End If
    
    Next
End SubPrivate Sub List1_Click()
    If List1.SelCount > 0 Then
        cmdDel.Enabled = True
    Else
        cmdDel.Enabled = False
    End If
    
End Sub

Answer 2

小妹妹我来晚了，^_^
何必加个按钮呢，直接在LISTBOX里接收DELETE键多方便。
另外也不用循环这么麻烦： If L1.ListIndex >= 0 Then L1.RemoveItem L1.ListIndex
一句就可以把选中的删掉。

Answer 3

Private Sub cmdDel_Click()
    Dim i As Integer
    If List1.SelCount = 0 Then Exit Sub
    For i=List1.ListCount - 1 To 0 step -1
        If i > List1.ListCount - 1 Then Exit Sub
        If List1.Selected(i) = True Then
            List1.RemoveItem i
        End If
    
    Next
End SubPrivate Sub List1_Click()
    If List1.SelCount > 0 Then
        cmdDel.Enabled = True
    Else
        cmdDel.Enabled = False
    End If
    
End Sub
楼上的你说的是删除单个的吧,你说的是对的.
我写的是一个多选择的.当然我上面写的是错误的,给放上个对的

Answer 4

province_(雍昊) 
晕倒！不要说的那么全面好不好！！！并不是每个女孩子都像你说的那样哦！！，真是晕死！！