sn. @feraz sayesinde class yapısını öğreneceğim galiba
sn. @feraz eklemiş olduğu örneğe şu şekilde ufak eklemeler yaptım
form kısmına işaretleri satırları ekledim
Kod:
Private Sub setClassEvents()
Set col = New Collection
Dim Ctrl As Control
For Each Ctrl In Me.Controls
Set Olaylar = New Cls
Select Case Ctrl.ControlType
Case acCommandButton
Set Olaylar.Buttons = Ctrl
Case acTextBox ' <-----<
Set Olaylar.TextBoxs = Ctrl ' <-----<
End Select
col.Add Olaylar
Next
End SubKod:
Private WithEvents myTextBox As TextBox
Public Property Set TextBoxs(ByVal objTextboxs As TextBox)
Set myTextBox = objTextboxs
myTextBox.BeforeUpdate = "[Event Procedure]"
End Property
Private Sub myTextBox_BeforeUpdate(Cancel As Integer)
MsgBox "myTextBox_BeforeUpdate"
End Subtekrar teşekkürler sn. @feraz
sn. @feraz ın cevabı gözümden kaçmış halbuki benim için önemli bir problemin çözümü idi
bunu hatırlatarak çözüme ulaşmama vesile olan sn. @ozanakkaya ya da ayrıca teşekkür ederim
