В этом коде на Visual



Пример 1

В этом коде на Visual Basic для обнаружения выполняющейся копии приложения применяется событие Load: Private Sub Form_Load()
' Проверка наличия выполняющейся копии приложения
If Арр.Prevlnstance = True Then
MsgBox "Это приложение уже запущено.", vbCritical, "MyApp"
End
End If
End Sub
> Проверка наличия работающей копии программы в Visual Basic
  1. Запустите Visual Basic и создайте новый проект типа Standard EXE.
  2. Дважды щелкните форму Forml, чтобы открыть окно кода.
  3. В процедуру события Load вставьте следующий код: Private Sub Form_Load( ) If Арр.Prevlnstance Then MsgBox "Эта программа уже запущена." Unload Me End If End Sub
  4. В меню Project выберите пункт Project1 Properties.
  5. Измените Project Name на Instance и нажмите ОК.
  6. В меню File выберите Make Instance.exe.
  7. Средствами Windows Explorer откройте каталог, где Вы создали файл Instance.exe, и дважды щелкните его, чтобы запустить программу. После запуска программы на экране появится форма Fonnl.
  8. Дважды щелкните файл Instance.exe в Windows Explorer для запуска второй копии программы. На экране появится созданное Вами в Visual Basic окно с сообщением, информирующем, что один экземпляр приложения уже запущен.
  9. Нажмите ОК, чтобы свернуть окно сообщений, а затем закройте работающий экземпляр программы.




Содержание раздела