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

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

2018-12-07T20:51:25Z

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

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 одновременно?

2018-12-04T23:03:09Z

Raikoho пишет:

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

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

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

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

2018-12-04T20:21:32Z

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

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

2018-12-04T17:04:19Z

Raikoho пишет:

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

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

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

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

2018-12-04T16:31:16Z

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