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

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

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

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

WScript.Popup ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.06.2014, 18:23
    #38668012
VSVLAD
VSVLAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MsgBox - "ОК" по таймеру
Опечатка, 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
| Ответить | Цитировать | Написать  
12.06.2014, 04:10
    #38668269
iMrTidy
iMrTidy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MsgBox - "ОК" по таймеру
кукарач,

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

Есть еще один вариант, со стандартным MsgBox, но код куда более корявый (не исключаю, что можно оптимизировать, но мне лень думать), зато есть обратный отсчет. Оба варианта в файле.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.06.2014, 08:31
    #38668290
ATM-TURBO 2
ATM-TURBO 2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MsgBox - "ОК" по таймеру
Код: 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, 11:04
    #38668322
Visual Basic
Visual Basic
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MsgBox - "ОК" по таймеру
кукарач,

Код: 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:06
    #38668324
Visual Basic
Visual Basic
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MsgBox - "ОК" по таймеру
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
| Ответить | Цитировать | Написать  
13.06.2014, 13:57
    #38668924
theglanda
theglanda
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MsgBox - "ОК" по таймеру
есть такой пример, правда он на 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, 14:03
    #38668928
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MsgBox - "ОК" по таймеру
theglandaесть такой пример, 16157895
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
22.11.2018, 13:45
    #39736789
Rikozenit
Rikozenit
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MsgBox - "ОК" по таймеру
Visual Basic,
подскажите, чего не хватает?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.11.2018, 13:51
    #39736799
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MsgBox - "ОК" по таймеру
RikozenitVisual Basic,версия?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.11.2018, 13:52
    #39736800
Rikozenit
Rikozenit
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MsgBox - "ОК" по таймеру
Shocker.Pro, 7.0.1628
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.11.2018, 13:54
    #39736801
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MsgBox - "ОК" по таймеру
Версия экселя какая?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.11.2018, 14:06
    #39736808
Rikozenit
Rikozenit
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MsgBox - "ОК" по таймеру
Shocker.Pro,
у меня Аксесс =)))) Прошу прощения)
Пошёл делать свою формочку выхода с таймером)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.11.2018, 14:12
    #39736813
court
court
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MsgBox - "ОК" по таймеру
Rikozenit,

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


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