- Katılım
- 11 Mart 2005
- Mesajlar
- 3,049
- Excel Vers. ve Dili
- Office 2013 İngilizce
Arkadaşlar iyi bayramlar.
Mutlu ,sağlıklı ve huzurlu bayramlar dilerim.
Ekli dosyada class (clsSiparis) ile çalışan uygulamayı web' de buldum, kendime göre uyarlamaya çalışıyorum.
Buradaki Collection olayının çalışma mantığını bir türlü çözemedim,
Bildiğim kadarıyla; Collection nesnelerine eklediğiniz her elemana, kolay erişim için bir de anahtar ekliyoruz ve bu sayede anahtar kullanarak istediğimiz elemanı çekebiliyoruz.
Ekli dosyada her bir Label Collection içine alınıyor, btnSiparisDetay butonuna tıklandığı zaman ilgili butonun bulunduğu satırdaki tüm nesne bilgilerini getirilebilmekte;
Öğrenmek istediğim burada kaçıncı satırda işlem yapıldığı nasıl anlaşılmakta? Collection içinden bu değerler nasıl çekiyor?
Desteğiniz için şimdiden Teşekkürler,
Mutlu ,sağlıklı ve huzurlu bayramlar dilerim.
Ekli dosyada class (clsSiparis) ile çalışan uygulamayı web' de buldum, kendime göre uyarlamaya çalışıyorum.
Buradaki Collection olayının çalışma mantığını bir türlü çözemedim,
Bildiğim kadarıyla; Collection nesnelerine eklediğiniz her elemana, kolay erişim için bir de anahtar ekliyoruz ve bu sayede anahtar kullanarak istediğimiz elemanı çekebiliyoruz.
Ekli dosyada her bir Label Collection içine alınıyor, btnSiparisDetay butonuna tıklandığı zaman ilgili butonun bulunduğu satırdaki tüm nesne bilgilerini getirilebilmekte;
Öğrenmek istediğim burada kaçıncı satırda işlem yapıldığı nasıl anlaşılmakta? Collection içinden bu değerler nasıl çekiyor?
Desteğiniz için şimdiden Teşekkürler,
Kod:
Public WithEvents btnSiparisDetay As MSForms.Label
Public acSip As clsSiparis
Public acCol As New Collection
Kod:
Set acSip = New clsSiparis
Set acSip.SiparisId = SiparisId
Set acSip.tdSiparisTarih = tdSiparisTarih
Set acSip.tdSiparisVeren = tdSiparisVeren
Set acSip.tdSiparisTedarikci = tdSiparisTedarikci
Set acSip.tdSiparisAciklama = tdSiparisAciklama
Set acSip.tdSiparisToplamAdet = tdSiparisToplamAdet
Set acSip.btnSiparisDetay = btnSiparisDetay
Set acSip.mFrame = mFrame
Set acSip.myform = myform
acCol.Add acSip
Kod:
Private Sub btnSiparisDetay_Click()
Dim tt As Integer
''On Error Resume Next
tt = CInt(btnSiparisDetay.Tag)
If Not IsNumeric(tt) Then Exit Sub
MsgBox tdSiparisAciklama, vbOKOnly, tdSiparisTedarikci
End Sub
Ekli dosyalar
-
93.8 KB Görüntüleme: 10
-
45.6 KB Görüntüleme: 14