ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / MsgBox - "ОК" по таймеру
22 сообщений из 22, страница 1 из 1
MsgBox - "ОК" по таймеру
    #38667443
кукарач
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кукарач
Гость
7, 2010, Эксель
Прочитал многое - не нашел
Как закрыть (нажать "ДА") окно сообщения программно по таймеру (пример -через 10 мин)
Спасибо
...
Рейтинг: 0 / 0
11.06.2014, 12:32
| Ответить | Цитировать | Написать  
MsgBox - "ОК" по таймеру
    #38667553
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
нарисуй свой msgbox, делов-то... с таймером и шлюхами
...
Рейтинг: 0 / 0
11.06.2014, 13:45
| Ответить | Цитировать | Написать  
MsgBox - "ОК" по таймеру
    #38667565
кукарач
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кукарач
Гость
Akina,

Рисовать-то нечаво - принцип главное...
Код: vbnet
1.
MsgBox "хочу закрыться через час"
...
Рейтинг: 0 / 0
11.06.2014, 13:54
| Ответить | Цитировать | Написать  
MsgBox - "ОК" по таймеру
    #38667569
Visual Basic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic
Гость
Э ! кукарач ! Ты чё, не понял што ли ?
Берешь и рисуешь свою форму, кидаешь на форму кнопку "Ок" и кидаешь надпись свою - вот тебе и готовый свой собственный MessageBox. Потом кидаешь на эту свою форму таймер. Дальше подсказывать ?
...
Рейтинг: 0 / 0
11.06.2014, 13:59
| Ответить | Цитировать | Написать  
MsgBox - "ОК" по таймеру
    #38667575
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
в экселе разве есть контрол таймер?
...
Рейтинг: 0 / 0
11.06.2014, 14:02
| Ответить | Цитировать | Написать  
MsgBox - "ОК" по таймеру
    #38667585
кукарач
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кукарач
Гость
Visual Basic,

как круто....
1. НЕ СВОЯ форма, а стандарт сообщения..
2. и как ты свою форму закрывать будешь по времени? каким кодом?
...
Рейтинг: 0 / 0
11.06.2014, 14:07
| Ответить | Цитировать | Написать  
MsgBox - "ОК" по таймеру
    #38667647
кукарач
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кукарач
Гость
кукарач,

Ладно, если других идей нет - придется таймер и закрытие на активацию своей формы вешать... (как не хочу свою создавать...)
...
Рейтинг: 0 / 0
11.06.2014, 14:42
| Ответить | Цитировать | Написать  
MsgBox - "ОК" по таймеру
    #38668008
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
кукарач,

WScript.Popup ?
...
Рейтинг: 0 / 0
11.06.2014, 18:18
| Ответить | Цитировать | Написать  
MsgBox - "ОК" по таймеру
    #38668012
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Опечатка, Popup является методом WScript.Shell. Пример нагугленный с инета:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
' ***********************************************************
' Метод popup
' Создание диалогового Popup окна
' pорup_okno.vbs
' *************************************************************
Option Explicit
 
Dim msg, title, timeout, result
Dim WshShell, my_msg
 
msg = "Нажмите на кнопку"
title = "Работа с методом Poрuр"
 
'Создаем экземпляр класса WScript.Shell
Set WshShell = WScript.CreateObject("WScript.Shell")
 
'Выводим popup окно
result =  WshShell.Popup(msg, 5, title, vbOKCancel + vbInformation)
 
'Определяем, на что нажал пользователь
Select case result
    Сase 1
        my_msg = "Кликнуто на OK " & "(Код: " & result & ")"
    Сase 2
        my_msg = "Кликнуто на Отмена " & "(Код: " & result & ")"
    Сase else
        my_msg = "Пользователь ничего не нажал " & "(Код: " & result & ")"
End Select
 
MsgBox my_msg
...
Рейтинг: 0 / 0
11.06.2014, 18:23
| Ответить | Цитировать | Написать  
MsgBox - "ОК" по таймеру
    #38668269
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iMrTidy
Участник
кукарач,

Shell.Popup хороший вариант, но есть один минус. Если не ошибаюсь, то нельзя задать обратный отсчет или что-то вроде того, т.е. по сообщению не видно, что оно само закроется и когда, впрочем это не всегда и нужно. Но зато минимум кода и мороки.

Есть еще один вариант, со стандартным MsgBox, но код куда более корявый (не исключаю, что можно оптимизировать, но мне лень думать), зато есть обратный отсчет. Оба варианта в файле.
...
Рейтинг: 0 / 0
12.06.2014, 04:10
| Ответить | Цитировать | Написать  
MsgBox - "ОК" по таймеру
    #38668290
