|
|
有个问题请教
我要用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)里.谢谢 |
|
