Skip to main content

AccessTr.neT


Access Textbox Renklendırme Class Ile

Access Textbox Renklendırme Class Ile

#1
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;


Visual Basic Code
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
.rar Class TextBox.rar (Dosya Boyutu: 46,38 KB | İndirme Sayısı: 11)
Son Düzenleme: 18/01/2020, 21:36, Düzenleyen: feraz.
Cevapla
#2
Mutlaka bu kodlardan öğreneceğim çok şey var ama bunun çok daha kolayı yok mu
Bu kodların avantajı nedir
Cevapla
#3
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
Cevapla
#4
(18/01/2020 23:14)accessman Adlı Kullanıcıdan Alıntı: 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.
Cevapla
#5
bir projemde kullanacağım sanırım. emeğinize sağlık
Cevapla
#6
Sağolun.

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

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

Yorum yapmak için üye olmanız gerekiyor

ya da