乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 71|回复: 5

求助

[复制链接]

28

主题

46

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
158
发表于 2004-7-12 20:00:00 | 显示全部楼层 |阅读模式
Private Sub UserForm_Click()
ListBox1.AddItem "北京"
ListBox1.AddItem "天津"
ListBox1.AddItem "南京"
ListBox1.AddItem "杭州"
end Sub
在使用中,经常不小心点了多次userform,结果Listbox就会被多次激活
如何在使用中listbox只能被激活一次,以后userform被点到也不起作用。
请高手帮忙!谢谢!
回复

使用道具 举报

46

主题

150

帖子

8

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
339
发表于 2004-7-12 20:28:00 | 显示全部楼层
不妨试试如下代码:
Private Sub UserForm_Click()
Listbox1.clear
ListBox1.AddItem "北京"
ListBox1.AddItem "天津"
ListBox1.AddItem "南京"
ListBox1.AddItem "杭州" end Sub
回复

使用道具 举报

28

主题

46

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
158
发表于 2004-7-12 20:31:00 | 显示全部楼层
行的,谢谢你!
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-7-12 21:08:00 | 显示全部楼层
这样也行?
应该在这个事件里做
Private Sub UserForm_Activate()
End Sub
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2004-7-12 21:26:00 | 显示全部楼层
搞不懂为什么每次激活表单时要重新填写列表内容,而列表内容每次都一样?
为什么不在表单初始化时做这件事呢?
回复

使用道具 举报

2

主题

12

帖子

1

银币

初来乍到

Rank: 1

铜币
20
发表于 2004-9-22 15:45:00 | 显示全部楼层
我去得 uu时
combobox1里却什么内容也没有???
Private Sub 螺纹孔_Activate()
With 螺纹孔.ComboBox1
                                                                                                                         .Clear
                                                                                                                         .AddItem "M4"
                                                                                                                         .AddItem "M5"
                                                                                                                         .AddItem "M6"
                                                                                                                         .AddItem "M8"
                                                                                                                         .AddItem "M10"
                                                                                                                         .AddItem "M12"
                                                                                                                         .AddItem "M14"
                                                                                                                         .AddItem "M16"
                                                                                                                         .AddItem "M18"
                                                                                                                         .AddItem "M20"
                                                                                                                         .AddItem "M22"
                                                                                                                         .AddItem "M24"
                                                                                                                         .AddItem "M30"
                                                                                                                         .AddItem "M33"
                                                                                                                         .AddItem "M36"
                                                                                                                         .AddItem "M42"
                                                                                                                         .AddItem "G1/16"
                                                                                                                         .AddItem "G1/8"
                                                                                                                         .AddItem "G1/4"
                                                                                                                         .AddItem "G3/8"
                                                                                                                         .AddItem "G1/2"
                                                                                                                         .AddItem "G5/8"
                                                                                                                         .AddItem "G1/4"
                                                                                                                         .AddItem "G3/4"
                                                                                                                         .AddItem "G7/8"
                                                                                                                         .AddItem "G1"
End With
End Sub
Sub uu()
Load 螺纹孔
螺纹孔.Show
End Sub
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 06:45 , Processed in 0.570744 second(s), 75 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表