Как показать окно уже запущенного приложения при его повторном запуске? - VB

Формулировка задачи:

Я использую такой код, но он не отрабатывает, проверял какой hwnd возвращает FindWindow - 0, соответственно ничего не отрабатывает. Подскажите где может быть ошибка.

                    Листинг программы
                
 
                        
                          
                    
Private Declare Function FindWindow Lib 'user32' Alias 'FindWindowA' (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib 'user32' (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 
Sub Main()
    'check for previouse instance
    'if already run then show it
    If App.PrevInstance Then
        ShowWindow FindWindow(0&, 'MyProgramTitle'), 9 ' SW_SHOW
        Exit Sub
    End If
    
    Load frmMain
End Sub

Решение задачи: «Как показать окно уже запущенного приложения при его повторном запуске?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
If App.PrevInstance = True Then
    MsgBox 'Программа уже запущена!', vbInformation, 'Info'
    mem = App.title
    App.title = ''   ' <<< чтобы не было двух окон с одним заголовком
    AppActivate mem  ' <<< активируем окно запущенной копии
    Exit Sub         ' <<< завершаем работу этой копии программы
End If

Оцени полезность:

12 голосов , оценка 3.833 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы