VetCAD

MsgBox (Вариации на тему)

    0 оценок

gomer

размещено: 23 Октября 2008
Вариации на тему MsgBox

Отличная замена функции 'alert

Комментарии

Комментарии могут оставлять только зарегистрированные участники
Авторизоваться
Комментарии 1-5 из 5
Кулик Алексей aka kpblc , 24 октября 2008 в 13:31
#1
Тогда уж проще использовать acet-ui-message...
gomer , 24 октября 2008 в 18:14
#2
Можно и через VBA, но...
А если експрессы не установлены...
А если не Автокад, а Брикскад 8, например...
И вообщче хороший повод COM поизучать (мне:)
VVA , 30 декабря 2008 в 17:09
#3
Или использовать WScript.Shell пример:
http://www.caduser.ru/cgi-bin/f1/board.cgi?t=37110Om
Вариант функции Да-Нет

(defun bg:msg-yes-no ( title message / WScript ret)
;;;; Функция выводит диалоговое окно Да-Нет
;;;;title - заголовок
;;;;message - сообщение
;;;; Возвращает t - Да
;;;; nil - Нет
;;;; По поводу иконок (+ 4 48) см. описание http://msdn2.microsoft.com/en-us/library/x83z1d9f.aspx
;;;; Пример
;;;; (bg:msg-yes-no "Поздравление" "С Новым ГодомnС Новым счастьемnВсех благnВас устаивают эти посздавления?")
(setq WScript (vlax-get-or-create-object "WScript.Shell"))
(setq ret (vlax-invoke-method WScript "Popup" message "0" title (+ 4 48)))
(vlax-release-object WScript)
(= ret 6)
)
gomer , 05 мая 2009 в 16:14
#4
Wscript.Shell создает глючное окно которое прячется на панель задач!!!!! как это устранить не знаю... Впрочем, это лишь вариация на тему Ведь можно даже через DCL реализовывать
gomer , 05 мая 2009 в 16:18
#5
С другой стороны это лишь VB6 альтернатива разработки COM интерфейсов.
zip

0.1 МБ

СКАЧАТЬ