VPF::потеря фокуса у запущенного приложения

admsasha

Дата 28.9.2010, 04:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 763
Регистрация: 28.1.2005

Репутация: 1
Всего: 6

Есть некое приложение, в кратце код ниже

Код


Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWMAXIMIZED = 3
Private Const SW_SHOWNORMAL = 1

Private Sub Command1_Click()
   Call ShellExecute(0, "open", "cmd", "", "", SW_SHOWNORMAL)
   Pause (1)

End Sub

Public Sub Pause(Wait)
    Dim Current As Long
    
    Current = Timer
    Do Until Timer - Current >= Wait
        DoEvents
    Loop
End Sub

Коммандная строка запускается, но через секунду фокус переходит на моё окно, а ком. строка фокус теряет. Без pause(1) проблемы такой нет. Как предовратить этот эффект ? установка после pause(1) SetActiveWindow ком.строки не помогает. Установка SetForegroundWindow моего окна тоже не помогает.

Dexx

Дата 28.9.2010, 11:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 292
Регистрация: 13.6.2005

Репутация: 5
Всего: 7

а если использовать sleep

Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Это сообщение отредактировал(а) Dexx - 28.9.2010, 11:36

--------------------

admsasha

Дата 29.9.2010, 03:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 763
Регистрация: 28.1.2005

Репутация: 1
Всего: 6

Цитата(Dexx @ 28.9.2010, 18:00

)

а если использовать sleep

Пробывал. Тоже самое.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »