Bir nesnenin olayına ilişkin bir prosedür yürütülmeden önce, sınıf modülünde tanımlanan nesneyi Uygulama nesnesiyle bağlamanız gerekir.
- Ana modülünüzün Kod penceresinde, bildirimler bölümüne aşağıdaki satırı ekleyin:
Dim X As New EventClassModule
- Aynı pencereye aşağıdaki alt programı ekleyin:
Sub InitializeEvents ( ) Set X.App = ThisDrawing.Application End Sub
- Ana modülünüzün koduna, aşağıdaki çağrıyı ekleyin.Olayları Başlatalt program:
InitializeEvents'i çağırınBir kezOlayları Başlatİşlem tamamlandı,UygulamaSınıf modülündeki nesne, şuraya işaret eder:BaşvuruBelirtilen nesne ve sınıf modülündeki tüm olay prosedürleri, olaylar gerçekleştiğinde çalıştırılacaktır.
