Иконка в Application.MessageBox

← →
Wood (2005-06-09 08:59) [0]

Я испробовал параметры button в этой функции, но как сделать, чтобы, например на MB_YESNO в окне была бы еще и иконка, как, например в MB_ICONWARNING? Очень срочно надо, подскажите, плз!

← →
Anatoly Podgoretsky © (2005-06-09 09:06) [1]

Смотри справку по Windows.MessageBox

← →
Digitman © (2005-06-09 09:07) [2]

The MessageBoxIndirect function creates, displays, and operates a message box. The message box contains application-defined message text and title, any icon, and any combination of predefined push buttons.

← →
КаПиБаРа © (2005-06-09 09:07) [3]

Используй API фенкцию MessageBox

← →
Rep © (2005-06-09 09:11) [4]

Application.MessageBox("Òðàëÿëÿ","Âû óâåðåíû?",MB_YESNO or MB_ICONWARNING)

Все работает

← →
КиТаЯц © (2005-06-09 10:17) [5]

>Digitman © (09.06.05 09:07) [2]
Есть пример использования?
Интересно как в "any icon" иконку приложения ввинтить.

← →
KotJunior (2005-06-09 11:02) [6]

Rep[4]
Ok! Спасибо.
ЗЫ: а справку я читал, переводить совсем некогда было, основу ток ухватил.

← →
Digitman © (2005-06-09 11:06) [7]

> КиТаЯц © (09.06.05 10:17) [5]
> Интересно как в "any icon" иконку приложения ввинтить.

грузишь из ресурса любую нужную тебе иконку и хэндл ее указываешь в соотв.поле структуры, передаваемой параметром в ф-цию

← →
Чапаев © (2005-06-09 11:46) [8]

>Application.MessageBox("Òðàëÿëÿ","Âû óâåðåíû?",MB_YESNO or MB_ICONWARNING)

>Все работает
А вот и не работает!!! Первый параметр -- handle окна. ;-)

← →
Wood (2005-06-09 11:51) [9]

работает, проверил
If Application.MessageBox("Удалить чё-нить?"),"Delete", MB_YESNO or MB_ICONWARNING)=ID_Yes then Delete"чё-нить.

> Чапаев © (09.06.05 11:46) [8]

где ты там хэндл увидел ?

это Windows.MessageBox() хэндл требует, а Application.MessageBox() никаких хэндлов не требует - род.окном в этом случае по дифолту будет главное окно приложения

Тьфу, блин. Мои пардоны... Как-то Application-то я и не заметил.

Иконка в Application.MessageBox Найти похожие ветки