Имеется форма с кнопкой и Label.
Имеется код поиска файла на диске:
- Код: Выделить всё
Private Declare Function SearchTreeForFile Lib "imagehlp" (ByVal RootPath As String, ByVal InputPathName As String, ByVal OutputPathBuffer As String) As Long
Private Const MAX_PATH = 260
_______________________________________________________
Private Sub Command1_Click()
Dim tempStr As String, Ret As Long
Dim sMsg As String
tempStr = String(MAX_PATH, 0)
sMsg = "Искать ранее установленный файл?"
If MsgBox(sMsg, vbYesNo) = vbYes Then
Label1.Caption = "Поиск" 'Вывод информации о процессе
End If
If Label1.Caption = "Поиск" Then
Ret = SearchTreeForFile("c:\", "explorer.exe", tempStr)
If Ret <> 0 Then
MsgBox "Файл найден в " + Left$(tempStr, InStr(1, tempStr, Chr$(0)) - 1)
Else
MsgBox "Файл не найден"
Label1.Visible = False
End If
End If
End Sub
_________________________________________________________
Private Sub Form_Load()
Label1.Caption = "Подождите..." 'Это должно выводится на форме параллельно с поиском файла.
End Sub
Нажимеешь на кнопку и идет поиск файла. Поиск файла занимает некоторое время. Вставил Label1.Caption = "Поиск", чтоб было видно, что не комп завис, а просто нужно время для поиска файла.
Дело в том, что Label1.Caption = "Поиск" не появляется, пока не выскочит MsgBox с результатами поиска. А мне надо, чтоб сперва Label1.Caption = "Поиск" появился, а потом уже шел поиск и выводилось сообщение с результатом. Как не пробую,параллельно не хотят работать. В чем может быть ошибка и как их поставить в очередь? заранее благодарен. Желательно пример.
Не судите строго.
