İki nesneye birden basıldığına işlem yapmak

Bu derste 2 nesneye uygulanan işlem sonucu yeni bir işlem yapmayı göstereceğim.

Bu derste 2 nesneye uygulanan işlem sonucu yeni bir işlem yapmayı göstereceğim.

Formumuza 2 button, 2 label ekleyelim. Öncelikle değişken tanımlayalım:


Dim d1,d2 as integer



Form_Load kısmına şu kodları yazalım


If d1+d2 = 2 Then

Msgbox("Giriş yapıldı")

Form2.Show()

Me.Hide()

End If

d1 = "0"

d2 = "0"

Label1.Text = d1

Label2.Text = d2



Button1 Click olayına şunu yazıyoruz:


d1 = "1"



Button2 Click olayına şunu yazıyoruz:


d2 = 1



Dersin sonuna geldik.
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Bu kodda form2 açılmaz form_load form yüklenmeden önce çalışır. Siz butonlara bastırdıkça değer veriyorsunuz o yüzden form2 yi açamazsınız.
Nihat bey eğer bu kodlar işe yaramıyor ise ayar düzenini kullanabilirsiniz. Öncelikle uygulamanıza 2 tane ayar koyun. (integer) Button1_Click kısmına şunu yazın [code]d1 = 1 My.settings.d1 = "1"[/code] Button2_Click kısmına şunu yazın [code]d1 = 1 My.settings.d2 = "1"[/code] Form_Load kısmına da şunu yazın [code]If d1+d2 = 2 Then Msgbox("Giriş yapıldı") Form2.Show() Me.Hide() End If If my.settings.d1 + my.settings.d2 = "2" Then Msgbox("Giriş yapıldı") Form2.Show Me.hide End If d1 = "0" d2 = "0" Label1.Text = d1 Label2.Text = d2[/code]

Yukarı Git