说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

怎样取得有焦点的对象的类型及名称?

编辑:说三道四文库 发布时间:2018-04-24 03:00
HTML文档下载 WORD文档下载 PDF文档下载
   
   在程序运行时,别的窗口取得了焦点,是否可获取该窗口中有焦点的对象
Private Sub Form_Activate()
    Dim c as Object
    set c=ActiveControl


    if not c is nothing then    MsgBox c.Name & " " & TypeName(c)
End Sub
首先判断取得焦点的窗体:
用:Screen.ActiveForm
然后用它的.ActiveControl来判断控件。
1
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