AccessTr.neT

hocam 1. soruma çok güzel çözüm olmuş fakat 2. için yarım kalmış. eğer mayına basarsa oyun biteceği için tüm mayınları görünmesi lazım.

(20/02/2018, 10:40)ALTANs yazdı: [ -> ]fakat 2. için yarım kalmış.

Merhaba, ben uygulamanızı tamamlamaya çalışmıyorum. Kod yapısını öğrenebilmeniz için fikir vermeye çalışıyorum.

Form geçerli olduğunda ve buton tıklandığında olayında daha önceden renkli olan etiketlerin beyaz olması için

For Each ctrl In Me



    If ctrl.ControlType = acLabel Then

    

        ctrl.BackColor = vbWhite

    

    End If



Next ctrl

Şeklinde kod var. sub Hatalilari_Bul() şeklinde işlev (Sub Numaralandir() işlevi gibi) ekleyip, üstteki kodun tamamını sub Hatalilari_Bul() işlevine ekle, 

Etiketlerin isimleri E1, E2, E3 şeklinde, B1, B2, B3 şeklindeki değişkenlere 1,2,3, şeklinde numara veriliyor.

B1'e eşit olan etiketi renklendirmek için

ctrl.Name = "E" & B1

şeklinde kod eklemeniz gerekli. Etiket İsmi (E1) = E1 gibi. "E" & B1 etiket ismi ile aynı olduğunda renklendirmesi içinde

ctrl.BackColor = vbRed

şeklinde kod eklemeniz gerekli. Bunun için,

ctrl.BackColor = vbWhite kodunu

If ctrl.name = "E" & B1 Then

    

ctrl.BackColor = vbRed

    

End If

şeklinde düzenlemeniz gerekli. Kod, for next döngüsünde olduğu için tüm etiketleri dolaşır, eşitlik olan etiketlerin rengini değiştirir. Diğer tanımlamalarında dahil olması için 

if ctrl.name = "E" & B1 or ctrl.name = "E" & B2 Then

şeklinde diğer değişkenleri de dahil etmelisin. değişkenler B1=1, B2=5 olursa E1 ve E5 kırmızı olacaktır.

Son olarak, butonların tıklandığında olayında, hatalı olduğunda görünen msgbox kodunun altınada 

call Hatalilari_Bul()

şeklinde kod ekleyip hata durumunda kodun çalışmasını sağlamalısınız.