(24/01/2020, 08:40)feraz yazdı:ben işin mantığını çözemedim zaten(24/01/2020, 08:37)accessman yazdı: Kontrol değişkenini
Private Kontrol As New Collection
ile tanımlamışız
Dim TxtOpt As ClsLstvew
For i = 0 To 20
Set TxtOpt = New ClsLstvew
Select Case i
Case 0
Set TxtOpt.opt = Controls("L00").Object
Case 1 To 9
Set TxtOpt.opt = Controls("L0" & i).Object
Case 10 To 99
Set TxtOpt.opt = Controls("L" & i).Object
End Select
Kontrol.add TxtOpt
Next
ile eleman yüklemişiz ama başka hiç bir yerde kullanmamışız
problem bundan kaynaklı olabilir mi
Üsad class için yapıldı.Class olunca class içine bir defa yazmak yeterli.
Class kodunu incelerseniz itemclick ve drop olayı orda bulunuyor.
bir kaç değişiklik yaptım ama olmadı
call ile fonksiyon çağırmasa bile aynı kodun 20 kez çalışma sebebi nedir sizce