| |
|
|
| | привет всем
помогите внедрить такое дело:
нажимаю кнопку, начинается процесс обработки задачи.. сама обработка происходит от 3 до 5 мин, а сидеть и ждать когда "отвиснет" - скучно.
есть ли способ, чтобы по завершению дела сего, форма (можно msgbox) выскакивала на передний план, (в плане поверх всех левых окон, запущенных в ОС) мол, операция завершена, жду дальнейших указаний )
спасиб | |
| |
| |
| |
|
|
| |
Public Sub ShowOK()
Dim strExpr As String, strTempFile As String, hFile As Integer
Dim WShell As Object
strExpr = "MsgBox ""Все готово, белый хозяин! :)"""
Set WShell = CreateObject("WScript.Shell")
strTempFile = WShell.ExpandEnvironmentStrings("%TEMP%")
strTempFile = strTempFile & "\ShowOK.vbs"
hFile = FreeFile
Open strTempFile For Output Access Write As hFile
Print #hFile, strExpr
Close hFile
WShell.Run """" & strTempFile & """", vbMinimizedNoFocus
End Sub
|
:) | |
| |
| |
|
|
