formda goruldugu kadari ile o kadar butonu tek tek elle olusturup siralamissin
hoca adamlar dinamik nesne turetme ve usercontrol yapma gibi muhtesem ozellikler vermisler hepsinede ayni eventi ekleyebiliosun, daha kolay yolu varken niye bu kadar ugrastin
Private Sub alan_Click(Index As Integer)
If alanim(Index).acildi = False Then
If alanim(Index).mayintahmini = False Then
If alanim(Index).supheli = False Then
If alanim(Index).mayinvar = True Then
mayinabasildi
alan(Index).Picture = patlamismayin.Picture
MsgBox "Mayına Bastın"
Else
alanacpuanver (Index)
End If
End If
End If
End If
End Sub
index ve type yardımıyla yaptım üstadım.
programlamaya yeni başlayacaklar için güzel bir kaynak içeriğinde bir çok temel fonksiyon kullanımı mevcut.
