Самопальный MsgBox

CreatoR · 17 Сен 2011

Категория: Окна и диалоги, Элементы GUI

Описание: Альтернатива для встроенного MsgBox с использованием элементов GUI.
Позволяет указывать текст кнопок, выводить отсчёт времени таймаута, и делать другие изменения в выводимом окошке сообщения.

Код/Пример:

Код:

#include "MsgBox.au3"

$MB_MESSAGEBEEP = 1
$MB_TIMEOUTCOUNT = 1

$nFlags = BitOR($MB_TOPMOST, $MB_SYSTEMMODAL, $MB_DEFBUTTON1, $MB_ICONASTERISK, $MB_YESNO)
$sTitle = "My Custom MsgBox"
$sText = "Are you sure?"
$iTimeOut = 2
$hWnd = WinGetHandle("")

$Ask = MsgBox($nFlags, $sTitle, $sText, $iTimeOut, $hWnd)
ConsoleWrite(StringFormat("+ Return: %i\n! TimedOut: %s\n", $Ask, $Ask = -1))

;Сравнение с оригиналом

$Ask = _MsgBoxEx($nFlags, $sTitle, $sText, $iTimeOut, $hWnd)
ConsoleWrite(StringFormat("+ Return: %i\n! TimedOut: %s\n", $Ask, @extended = 1))

Файл: MsgBox.zip

История версий:

v1.1
* Добавлены опциональные параметры $iLeft и $iTop.

v1.0
* Первая публичная версия

Medic84 · 17 Сен 2011

Было бы несколько интереснее если бы можно было выбирать самому боковую иконку =)

Zaramot · 17 Сен 2011

Было бы несколько интереснее если бы можно было выбирать самому боковую иконку =)

Да! И задавать свой текст кнопкам :smile:

CreatoR · 17 Сен 2011

Medic84
Zaramot
Так на то он и самопальный!

Текст уже можно задавать через переменные (см. «User Variables»), ну а иконку через GUICtrlCreateIcon в самой функций.

CreatoR · 15 Фев 2016

Небольшое обновление:

v1.1
* Добавлены опциональные параметры $iLeft и $iTop.

CreatoR · 28 Окт 2019

Перезалил архив.

Vic58 · 22 Янв 2020

У меня тоже самопальный MsgBox, но Ваш более грамотный. Скоро докончу проект и выложу, в котором большинство окон в одном стиле.
В Ваше боксе мне не хватает: линии прогрессбара (что бы не вглядываться в цифры), возможности копирования в буфер клавиатуры сообщения, остановки таймера Timeout при клике по сообщению (иногда надо, чтобы понять или перевести, что спрашивают).
В принципе, все решается, (прилагаю библиотеку с минимальными изменениями, отмечены ;~ ***Editing), но заткнулся на рамке, возникающей при замене элемента label на edit. Можно ли ее убрать? Мне седьмой десяток и быстро самому уже не разобраться с системными приемами.
Спасибо !

CreatoR · 22 Янв 2020

Vic58 сказал(а):
заткнулся на рамке, возникающей при замене элемента label на edit. Можно ли ее убрать?

Замените $ES_MULTILINE+$ES_READONLY) на BitOR($ES_MULTILINE, $ES_READONLY), 0).
В последнем параметре (расширенный стиль элемента) я указал 0, т.к по умолчанию там -1 ($WS_EX_CLIENTEDGE - рамка элемента).

Vic58 сказал(а):
Мне седьмой десяток

Это похвально, в этом возрасте обычно играют в домино а не коды пишут )).

Vic58 · 24 Янв 2020

Приятно иметь дело со знающими людьми. Очень сохраняет время и не только !
Еще раз спасибо.

Сообщение автоматически объединено: 24 Янв 2020

Еще один вопрос на тему самопальный MsgBox. Можно ли как то унаследовать в раскраске Бокса, цветовую тему (светлую, темную), установленную в системе (у меня Windows 10), как это делается например в нативной функции FileOpenDialog(). Найти на форуме мне пока не удалось, может есть какие-то решения ?

Автор темы	Похожие темы	Форум	Ответы	Дата
W	Несколько значений в MsgBox	Общие вопросы по AutoIt	4	21 Окт 2022
L	Сообщение о завершение скрипта без MsgBox	Общие вопросы по AutoIt	13	12 Окт 2022
	Окна, Диалоги Почему MsgBox отбирает фокус у рабочего окна?	Общие вопросы по AutoIt	1	25 Май 2022
	Элементы GUI MsgBox WM_ACTIVATE блокирует сворачивание окна	Общие вопросы по AutoIt	3	30 Апр 2022
	ConsoleIt - Самопальный командный интерпретатор	Примеры и рабочие проекты	9	15 Фев 2012

Поиск

Поиск

Самопальный MsgBox

CreatoR

Must AutoIt!

Вложения

Medic84

Омега

Zaramot

I ♥ AutoIt

CreatoR

Must AutoIt!

CreatoR

Must AutoIt!

CreatoR

Must AutoIt!

Vic58

Знающий

Вложения

CreatoR

Must AutoIt!

Vic58

Знающий