界面输入框无法输入中文问题

youaremysky

再界面中加入一个输入框,界面运行如果出现弹框.输入框中就无法切换输入法,无法输入中文了.不知道怎么才能解决这个问题.

[按键精灵] 纯文本查看 复制代码

Event Form1.Button1.Click
MessageBox "b"
End Event

这样写的话,界面中的所有输入框就不能输入中文了.

[按键精灵] 纯文本查看 复制代码

Event Form1.Button1.Click
Call BeginThread(弹窗线程("b"))
End Event
Sub 弹窗线程(内容)
	MessageBox 内容
End Sub

这样多线程控制倒是没问题,但是如果我想用弹窗让脚本暂停的话就无法实现了,也比较麻烦,不知道有没有什么其他好的解决办法?

youaremysky

已经解决了,我现在是这样写的,但是不清楚会不会有隐患

[按键精灵] 纯文本查看 复制代码

Global g_弹窗开关,g_弹窗提示内容
Call 子程序_弹窗提示("关闭该提示窗")
TracePrint "开始执行下面的了"
Sub 子程序_弹窗提示(内容)
    g_弹窗提示内容=内容
    g_弹窗开关=0
    g_弹窗开关= BeginThread(弹窗线程)
    Do While len(g_弹窗开关) > 1
        Delay 100
    loop
end sub
Sub 弹窗线程()
    MessageBox g_弹窗提示内容
    g_弹窗提示内容="未添加提示内容"
    g_弹窗开关 = 0
End Sub