AccessTr.neT

[attachment=20528]Selamlar ,

Class Oluşturma ile ilgili bir sorum olacak.
Bir Form Üzerinden başka bir form açma işlemine ait kodları
Class yapısı içinde oluşturmak istiyorum. Yardımcı olabilirmisiniz ?
Örnek Ektedir. Saygılar.

Kodların çalışmıyordu

sayı yani Double olmadıgı içindi,


Dim CELOYCE As Double
CELOYCE = "123"
If TextBox1.Text = CELOYCE Then
Form2.Show()
Else
Exit Sub
End If
End Sub
şeklinde çalışır
ayrıca ne yapmak istediğini tam açıklayıcı yazarsan daha hızlı cevap alırsın

Yapmak istediğim;
Dim CELOYCE As Double
CELOYCE = "123"
If TextBox1.Text = CELOYCE Then
Form2.Show()
Else
Exit Sub
End If
End Sub
====yukarıdaki kodu bir Yeni bir Class oluşturup tanımlamak ve bir formdaki butonda bu Classı çalıştırmak.

Sadece bir form için bu işlemi yapacaksanız class oluşturmak mantıksız. Fakat farklı farklı formları tek bir class içinden çalıştırmak istiyorum derseniz ayrı. Anladığım kadarıyla eğer şifre doğru ise formu açtırmak istiyorsunuz. Eğer bu şekilde bir şey istiyorsanız bu yöntem kesinlikle yanlış. Keşke celoyce hocamın dediği gibi detaylı bir şekilde yazarsan daha kolay yardım alırsın.

Anlatamadım sanırım, ozaman şöyle diyeyim.
Form1 içindeki bir butonun tıklandığında olayına Form2.Show deyince Form2yi açıyor ya
ben bu kodu bir oluşturduğum classdeneme içinde tanımlayıp; form1 deki başka bir butonun tıklandığında olayına bu classdeneme adlı classımı çağırıp içine yazdığım kodu çalıştırmak istiyorum. Ama Clasdeneme içine şu kodu tanımlayamadım. " Form2.Show "

Mesela Class deneme içine

Puplic Class Clasdeneme
Shared Sub form2ac()
Form2.Show
End Sub

Yazıp

Form1 deki butonun tıklandığında olayına
Clasdeneme.form2ac() ' dediğimde form2 yi açacak bir örnek istiyorum.

Saygılar

Bir tane class ekle. Adı clsFormlar olsun. clsFormlar classının içindekilerin tümü aşağıdaki gibi olacak:

Class clsFormlar



    Friend Sub FormAc()

        Dim frm As New Form1()

        frm.Show()

    End Sub



End Class

Form1 üzerine bir buton ekle. Butona çift tıkla. Kod kısmına düşeceksin. Buradaki kodlar şu şekilde olacak:

  Dim f As New clsFormlar()

  f.FormAc()