请教老和尚如何批量给每个文本框写同样的事件代码。

memphis240

比如文本框的鼠标键按下，事件过程全部是
If Button = 2 Then
   CommandBars("myCom").Controls(6).Enabled = False
   CommandBars("myCom").Controls(7).Enabled = False
   CommandBars("myCom").ShowPopup
End If

请教如何用最简单的方法给10几个文本框写上这几行代码。
有没有方法如
dim ctl as control
  for each ctl in me.controls
    if typeof ctl is textbox then
    ……写起上面的代码，让每个文本框鼠标右键按下后弹出菜单。
    end if
  next ctl

memphis240

roych 发表于 2015-4-22 13:54
试试用右键菜单吧。
http://jingyan.baidu.com/article/f25ef2540a83c8482c1b828a.html
顺便说一下，我 ...

好刀法。

zpy2

用类 应可以的吧

roych

memphis240 发表于 2015-4-21 19:17
老和尚，这招不灵啊，关键是onmousedown要判断鼠标右键的，就是那个if button=2不好搞，还有其它高招吗？

试试用右键菜单吧。
http://jingyan.baidu.com/article/f25ef2540a83c8482c1b828a.html
顺便说一下，我不是老和尚，也不是喇嘛，我是有头发的，而且很茂密。

memphis240

roych 发表于 2015-4-21 09:01
dim ctl as control
  for each ctl in me.controls
    if typeof ctl is textbox then

老和尚，这招不灵啊，关键是onmousedown要判断鼠标右键的，就是那个if button=2不好搞，还有其它高招吗？

roych

dim ctl as control
  for each ctl in me.controls
    if typeof ctl is textbox then
            textbox.onclick="=函数名()"
    end if
  next ctl
把它放在窗体的加载事件中。具体可以参考以下帖子：
http://www.office-cn.net/thread-112360-1-1.html