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

求助

Private Sub UserForm_Click()<BR>ListBox1.AddItem "北京"<BR>ListBox1.AddItem "天津"<BR>ListBox1.AddItem "南京"<BR>ListBox1.AddItem "杭州"


end Sub


在使用中，经常不小心点了多次userform，结果Listbox就会被多次激活


如何在使用中listbox只能被激活一次，以后userform被点到也不起作用。


请高手帮忙!谢谢！<BR>

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

不妨试试如下代码：


Private Sub UserForm_Click()<BR>


Listbox1.clear


ListBox1.AddItem "北京"<BR>ListBox1.AddItem "天津"<BR>ListBox1.AddItem "南京"<BR>ListBox1.AddItem "杭州"





end Sub

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

行的，谢谢你!

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

这样也行？


应该在这个事件里做


Private Sub UserForm_Activate()


End Sub<BR>

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

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

jackgan 发表于 2004-9-22 15:45:00

我去得 uu时


combobox1里却什么内容也没有???


Private Sub 螺纹孔_Activate()<BR>With 螺纹孔.ComboBox1<BR>                                                                                                                       .Clear<BR>                                                                                                                       .AddItem "M4"<BR>                                                                                                                       .AddItem "M5"<BR>                                                                                                                       .AddItem "M6"<BR>                                                                                                                       .AddItem "M8"<BR>                                                                                                                       .AddItem "M10"<BR>                                                                                                                       .AddItem "M12"<BR>                                                                                                                       .AddItem "M14"<BR>                                                                                                                       .AddItem "M16"<BR>                                                                                                                       .AddItem "M18"<BR>                                                                                                                       .AddItem "M20"<BR>                                                                                                                       .AddItem "M22"<BR>                                                                                                                       .AddItem "M24"<BR>                                                                                                                       .AddItem "M30"<BR>                                                                                                                       .AddItem "M33"<BR>                                                                                                                       .AddItem "M36"<BR>                                                                                                                       .AddItem "M42"<BR>                                                                                                                       .AddItem "G1/16"<BR>                                                                                                                       .AddItem "G1/8"<BR>                                                                                                                       .AddItem "G1/4"<BR>                                                                                                                       .AddItem "G3/8"<BR>                                                                                                                       .AddItem "G1/2"<BR>                                                                                                                       .AddItem "G5/8"<BR>                                                                                                                       .AddItem "G1/4"<BR>                                                                                                                       .AddItem "G3/4"<BR>                                                                                                                       .AddItem "G7/8"<BR>                                                                                                                       .AddItem "G1"<BR>End With<BR>End Sub


<BR>Sub uu()<BR>Load 螺纹孔<BR>螺纹孔.Show<BR>End Sub<BR>
页: [1]
查看完整版本: 求助