怎么写更改控件格式的通用过程？

olive_fy

我做的一个窗体上有很多图片，我打算做一个通用的过程，在图片的点击事件中调用这个过程来改图片的特殊效果，这个通用过程怎么写呢？

如果不用过程的话，只要写一句就好：
me.图片名.specialEffect=2

但有很多图片，一个一个的写很麻烦，毕竟每个图片名称不一样，即使拷贝语句也要改名字。

能写个通用的过程，直接调用过程就可以吗？

koutx

写一个公用函数过程试试。
Function shezhi(PName As String)
Me.PName.specialEffect
end function

olive_fy

2# koutx
那调用这个函数的时候不是还要输入控件名称吗？
我是想不需要再输入参数。
用ActiveControl可以吗？

olive_fy

自己顶一下。
版主帮帮忙。

olive_fy

自己最后顶一下。
请大家帮帮忙，实在没有办法就算了。