Access Class Module ve Olaylar

aydın3838 · 26-02-2011, 11:41

selam
ister bir form ister 300 farketmez 1 tek class ile hepsini aynı andada çalıştırabilirsiniz
buraya kadar sorun yok
hatırlatayım projenizde nekadar az denetim olursa o kadar da hızlı çalışır
http://support.microsoft.com/kb/229756/tr
bu tür uygulamalar genelde görsellikte kullanılmakta ama istenirse farklıda yapılabilir
ben uygulamamda metin kutularına girildiğinde bir reknk çıkıldığında ayrı bir renk olması için kullanırdım ve büyük küük harf dizesi için ama uygulama yavaşlayınca bu modü ü iptal edip koşullu biim kullanmak zorunda kaldım unutmayın performans en önemli kavramdır projenin estetik liğinden çok çalışması önemlidir

esmek43 · 11-09-2011, 22:32

Emeğinize sağlık Berkant bey ,
Sizlerin ışığında kendimizi geliştiriyoruz. Katkıları olan tüm üyelere teşekkürler.

abkbek · 22-03-2012, 00:01

Sayın Berkant Öztürk,
paylaşımınız için teşekkür ederim

Zeki Gürsoy · 24-03-2012, 03:30

Dostum bu örneğe göre hazırladığım "CheckBox" lar çalışmıyor.
Olmazsa olmaz "Collection" nın ne işe yaradığı da tartışmaya açık... Access'te class ile çalışmak biraz eziyet sanki. Wink

beab05 · 24-03-2012, 12:05

Zeki, çalışmayan nedir, denedim sorun olmadı..

Class Kod (clsbeab)

Kod:
Private WithEvents ChcKutum As CheckBox

Public Property Set ChecKutu(ByVal objChc As CheckBox)

    Set ChcKutum = objChc

   ChcKutum.OnClick = "[Event Procedure]" 'bu satır

End Property

Private Sub ChcKutum_Click()

MsgBox "kutuya tıkladın"

End Sub

Yukarıda bu satır kod tagları yüzünden sorunlu çıkıyor.
ChcKutum.OnClick = "[Event Procedure]"

olarak düzeltiniz.

Form Kod;

Visual Basic
Private TxtKutuCollection As Collection
 
Private Olaylar As Clsbeab
 
'Olay kodları, load gibi..
 
Dim Ctrl As Control
 
For Each Ctrl In Me.Controls
    Set Olaylar = New Clsbeab
 
    Select Case Ctrl.ControlType
 
       Case acCheckBox
 
       Set Olaylar.ChecKutu = Ctrl
 
    End Select
 
          TxtKutuCollection.Add Olaylar
 
 Next

Zeki Gürsoy · 24-03-2012, 15:33

O kadar çok şey denedim ki, 3-5 satır kodun içinde bile kayboldum. "[Event Procedure]" ile de denemiştim; sanırım gözümden kaçan birşey olmuş.

Ben tam olarak aşağıdaki gibi icra etmeye çalışıyorum. Yani, sınıfın click event'inde değil de, form kod penceresinde olayı yakalamak istiyorum. Aşağıdaki kodu incelersen ne yapmak istediğim daha iyi anlaşılacak.

Form.

Visual Basic
Private col            As Collection
Private WithEvents chk As clsCheckBoxes
 
Private Sub chk_X(arg As String)
    MsgBox arg
 
'    Select Case arg
'        Case "onay1"
'
'        Case "onay2"
'
'    End Select
End Sub
 
Private Sub Form_Load()
Dim Ctrl As Control
 
    Set col = New Collection
 
    For Each Ctrl In Me.Controls
       If LCase(TypeName(Ctrl)) = "checkbox" Then
           Set chk = New clsCheckBoxes
           Set chk.Checks = Ctrl
           col.Add chk
       End If
    Next
 
End Sub

Class :

Visual Basic
Private WithEvents c As CheckBox
Public Event X(arg As String)
 
Public Property Set Checks(ByVal objChecks As CheckBox)
    Set c = objChecks
    c.OnClick = "[Event Procedure]"
End Property
 
Private Sub c_Click()
    RaiseEvent X(c.Name)
End Sub

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Başka bir Access den Obje( form, tablo, module.vs) transferi	beab05	15	10.443	01-12-2011, 13:00 Son Mesaj: beab05

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL