Таймер на MsgBox

[OOKapitan]

Заменить на:

Заменил. Эффект нулевой  .

[rami]

Всё получилось. Но возникла следующая проблема: диалог не реагирует на нажатие кнопок. Никак

Каждой кнопке надо назначать соответствующий макрос (в свойствах кнопки есть вкладка "События")

[OOKapitan]

Каждой кнопке надо назначать соответствующий макрос (в свойствах кнопки есть вкладка "События")

Иииииихуууууууу!!! Зарабоооотало! А как поменять это название "Что будем делать?"? В коде или в диалоге тоже?

[bigor]

А как скопировать диалог в мои диалоги?

В либре в редакторе макросов есть кнопка экспортировать диалог, импортировать диалог - переносятся все события

[rami]

А как поменять это название "Что будем делать?"? В коде или в диалоге тоже?

Код меняет то, что есть в диалоге, поэтому менять нужно в коде.

[OOKapitan]

В либре в редакторе макросов есть кнопка экспортировать диалог, импортировать диалог

Что-то не вижу у себя в OpenOffice в редакторе макросов.

[OOKapitan]

Код меняет то, что есть в диалоге, поэтому менять нужно в коде

Большущее спасибо.

[rami]

Что-то не вижу у себя в OpenOffice в редакторе макросов.

Не в редакторе макросов, а в редакторе диалогов в панели инструментов есть кнопки "Экспортировать диалог" и "Импортировать диалог"

[bigor]

Что-то не вижу у себя в OpenOffice в редакторе макросов.

вот как в ООО, правда 4.х

[OOKapitan]

Большущее спасибо.

[dimmon777]

Добрый день! На скорую руку прикрутил таймер в не модальный диалог, можно использовать как MsgBox (очень удобно при редактировании документа)

Код Выделить Развернуть

Sub NonModalDlg
dim n as integer
dim Controls() as Object
DialogLibraries.LoadLibrary( "Standard" )  'Load the standard Library
dlg = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )  'Load the existing Practice Dialog
odlgModel = dlg.Model
odlgModel.Step = 1
'dlg.execute
MustBeClose = false
Modal = False
dlg.visible = true
dim t as integer, p as integer
t=5000 'устанавливаем счетчик(можно реализовать в секундах)
do
if MustBeClose   then exit Do
t=t-220
wait (200)
if t = 0 or t < 0 then goto ii
p=t/1000
oCell2=("До закрытия осталось: "& p)
dlg.getControl("Label1").setText(oCell2)
'Npis = dlg.getControl("До закрытия осталось: "& t)
Loop
ii:
dlg.visible = false ' и т.д.
End Sub

[rami]

На скорую руку прикрутил таймер в не модальный диалог, можно использовать как MsgBox (очень удобно при редактировании документа)

Это как? и для чего? менять надписи в диалоге не проблема, но что с ним делать, кроме "посмотреть"?

[tagezi]

кроме "посмотреть"?

Посмотреть ещё раз?

На скорую руку прикрутил

Рука была очень скорая, аж отвертка тряслась.

ЗЫ: очень сложно читать текст, где стиля разметки нет в принципе
Хотя, хозяин барин.

[dimmon777]

Это как? и для чего? менять надписи в диалоге не проблема, но что с ним делать, кроме "посмотреть"?

Вот вполне рабочий диалог (не только посмотреть)

[rami]

dimmon777, напишите комментарии на каждую строку кода (я имею ввиду на каждую без исключения строку кода — примерно 40 комментариев), а потом прочитайте.