如何让VBA窗体上的文本框保持输入焦点？

参考代码：

Private Sub TextBox1_Exit(ByVal Cancel As 绝唤MSForms.ReturnBoolean)

    If TextBox1.Value < 1 Or TextBox1.Value > 100 好档Then

        Cancel = True     '输入值不并袜凯在 1~100 范围内时, 禁止焦点转移到另一个控件, 保留在当前控件

    End If

End Sub

原理：在 Exit 事件中执行判断，如果不满足指定条件，则把 Cancel 参数值设置为 True 来阻止焦点移出控件

可以用下面的代码：皮洞

Shell 路径\程序名

ShowWindow FindWindowTitle("程序名"), SW_SHOWNORMAL

AppActivate ("程序名")

就可以实现所需要早判的程序焦点置前燃睁枯啦

微信小程序聊天保持focus状态有两种方法：

1、小程序界面右上角有个大的圈，点击可以退出当前小程序，就到了微信进去小程序前的聊天界面了，这个方法适用Android和iPhone。

2、Android下，一般按相应「显示多任务」键或者虚罩虚拟键，会显示当前后台运行的APP列表，选中微信就可以派敬跳转到聊天界面尘誉慎了。

---