PROGRAMIM BİRDEN FAZLA ÇALIŞMASIN
AYNI anda bir çok dosya açma yeteneğine sahip, MDI formlardan oluşan bir uygulamanın birden fazla kopyasının yüklenmesi mantıksız bir durum olurdu. Düşünsenize, program ile ilişkilendirilmiş bir dosyaya tıklandığında dosya ayrı bir MDI form içinde açılacağına o uygulamanın ayrı bir kopyası yükleniyor... Eğer siz de uygulamanızın sadece bir kopyasının yüklenmesini istiyorsanız aşağıdaki kodları kullanabilirsiniz.
Private Sub Form_Load()
If App.PrevInstance Then
Kaydet$ = App.Title
App.Title = ' ... İkinci Kopya.'
Form1.Caption = ' ... İkinci Kopya.'
AppActivate Kaydet$
SendKeys ' % R' , True
End
End If
End Sub