AccessTr.neT

Hazırladığım class ile seçilen textboxun arkaplan rengini değiştirme örneğini ekliyorum.
Umarım birilerinin işine yarar.



Class modül kodlar;


Form Kodlar;

Option Compare Database



Private Kontrol As New Collection





Private Sub Form_Load()



Dim i As Byte

Dim TxtOpt As ClsTextbox

Dim ctl As Control

Dim arr



arr = Array("textbox1", "textbox3", "textbox5")



For i = LBound(arr) To UBound(arr)

    For Each ctl In Me.Controls

        If ctl.ControlType = acTextBox Then

            If ctl.Name = arr(i) Then

                Set TxtOpt = New ClsTextbox

                Set TxtOpt.BenimOptionButton = ctl

                Kontrol.Add TxtOpt

                GoTo var:

            End If

        End If

    Next

var:

        ctl.BackColor = vbWhite

Next





Erase arr

  

End Sub

Mutlaka bu kodlardan öğreneceğim çok şey var ama bunun çok daha kolayı yok mu
Bu kodların avantajı nedir

Galiba 1000 tane textbox olsa sadece yapacağımız iş array içine onları eklemek olacak diğer kısımlarda bir eklemeye ihtiyaç olmayacak

(18/01/2020, 23:14)accessman yazdı: [ -> ]Galiba 1000 tane textbox olsa sadece yapacağımız iş array içine onları eklemek olacak diğer kısımlarda bir eklemeye ihtiyaç olmayacak

Ben örnek olsun diye txt1,txt3 ve txt5 i renklensin istedim.
Array içine onları yazdım ve başkalarıda eklenebilir renklenmesi istenilen.
Eğer 1000 tane olsa ve hangisine tıklanınca o renklensin istenirse o zaman arraya gerek yok.

Yada 1000 taneden 100ü renklensin denirse textboxların isimleri ona göre kolaylık olsun diye ayarlanır.
Ben mantıken örnek olsun diye ekledim.Dahada değiştirilebilir.

bir projemde kullanacağım sanırım. emeğinize sağlık

Sağolun.

Anlamadığınız yer olursa yardımcı oluruz.