请问什么事件能支持,获取窗体中任意焦点控件的名称,不想有个时间代码不停的扫描全窗体控件焦点状况,也不想一个一个控件的写代码,有没有其它方法实现?谢谢

[ 本帖最后由 坚强坚持 于 2011-4-20 13:25 编辑 ]

  放了这么久的问题,没人回答,实在没办法,经想了好久,想出了个办法如下:
Private Sub Label1_Click()
    mingcheng = ActiveControl.Name
    KongJianSheZhi = "select * from  显示字段 where  名称 like '" & Me.名称 & "' and  项目名称 like '" & mingcheng & "'"
    控件设置.Show vbModal
End Sub
唉,伤心啊,竟然不记得标签无法获得焦点,但有单击事件
没想这事还有这种方法
虽说标签当按钮用倒也不啥稀奇事
可就是没想到这么的用

看了楼主自已的答案，有点不明白，VB6的控件中，难道只有LABLE控件无法获得焦点吗？，Label1_Click的代码又是什么样的编程思路呢》说出来共享一下如何？

是这样的，为使打印的位置与打印与否或者控件显示与否或控件显示位置较为灵活，另外设一表来储存，单击控件后获得焦点名称，单击无焦点标签打开一窗体进行当前焦点控件的设置用的
这样就可较灵活以循环代码执行相关操作

[ 本帖最后由 坚强坚持 于 2011-4-26 20:45 编辑 ]