如何实现重选列表框？

goto2008 · 发表于 2008-4-19 16:52:45

请看图片，呵呵

咱家是猫 · 发表于 2008-4-19 17:04:57

Private Sub 重选_Click()
Dim I As Long
For I = 0 To Me.List4.ListCount - 1
If Me.List4.Selected(I) Then Me.List4.Selected(I) = False
Next I
End Sub

goto2008 · 发表于 2008-4-19 17:08:30

谢谢咱家是猫。。。学习一下。。。

xuwenning · 发表于 2008-5-8 13:22:57

很想学习一下但没钱下载不了附件

9901239 · 发表于 2008-9-16 21:57:36

学习下

qdoffcie · 发表于 2009-10-9 21:36:49

学习学习

帐号		自动登录	找回密码
密码			注册

[窗体] 如何实现重选列表框？

群介绍
主题无相 (随机显示版	同地区群块其他地区)