Tekrar Çalıştırma chexboxlu

Daha önceki yayınımızda direk açılmamasını engelliyordu.

bu sefer de chexboxlu yapıldı.

kullanan kişi chexboxa basarsa program ikinci kez açılmayacak.

Bu programı tekrar çalıştır chexbox

Tekrar çalıştırma vb.net
Program alıntıdır

Arşivde saklamakta fayda var yapamayan olursa yorum atması yeterli.

Public Class Form1
    Private CalisanVarMi As System.Threading.Mutex 'visualbasicdersleri.com
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Me.CheckBox1.Checked = GetSetting(Application.StartupPath, Application.ProductName, "BirKezCalistir", False)
        If CheckBox1.Checked = False Then
            'Iki kez çalıştırmayı önlemek için kontrol kodları...
            CalisanVarMi = New System.Threading.Mutex(False, "MyApplicationName")
            If CalisanVarMi.WaitOne(0, False) = False Then
                CalisanVarMi.Close() 'visualbasicdersleri.com
                CalisanVarMi = Nothing
                MessageBox.Show(" Başka bir örneği zaten çalışıyor!")
                End
            End If
        End If

    End Sub
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged 'visualbasicdersleri.com
        If CheckBox1.Checked = False Then
            CheckBox1.Text = "Program Tekrar çalıştırılmasın"
        Else
            CheckBox1.Text = "Program Birden fazla çalıştırılsın"
            Me.StartPosition = FormStartPosition.WindowsDefaultLocation
        End If
        'visualbasicdersleri.com
        SaveSetting(Application.StartupPath, Application.ProductName, "BirKezCalistir", Me.CheckBox1.Checked) 'visualbasicdersleri.com
    End Sub
End Class

Paylaş :