| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请问，怎么让MessageBoxTimeout弹出的窗口出现在最顶层？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187141) |
| -- 作者：wandongliang -- 发布时间：2023/6/26 6:51:00 -- 请问，怎么让MessageBoxTimeout弹出的窗口出现在最顶层？ 请问，怎么让MessageBoxTimeout弹出的窗口出现在最顶层？ 我有一个模式窗口，模式窗口位置设置的是最顶层，窗口中有个按钮，点击按钮，会出现MessageBoxTimeout弹窗，但是这个弹窗被模式窗口给覆盖了，请问怎样让MessageBoxTimeout弹窗出现在最顶层
|
| -- 作者：有点蓝 -- 发布时间：2023/6/26 8:34:00 -- 按钮代码发上来 |
| -- 作者：wandongliang -- 发布时间：2023/6/26 11:18:00 -- Dim queryTimes = 2 Do While queryTimes > 0 Dim ll As Integer = 3 - queryTimes Dim mm As String = "支付结果未知,第" & ll & "次查询中,请稍后……" Dim Result As DialogResult Result = MessageBoxTimeout(BaseMainForm.Handle, mm, "标题:", vbOKCancel, 0,3000) If Result = 2 Then Functions.Execute("logtext","交易已取消!") Return False End If queryTimes = queryTimes - 1 system.Threading.Thread.Sleep(3000) Loop
|
| -- 作者：有点蓝 -- 发布时间：2023/6/26 11:25:00 -- Foxtable没有MessageBoxTimeout这种类型，哪里来的东西？ 看代码用法可以试试 Result = MessageBoxTimeout(e.form.BaseForm.Handle, mm, "标题:", vbOKCancel, 0,3000)
|
| -- 作者：aix -- 发布时间：2023/6/26 12:36:00 -- [此贴子已经被作者于2023/6/26 12:37:29编辑过]
|
| -- 作者：wandongliang -- 发布时间：2023/6/26 13:37:00 -- 好的谢谢！ 这是一个Windows API函数，一个定时关闭消息框，之前看有的版主用过
|