1

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

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

2

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

Raikoho пишет:

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

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

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

3 (изменено: Raikoho, 2018-12-05 00:23:51)

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

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

4

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

Raikoho пишет:

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

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

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

5

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

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

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
Щт Уккщк Куыгьу Туче
’ҐЄгй п Є®¤®ў п бва Ёж : 1251