AccessTr.neT

Bul · 18/01/2020, 21:35

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;

Kod:

Public WithEvents opt As TextBox





Public Property Set BenimOptionButton(Txttext As TextBox)

    Set opt = Txttext

        opt.OnEnter = "[Event Procedure]"

        opt.OnExit = "[Event Procedure]"

End Property





Private Sub opt_Enter()



  Dim TxtCtl As Control



    For Each TxtCtl In Forms("FormTextbox")

      TxtCtl.BackColor = vbWhite

    Next

      opt.BackColor = vbGreen

End Sub



Private Sub opt_Exit(Cancel As Integer)

    opt.BackColor = vbWhite

End Sub

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

Bul · 18/01/2020, 23:08

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

Bul · 18/01/2020, 23:14

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

Bul · 18/01/2020, 23:19

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

Bul · 02/02/2020, 23:58

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

Bul · 03/02/2020, 00:16

Sağolun.

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

AccessTr.neT

Access Textbox Renklendırme Class Ile

Access Textbox Renklendırme Class Ile

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri