Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Запрет запуска второй копии проги на NET!!! Добавлено: 04.04.06 16:24  

Автор вопроса:  avdey | ICQ: 219571279 
Появилась потребность в запрете запуска второй копии программы под VB2005, сунулся... 8-| ОБЛОМ...
Нашел такой код в справке:
' Visual Basic 2005
' Assumes that the Make Single Instance Application checkbox in the
' Project Designer has been checked.

Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, _
ByVal e As Microsoft.VisualBasic.ApplicationServices. _
StartupNextInstanceEventArgs) Handles Me.StartupNextInstance
    MsgBox("The application is already running!")
End Sub

А вот Me.StartupNextInstance работать не хочет, типа VB его не знает и нет у него такого СтартАпа!!!
Че делать??? (((

Ответить

  Ответы Всего ответов: 5  

Номер ответа: 1
Автор ответа:
 Neco



ICQ: 247906854 

Вопросов: 133
Ответов: 882
 Web-сайт: neco.pisem.net
 Профиль | | #1
Добавлено: 05.04.06 01:14
в свойствах проекта поставь галку Make Single Instance Application

Ответить

Номер ответа: 2
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
 Профиль | | #2 Добавлено: 05.04.06 02:53
Все там есть! Ищи в My Project -> Application

Namespace My

    ' The following events are availble for MyApplication:
    '
    ' Startup: Raised when the application starts, before the startup form is created.
    ' Shutdown: Raised after all application forms are closed.  This event is not raised if the application terminates abnormally.
    ' UnhandledException: Raised if the application encounters an unhandled exception.
    ' StartupNextInstance: Raised when launching a single-instance application and the application is already active.
    ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
    Partial Friend Class MyApplication

        Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance

        End Sub
    End Class

End Namespace

Ответить

Номер ответа: 3
Автор ответа:
 avdey



ICQ: 219571279 

Вопросов: 34
Ответов: 486
 Профиль | | #3 Добавлено: 05.04.06 11:33
Сенкс, все шпарит!!!!!!
Я не допёр, что надо NameSpace и класс использовать для этого!!!!!
А у вас есть SetupProject когда новый проект создаешь?

Ответить

Номер ответа: 4
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
 Профиль | | #4 Добавлено: 05.04.06 11:43
разумеется есть..

Ответить

Номер ответа: 5
Автор ответа:
 avdey



ICQ: 219571279 

Вопросов: 34
Ответов: 486
 Профиль | | #5 Добавлено: 05.04.06 11:58
А вот у меня нет, интересно почему???
В папке:
C:\Program Files\Microsoft Visual Studio 8\Common7\IDE\VBExpress\ProjectTemplates\1033
лежат зиповские архивы этих самых прожект темплейтов, а в папке:
C:\Program Files\Microsoft Visual Studio 8\Common7\IDE\VBExpress\ProjectTemplatesCache\1033
лежат распакованные темплейты.
Если не жалко, попробуй папки ProjectTemplates и ProjectTemplatesCache заархивировать и выслать мне на vasavdey@rambler.ru Буду очень признателен, если откажешся, то пойму и буду искать другие пути...

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам