Selam ,
Arkadaşlar diyelimki A formu açıksa .... işlemini yap B formu açıksa .... işlemini yap ikiside kapalıysa hiç birşey yapma diye bir kodu nasıl yazabiliriz.
İyi çalışmalar
Öncelikle form1 ve form2 için aşağıdaki kodlarla açık olup olmadıklarını belirleyelim:
Kod:
dim a, b as string 'değişkenleri atadık
If SysCmd(acSysCmdGetObjectState, acForm, "Form1") <> 0 Then '1 nolu formu kontrol ettik
MsgBox "Form açık." 'ekrana uyarı yazdık
a=1 'a değişkenine 1 değeri verdik
Else
MsgBox "Form kapalı." 'formun kapalı olduğu uyarısı
a=0
End If
aynı işi form2 için de yapınca b değişkeni de değer alacaktır. Sonra da
Kod:
if a=1 and b=1 then 'Yani her iki form da açıksa
'şunları şunları yap
if a=1 and b=0 then 'Yani sadece 1. form açıksa
'şunları şunları yap
....
Artık gerisini yazmaya gerek var mı?
Kolay gelsin
güzel bir kod tasarımı. eline bilgine sağlık.
cavabınız için teşekkürler.
iyi çalışmalar.
Herhalde birşeyin değerini en iyi bilen kendisi de ona sahip olandır diye bir söz uyduracağım. Ben cevabı sayın nacre'ye yazdım, bu komutları su gibi bilen moderatör arkadaşım syrup 5 puan rep vermiş... Teşekkür ederim sevgili syrup, beni yücelttiniz. Mahçup oldum.