2010

megaloman · Отправлено: **21:29, 12-04-2020** | #2

В VBA InputBox - имя стандартной функции. ИМХО, не стОит его так использовать. Зачем еще как-то переопределять стандартную функцию.
В PopUp 4 аргумента: Popup(<Text>,<SecondsToWait>,<Title>,<Type>)

Код:

Sub zapusk()
    With CreateObject("WScript.Shell")
        a = .PopUp("Текст сообщения", 5, "Заголовок", 2)
    End With
End Sub

DUNAEV78 · Отправлено: **21:58, 12-04-2020** | #3

Цитата megaloman:

megaloman »

да но это же InputBox где же "default" строка куда заносится сообщение, у меня просто в проекте оно обязательно должна присутствовать, может как то можно обойти?

megaloman · Отправлено: **22:10, 12-04-2020** | #4

DUNAEV78, Что такое "default" - это строка, которую ручками пользователь должен занести? В InputBox нет таймера.
Можно выкрутиться: вызвать PopUp с вопросом типа "Вы будете вводить свои данные?", кнопками да-нет и таймером. При выборе "да" вызвать InputBox, "нет" или таймер - вместо введённого текста использовать текст по умолчению.

DUNAEV78 · Отправлено: **22:12, 12-04-2020** | #5

а как вариант возможно ли у стандартного InputBox таймером через 2 сек нажать кнопку "отмена"?

у меня в проекте если в поле не введено ни одни данные, то InputBox, закрывается , я понимаю что просто так не закрыть а вот по кнопке отмена выйти из InputBox

Iska · Отправлено: **11:01, 13-04-2020** | #6

Цитата DUNAEV78:

а как вариант возможно ли у стандартного InputBox таймером через 2 сек нажать кнопку "отмена"? »

DUNAEV78, нет.

И:

Цитата Popup Method :

The return value intButton denotes the number of the button that the user clicked. If the user does not click a button before nSecondsToWait seconds, intButton is set to -1.

Используйте UserForm.