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
Kontrollere Toplu Kod Yazmak
Konuyu Okuyanlar: 1 Ziyaretçi