江羽另类试用注册次数限制（MDE版）

zxklzxm1983 · 发表于 2009-12-23 15:19:25

看看学习一下

yanwei82123300 · 发表于 2009-12-23 16:37:48

看看

hupingrenjia · 发表于 2010-6-20 07:35:32

好帖自然要顶。

fyssz · 发表于 2010-8-3 16:27:33

谢谢分享

wang1950317 · 发表于 2010-8-3 20:47:30

看看江版的佳作！

ThinkQuest · 发表于 2010-8-6 19:34:49

Private Sub 全选_Click()
Me.列表框.SetFocus
Me.列表框.Selected(Me.列表框.ListCount-1)=True
DoEvents
SendKeys "^+{HOME}", True
Me.全选.SetFocus
End Sub

Private Sub 取消全选_Click()
Dim 列表项变量 As Variant

Me.列表框.SetFocus
SendKeys "{DOWN}", True
Me.取消全选.SetFocus
For Each 列表项变量 In Me.列表框.ItemsSelected
Me.列表框.Selected(列表项变量).Selected=False
Next
End Sub

chaosheng · 发表于 2010-8-6 21:57:04

看看

付谦 · 发表于 2010-8-7 10:45:45

正需要,学习

LJB · 发表于 2010-8-7 12:14:39

dzh-1976 · 发表于 2010-9-25 22:36:00

好，谢谢

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

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[加解密/安全] 江羽另类试用注册次数限制（MDE版）

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