xgngg 发表于 2004-7-12 20:00:00

求助

Private Sub UserForm_Click()
ListBox1.AddItem "北京"
ListBox1.AddItem "天津"
ListBox1.AddItem "南京"
ListBox1.AddItem "杭州"
end Sub
在使用中，经常不小心点了多次userform，结果Listbox就会被多次激活
如何在使用中listbox只能被激活一次，以后userform被点到也不起作用。
请高手帮忙!谢谢！

liyuwen 发表于 2004-7-12 20:28:00

不妨试试如下代码：
Private Sub UserForm_Click()
Listbox1.clear
ListBox1.AddItem "北京"
ListBox1.AddItem "天津"
ListBox1.AddItem "南京"
ListBox1.AddItem "杭州" end Sub

xgngg 发表于 2004-7-12 20:31:00

行的，谢谢你!

雪山飞狐_lzh 发表于 2004-7-12 21:08:00

这样也行？
应该在这个事件里做
Private Sub UserForm_Activate()
End Sub

mccad 发表于 2004-7-12 21:26:00

搞不懂为什么每次激活表单时要重新填写列表内容，而列表内容每次都一样？
为什么不在表单初始化时做这件事呢？

jackgan 发表于 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
页: [1]
查看完整版本: 求助