tjek om programmet køre

Med et singleton pattern sådan her:


//////////////////////////////////////////////////////
//                            //
// Singleton Pattern så der kun kan oprettes én    //
// instans af Form1 formen.                    //
//                            //
//////////////////////////////////////////////////////
private static Form1 instance;
       
protected Form1()
{
    InitializeComponent();
}
       
public static Form1 getInstance()
{
    if(instance==null)
        instance=new Form1();
    return instance;
}
       
/// <summary>
/// Clean up any resources being used.
/// </summary>
protected override void Dispose( bool disposing )
{
    if( disposing )
    {
        if(components != null)
        {
            components.Dispose();
        }
    }
    base.Dispose( disposing );
    instance=null;
}


De steder du så kalder formen skriver du:

Form frm=Form1.getInstance();
frm.Show();

Vh Nicki

kan du ikke oversætte det til vb.
Kan ikke oversætte det selv :/

jo øjeblik

Private Shared instance As Form1

Protected Sub New()
InitializeComponent
End Sub

Public Shared Function getInstance() As Form1
If instance Is Nothing Then
  instance = New Form1
End If
Return instance
End Function

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
  If Not (components Is Nothing) Then
    components.Dispose
  End If
End If
MyBase.Dispose(disposing)
instance = Nothing
End Sub


og


Dim frm As Form = Form1.getInstance
frm.Show

jep. tak

var så lidt :)

godt nytår

øh...

Singleton gælder kun inden for samme process.

Ovenstående kode sikrer at der kun er en instans af formen i et program/process.

Man kan sagtens starte programmet 2 gange.

ups sry.. Det skulle have været:

C#:

private static Mutex s_Mutex;

static void Main()
{
s_Mutex = new Mutex(true, "Already Running");

if (s_Mutex.WaitOne(0,false))
{
    Application.Run(Form1);
}
else
    MessageBox.Show("Programmet kører allerede!","Info",MessageBoxButtons.OK,MessageBoxIcon.Information);
}

VB:

Private Shared s_Mutex As Mutex

Shared Sub Main()
s_Mutex = New Mutex(True, "Already Running")
If s_Mutex.WaitOne(0, False) Then
  Application.Run(Form1)
Else
  MessageBox.Show("Programmet kører allerede!", "Info", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub


Du skal bruge System.Threading; til Mutex

Vh

godt du lige opdagede det Arne :D

Godt nytår