[已解决]一个窗体应用小问题

爱疯 · 发表于 2010-2-20 11:13

6QtfWSKU.rar (8.08 KB, 下载次数: 1)

搁浅2008 · 发表于 2010-2-20 11:15

方法1每个按钮一个事件方法2用类模块[em04]

爱疯 · 发表于 2010-2-20 11:19

方法一我都弄不出来[em06]

虽然觉得应该不难，可就是没弄出来[em03]

搁浅2008 · 发表于 2010-2-20 11:22

这是方法1

Private Sub CommandButton1_Click()
MsgBox CommandButton1.Caption
End Sub

Private Sub CommandButton2_Click()
MsgBox CommandButton2.Caption
End Sub
等等我写个类模块的

爱疯 · 发表于 2010-2-20 11:24

QUOTE:

以下是引用搁浅2008在2010-2-20 11:22:00的发言：

这是方法1

Private Sub CommandButton1_Click()
MsgBox CommandButton1.Caption
End Sub

Private Sub CommandButton2_Click()
MsgBox CommandButton2.Caption
End Sub
等等我写个类模块的

你这样是钻空子呀 [em07]

所以附件里它们的caption都被改为字母了

[em27][em27]

爱疯 · 发表于 2010-2-20 11:46

Sub aa()
    Dim Str$

    Str = UserForm1.CommandButton1.Name
    MsgBox Replace(Str, "CommandButton", "")

End Sub

就像target可表示当前选取的单元格。红色部分仅表示CommandButton1对象。而不是“当前点击的按钮"。该怎么改呢？

GAJOb6pv.rar (8.64 KB, 下载次数: 0)

爱疯 · 发表于 2010-2-20 12:10

cu3QALhA.rar (9.44 KB, 下载次数: 0)

爱疯 · 发表于 2010-2-20 13:29

问题还没解决。

在前面基础上，增加1点改变后，又不知怎么弄了。。。。[em11][em11][em11]

请问该怎样修改，谢谢！！

EmBzGHr6.rar (9.92 KB, 下载次数: 0)

搁浅2008 · 发表于 2010-2-20 13:51

abIfGkXw.rar (10 KB, 下载次数: 0)

搁浅2008 · 发表于 2010-2-20 13:55

k04FsXd5.rar (13.02 KB, 下载次数: 0)

		自动登录	找回密码
密码			注册