Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите чайнику / 12 сообщений из 12, страница 1 из 1
01.11.2007, 17:23
    #34911082
Sergey Byks
Sergey Byks
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите чайнику
Сделал автосохранение
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call Limpa
End Sub
Sub Salva()
    ActiveWorkbook.Save
    MsgBox ("Autosave")
    Call Tempo
End Sub
 
Sub Tempo()
    vartimer = Format(Now + TimeSerial( 0 , TimeOut,  0 ), "hh:mm:ss")
    If vartimer = "" Then Exit Sub
    Application.OnTime TimeValue(vartimer), "Salva"
End Sub
 
Sub Limpa()
    On Error Resume Next
    Application.OnTime earliesttime:=vartimer, _
    procedure:="Salva", schedule:=False
    On Error GoTo  0 
End Sub
Как сделать чтобы сообщение "Autosave" само убиралось, не дожидаясь нажатия ОК?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.11.2007, 17:30
    #34911101
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите чайнику
Sergey ByksСделал автосохранение

Зачем ? Оно уже есть.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2007, 11:56
    #34912593
Sergey Byks
Sergey Byks
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите чайнику
Затем, что требуется, чтобы файл не сохранял копию по указанному адресу, а сохранялся сам в себя, но вопрос даже не в этом, хрен с ним с автосохранением, вопрос был - как заставить MsgBox появляться лишь на секунду?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2007, 12:04
    #34912634
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите чайнику
Я в своё время тебя контрол на васике, который показавал сообщение на N секунд. Дома гляну.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2007, 14:27
    #34913260
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите чайнику
MsgBox нельзя показать на секунду, он модален. Показывай UserForm.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2007, 15:11
    #34913443
Sergey Byks
Sergey Byks
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите чайнику
В свое время можно было сделать так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub PopupDemo()
Dim WshShell As IWshShell
Dim Msg As String
Set WshShell = CreateObject(“Wscript.Shell”)
Msg = “This message will self-destruct in  5  seconds.”
Title = “A friendly reminder”
WshShell.Popup Msg,  5 , Title,  7  + vbInformation
Set WshShell = Nothing
End Sub
Но XP похоже не унаследовал Wscript - движок((
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2007, 15:35
    #34913540
Belkin
Belkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите чайнику
AntonariyMsgBox нельзя показать на секунду, он модален. Показывай UserForm.
Действительно а почему бы тебе не сделать еще одну форму с надписью и вместо MsgBox выводить ее, а потом закрывать!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2007, 15:50
    #34913613
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите чайнику
В XP:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
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
Private Const MILLISECONDS_TO_STAY As Long =  2000 

Private Sub Command1_Click()
    MessageBoxTimeOut  0 &, "Example MessageBox", "I'll disappear in " & CStr(MILLISECONDS_TO_STAY /  1000 ) & " seconds ...", vbInformation + vbOKOnly,  0 &, MILLISECONDS_TO_STAY
End Sub

Успехов
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2007, 16:00
    #34913650
Belkin
Belkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите чайнику
VladConnВ XP:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
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
Private Const MILLISECONDS_TO_STAY As Long =  2000 

Private Sub Command1_Click()
    MessageBoxTimeOut  0 &, "Example MessageBox", "I'll disappear in " & CStr(MILLISECONDS_TO_STAY /  1000 ) & " seconds ...", vbInformation + vbOKOnly,  0 &, MILLISECONDS_TO_STAY
End Sub

Успехов
Хороший пример!!!
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2007, 16:10
    #34913700
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите чайнику
Всегда рад помочъ коллеге!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2007, 16:20
    #34913750
Belkin
Belkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите чайнику
VladConnВсегда рад помочъ коллеге!
Тему не я завел...
Но примерчик мне очень приглянулся!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2007, 16:24
    #34913768
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите чайнику
Belkin VladConnВсегда рад помочъ коллеге!
Тему не я завел...
Но примерчик мне очень приглянулся!!!

Я не уверен, можно ли больше, чем одну кнопку поставить.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите чайнику / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 420ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2163145]:
 0ms
get settings:
 10ms
get forum list:
 24ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 74ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 62ms
get tp. blocked users:
 2ms
others: 225ms
total:  420ms
x
x
Закрыть


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