ATM-TURBO 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ATM-TURBO 2
Гость
Код: vbnet
1.
2.
3.
4.
Private Declare Function MessageBoxTimeOut Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As VbMsgBoxStyle, ByVal wLanguageId As Long, ByVal dwMilliseconds As Long) As Long
Private Sub Form_Load()
    MessageBoxTimeOut Me.hWnd, "Пример Messagebox'а с таймаутом", "Автоматически закроется через 3 секунды", vbInformation + vbOKOnly, 0&, 3000
End Sub
...
Рейтинг: 0 / 0
12.06.2014, 08:31
| Ответить | Цитировать | Написать  
MsgBox - "ОК" по таймеру
    #38668322
Visual Basic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic
Гость
кукарач,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Option Explicit


Private Declare Function MessageBoxTimeOut Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As VbMsgBoxStyle, ByVal wLanguageId As Long, ByVal dwMilliseconds As Long) As Long


Public Sub S_MessageBox_with_Timer()
    MessageBoxTimeOut Application.hWnd, "Ýòî ïðèìåð îêíà, êîòîðîå ñàìî çàêðûâàåòñÿ ÷åðåç íåñêîëüêî ñåêóíä", "Âíèìàíèå !", vbInformation + vbOKOnly, 0&, 3000
End Sub
...
Рейтинг: 0 / 0
12.06.2014, 11:04
| Ответить | Цитировать | Написать  
MsgBox - "ОК" по таймеру
    #38668324
Visual Basic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visual Basic
Гость
Visual Basic,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Option Explicit


Private Declare Function MessageBoxTimeOut Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As VbMsgBoxStyle, ByVal wLanguageId As Long, ByVal dwMilliseconds As Long) As Long


Public Sub S_MessageBox_with_Timer()
    MessageBoxTimeOut Application.hWnd, "Hello ! How are you guys doing ?", "Hola, amigos !", vbInformation + vbOKOnly, 0&, 3000
End Sub
...
Рейтинг: 0 / 0
12.06.2014, 11:06
| Ответить | Цитировать | Написать  
MsgBox - "ОК" по таймеру
    #38668924
theglanda
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
theglanda
Участник
есть такой пример, правда он на VBS, не знаю подойдет ли..

Код: vbnet
1.
2.
3.
4.
Set W = CreateObject("WScript.Shell")
W.Popup "Окно закроется через 7 сек. или раньше, "_
& vbLF & "если Вы нажмете кнопку в окне", 7 , _
" Окно Popup библиотеки WScript.Shell",vbExclamation
...
Рейтинг: 0 / 0
13.06.2014, 13:57
| Ответить | Цитировать | Написать  
MsgBox - "ОК" по таймеру
    #38668928
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
theglandaесть такой пример, 16157895
...
Рейтинг: 0 / 0
13.06.2014, 14:03
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
MsgBox - "ОК" по таймеру
    #39736789
Фотография Rikozenit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rikozenit
Участник
Visual Basic,
подскажите, чего не хватает?
...
Рейтинг: 0 / 0
22.11.2018, 13:45
| Ответить | Цитировать | Написать  
MsgBox - "ОК" по таймеру
    #39736799
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
RikozenitVisual Basic,версия?
...
Рейтинг: 0 / 0
22.11.2018, 13:51
| Ответить | Цитировать | Написать  
MsgBox - "ОК" по таймеру
    #39736800
Фотография Rikozenit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rikozenit
Участник
Shocker.Pro, 7.0.1628
...
Рейтинг: 0 / 0
22.11.2018, 13:52
| Ответить | Цитировать | Написать  
MsgBox - "ОК" по таймеру
    #39736801
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Версия экселя какая?
...
Рейтинг: 0 / 0
22.11.2018, 13:54
| Ответить | Цитировать | Написать  
MsgBox - "ОК" по таймеру
    #39736808
Фотография Rikozenit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rikozenit
Участник
Shocker.Pro,
у меня Аксесс =)))) Прошу прощения)
Пошёл делать свою формочку выхода с таймером)
...
Рейтинг: 0 / 0
22.11.2018, 14:06
| Ответить | Цитировать | Написать  
MsgBox - "ОК" по таймеру
    #39736813
Фотография court
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
court
Участник
Rikozenit,

у Акцесса - Application.hWndAccessApp
...
Рейтинг: 0 / 0
22.11.2018, 14:12
| Ответить | Цитировать | Написать  
MsgBox - "ОК" по таймеру
    #39736936
Фотография Rikozenit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rikozenit
Участник
court, буду иметь в виду! Спасибо!
...
Рейтинг: 0 / 0
22.11.2018, 15:57
| Ответить | Цитировать | Написать  
22 сообщений из 22, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / MsgBox - "ОК" по таймеру
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&tid=2154978]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 41ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 64ms
get tp. blocked users:
 2ms
others: 285ms
total:  434ms
созд. / загр.: 434ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]