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