(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.

Set TxtOpt.opt = Controls("L00").Object

Yukarıdaki gibi olunca class olayı için hata olmuyor,alttaki gibinci(objecet olmadan) haya oluyor çok garip.Bulana kadar işim bitti dün

Set TxtOpt.opt = Controls("L00")

(24/01/2020, 08:40)feraz yazdı:

(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.

ben işin mantığını çözemedim zaten 
bir kaç değişiklik yaptım ama olmadı
call ile fonksiyon çağırmasa bile aynı kodun 20 kez çalışma sebebi nedir sizce

(24/01/2020, 09:11)accessman yazdı:

(24/01/2020, 08:40)feraz yazdı:

(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.

ben işin mantığını çözemedim zaten 
bir kaç değişiklik yaptım ama olmadı
call ile fonksiyon çağırmasa bile aynı kodun 20 kez çalışma sebebi nedir sizce

Java ile hiç class yazmadınız mı?
20 kez çalışması olayına öğleden sonra bilgisayarı açınca bakabilirim.

birbirine benziyodur mutlaka ama asıl olay bence 
Forms("Form2").Controls(opt)
string değerini almıyor gittiği fonksiyonda string olması lazım bunu 
msgbox da
Forms("Form2").Controls(opt)
Forms("Form2").Controls(opt).Object
Forms("Form2").Controls(opt).Object.Name
hepsi hata veriyor

(24/01/2020, 09:44)accessman yazdı: birbirine benziyodur mutlaka ama asıl olay bence 
Forms("Form2").Controls(opt)
string değerini almıyor gittiği fonksiyonda string olması lazım bunu 
msgbox da
Forms("Form2").Controls(opt)
Forms("Form2").Controls(opt).Object
Forms("Form2").Controls(opt).Object.Name
hepsi hata veriyor

Normalde form adını yazmadanda olur lakin anlamadığım şekilde çalışmıyor.
Opt yazıp noktaya basınca normalde çıkan özelliklerden name çıkmalı o çıkmıyor.
Yani opt.Name  böyle olmuyor.
Normal bir listview ekleyip başka forma orda listview1.name diye hata vermeyip listview yazıp . Koyunca name çıkmalı diye biliyorum.

Ufak bir ayrıntı vardır çözeriz üstad haftasonuda geldi