按钮Click事件中获取本控件的名称

antique_star

如下图：

窗体做了多个“指定科目”的按钮，
每个按钮要干的事都一样，就是调出模糊搜索的子界面，
然后将用户选择的科目写入旁边的空白框。
之前涉猎过，这种功能应该可以用类模块或类似动态控件对象继承之类的方法很容易解决。
由于这两方面都太深奥，我没有去学习研究。

就用了笨人的办法，毕竟最多的按钮也就12个，
每个目标控件的命名顺序与指定科目的按钮本身命名顺序是一样
Click事件激发可以写12个单独语句，直接静态写目标控件名，
这也没什么。
只是我觉得，我的命名有规律，目标控件与按钮本身控件的命名是有关联的，顺序号一致，只是前缀不一样。
如果可以在Click事件中引用到本身的控件名，
那么我12个Click事件中的代码可以完全复制，而不需要一个一个手动改。
这个并不能减轻我多少代码量，
也对工具的运行速度没有影响。

只是我既然遇到了，
就特别好奇，
有没有获取本身控件名的语句呢？

譬如：Application.Caller获取工作表对象就很好用。

指定科目的按钮代码如下：
Private Sub ComButton_01_Click()
  Target_Label = "LbAcc_01"
  UF_LookUp.Show
End Sub

在这个事件中，怎么写代码获取ComButton_01这个名称？比如me.什么？
获取之后就可以用"LbAcc_" & split(me.什么,"_")(1)来表述目标控件啦。

希望有大神指点一下迷津吧！
这是私人工作中给财务人员偷懒的工具，
不是在外面挣私钱，
绝没有找义工的意思。

纯属遇到挑战拿出来和大家交流一下！

大灰狼1976

既然点击按钮来触发事件，那点击的时候该按钮就一定处于激活状态，所以只要判断激活状态的控件名称（或CAPTION）就可以了。ActiveControl.name    或者    ActiveControl.caption

02761752696

问题不难，但连附件都没有

lsdongjh

灵活使用 控件的一些固有属性，如Tag