PGlabo

« [VB.NET] TreeViewへ項目の追加 | メイン | [Access VBA] レコードの挿入 »

2005年10月24日

[VB.NET] Sub Main（二重起動防止・スタートフォーム）

    Sub main()

        '二重起動チェック

        Dim insProcess As Process() 'プロセスインスタンス

        Dim strProcessName As String  'プロセス名

        strProcessName = Process.GetCurrentProcess.ProcessName

        insProcess = Process.GetProcessesByName(strProcessName)

        If UBound(insProcess) > 0 Then

            MessageBox.Show("すでに起動しています")

            End

        Else

            'スタートフォーム設定

            Dim f_Main As New frm_Main

            f_Main.ShowDialog()

            f_Main.Dispose()

        End If

    End Sub

2005 / 10 / 24