Серый форум — Как вывести несколько окон MsgBox одновременно?

Re: Как вывести несколько окон MsgBox одновременно?

null@example.com (omegastripes) — Fri, 07 Dec 2018 20:51:25 +0000

Вот. Только не хулиганьте.

Option Explicit

Dim oWshShell, oWshProcEnv, sMsg

Set oWshShell = CreateObject("WScript.Shell")
Set oWshProcEnv = oWshShell.Environment("process")
sMsg = oWshProcEnv.Item("msg")
If sMsg <> "" Then
	MsgBox sMsg
	WScript.Quit
End If

' здесь располагается основной код

ShowMsg "Test1"
ShowMsg "Test2"
ShowMsg "Test3"

Sub ShowMsg(sText)
	oWshProcEnv.Item("msg") = sText
	oWshShell.Run """" & WScript.FullName & """ """ & WScript.ScriptFullName & """", , False
	oWshProcEnv.Item("msg") = ""
End Sub

Re: Как вывести несколько окон MsgBox одновременно?

null@example.com (alexii) — Tue, 04 Dec 2018 23:03:09 +0000

Raikoho пишет:

Допустим, сделать несколько окон с "ошибоками" подряд

Чтобы пользователь «захлебнулся» в потоке сообщений, заполонивших экран?

Я же пишу — это не задача. Это выбранный Вами метод решения неизвестной нам задачи.

Re: Как вывести несколько окон MsgBox одновременно?

null@example.com (Raikoho) — Tue, 04 Dec 2018 20:21:32 +0000

ну вот именно такая задача. Звучит странно, но мне очень нужно... Допустим, сделать несколько окон с "ошибоками" подряд alexii

Re: Как вывести несколько окон MsgBox одновременно?

null@example.com (alexii) — Tue, 04 Dec 2018 17:04:19 +0000

Raikoho пишет:

А нужно чтобы они (n-е количество) были на экране одновременно.

Именно MessageBox — никак.

А Вам зачем? Опишите саму задачу, а не выбранный метод решения.

Как вывести несколько окон MsgBox одновременно?

null@example.com (Raikoho) — Tue, 04 Dec 2018 16:31:16 +0000

Пытался выводить через отдельные переменные, но все равно последующие окна появляются только когда повзаимодействовал с предыдущим. А нужно чтобы они (n-е количество) были на экране одновременно. Подскажите, пожалуйста.