着是一个数据库的操作, 首先查询数据库将符合条件的记录显示在listbox 中, 然后选重哪个记录就删除哪条, 在listbox中的记录未选重之前,删除键的 enable属性为false ,当选重以后变为true , 问题是我不懂怎么实现选重记录后删除键可用的着段代码 帮帮忙!
解决方案 »
- 控件随窗体变化而变化!
- VB如何再提高
- 怎么预先在本地安装active控件啊? 并把控件设为可信,不会被屏掉或提示?
- 请教 在access文件中,怎么实现两个表切换写入?
- 为什么vb6.0中文企业版一打开就关闭????????
- SQL中定义的存储过程参数VARCHAR(15),在VB中用什么数据类型的参数可相配呢?等待中。。。
- 推荐一个技术资料下载的好地方『终极论坛』!!
- 求助
- 如何使一个函数返回值为数组!!!!!!
- 请问怎样把已经添到ImageList里面的图片提出来然后保存?
- vb关于多线程程序设计问题??(急需!)急急!
- ADODB.Stream到底是个什么东东。。。。经常看到dim XX as new adodb.stream
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
何必加个按钮呢,直接在LISTBOX里接收DELETE键多方便。
另外也不用循环这么麻烦: If L1.ListIndex >= 0 Then L1.RemoveItem L1.ListIndex
一句就可以把选中的删掉。
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
楼上的你说的是删除单个的吧,你说的是对的.
我写的是一个多选择的.当然我上面写的是错误的,给放上个对的
晕倒!不要说的那么全面好不好!!!并不是每个女孩子都像你说的那样哦!!,真是晕死!!