[求助]发生事件的控件名称的获取

浪上飞郑

有个问题请教
我要用PPT做一个抢答的东东，本来用下拉列表框来选择题目很容易处理事件
但领导一定要用选择框，每题一个，
而所有的选择后出现的过程基本一样，选中的选择框变灰，不可用，再跳转到相应的页面
这样我可以做一个过程来处理这些事件，问题是，我怎么样传递控件名称到过程里去，谢谢

如果每个控件都单独写代码,就很简单:

qd2.Caption = Left(qd2.Caption, 4) + "已选"

qd2.ForeColor = 255

qd2.Locked = True

With SlideShowWindows(1).View
    .GotoSlide 3
End With

如果写一个函数来处理,就简单多了

Sub selected(control_name As Control)

xuhao As Byte
xuhao = Right(Len(control_name.Name) - 4)

control_name.Caption = Left(control_name.Caption, 4) + "已选"

control_name.ForeColor = 255

control_name.Locked = True

With SlideShowWindows(1).View
    .GotoSlide xuhao
End With
End Sub

现在的问题是,我怎么样从控件里的更改事件里获得控件名称,并把控件名称传递到后面的过程(selected)里.谢谢

浪上飞郑

我顶，我顶，我顶顶

EXCELHOME,我最后的希望哟