Class Module (Sınıf Modülü), VBA'nın en korkulan ama en güçlü konusudur. Kendi nesnenizi yaratmanızı sağlar. Basitçe düşünelim: "Personel" diye bir nesne yaratalım.
Örnek
Class Module ekleyin, adını "cPersonel" yapın. İçine şunu yazın:
Public Ad As String
Public Maas As Double
Public Function YillikMaas() As Double
YillikMaas = Maas * 12
End Function
Public Maas As Double
Public Function YillikMaas() As Double
YillikMaas = Maas * 12
End Function
Artık normal modülde şunu yapabilirsiniz:
Dim p1 As New cPersonel
p1.Maas = 10000
MsgBox p1.YillikMaas '120000 verir
p1.Maas = 10000
MsgBox p1.YillikMaas '120000 verir
Kod tekrarını önlemek ve düzenli çalışmak için ileri seviye bir adımdır.
Henüz yorum yapılmamış. İlk yorumu sen yap!
Yorum Yap