主题：偶尔程序假死，求强制关闭前端窗口的办法

偶尔程序假死，求强制关闭前端窗口的办法

是代码的问题

还有强制关闭后还有如下窗口

还有控件太多，有什么办法可以一健设置TAB键的顺序号吗

为什么在窗口编辑模式下，预览窗口会自动激活事件代码的编辑窗口，关闭后才会出现预览窗口

TextChanged 控件的Text属性发生变化后执行。

影响，屏蔽就正常

Dim esd = e.Sender 'AT注释:定义数组为当前界面组合列表框 = 调用Form表中指定名称的控件的属性

If esd.text > "" Then

    Dim cnm = e.form.Controls("ComboBoxg_商品归类") '定义数组并调用Form表中指定名称的控件的属性(返回当前控件名称)

    '根据上级列表名称筛选本表数据

    If esd.text = "+管理" OrElse esd.text = "【已用列表】" OrElse esd.text = "【系统列表】" OrElse esd.text = "【无分类列表】" Then

        esd.text = Vars("控件文本原值")

        Dim i As Integer

        For i = 1 To 3  Step 1

            If esd.DroppedDown = False Then '判定下拉列表状态

                'Sendkeys.Send("{F4}")

            End If

        Next

    Else

        '判定下拉列表可打开了

        ' Sendkeys.Send("{ESC}")

        If esd.DroppedDown = True Then '判定下拉列表状态

            'Sendkeys.Send("{TAB}")

        End If

        cnm.Select

        'Sendkeys.Send("{F4}") '关闭下拉列表

        '延时执行

        Dim sdt As Date = Date.Now '定义显示当前时间(含日期)

        While Date.Now < sdt.AddSeconds(0.5) '延时执行

            'Application.DoEvents '少于指定时间前即刻暂停代码的执行,大于时间后再继续执行代码

        End While

        Dim i As Integer

        For i = 1 To 3 Step 1

            If cnm.DroppedDown = False Then '判定下拉列表状态

                'Sendkeys.Send("{F4}") '关闭下拉列表

            End If

        Next

    End If

End If

问题语句：

            'Application.DoEvents '少于指定时间前即刻暂停代码的执行,大于时间后再继续执行代码

就是那个代码有问题

请问是扩展控件还是再建拉一个按键