AccessTr.neT
Access Textbox Renklendırme Class Ile - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Access Textbox Renklendırme Class Ile (/konu-access-textbox-renklendirme-class-ile.html)

Sayfalar: 1 2

Access Textbox Renklendırme Class Ile - feraz - 18/01/2020

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

[Resim: 1EWoaosG.gif]

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


Cvp: Access Textbox Renklendırme Class Ile - accessman - 18/01/2020

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

Cvp: Access Textbox Renklendırme Class Ile - accessman - 18/01/2020

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

Cvp: Access Textbox Renklendırme Class Ile - feraz - 18/01/2020

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

Cvp: Access Textbox Renklendırme Class Ile - adnnfrm - 02/02/2020

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

Cvp: Access Textbox Renklendırme Class Ile - feraz - 03/02/2020

Sağolun.

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