Çözüldü Class ile Textbox Renklendirme

[FERAZ]

Merhaba.
Class ile aktif textboxu renklendirdim.
Yapamadığım şey örnek olarak resimdeki gibi renkli textboxların renkleri aynı kalması textboxtan ayrılınca.
Örnekte maus userforma gelince taextbox rengi beyaz oluyor normalde textbox renk ne ise o olmalı.

https://dosya.co/ff9osyzs30kj/Classs_Textbox_Renk.xlsm.html

Dim sec() As New TextClass

Private Sub UserForm_Initialize()
    Dim a As Byte
    
    For Each aa In Me.Controls
        If TypeName(aa) = "TextBox" Then
            a = a + 1
             ReDim Preserve sec(a)
            Set sec(a).textboxx = aa
        End If
    Next
    
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
     Dim a As Byte
    For Each aa In Me.Controls
        If TypeOf aa Is MSForms.TextBox Then
            aa.BackColor = vbWhite
        End If
    Next
End Sub

Public WithEvents textboxx As MSForms.TextBox

Private Sub textboxx_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

  Dim Ctrl As Control
    For Each Ctrl In UserForm1.Controls
        If TypeName(Ctrl) = "TextBox" Then
            Ctrl.BackColor = vbWhite
        End If
    Next
    textboxx.BackColor = vbYellow
    
End Sub

 

[veyselemre]

Textboxlar üzerine gelince sarı, çıkınca orjinal rengi olsun istiyorsanız;

Class;

Public WithEvents textboxx As MSForms.TextBox
Private Sub textboxx_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    textboxx.BackColor = vbYellow
End Sub

Userform;

Dim sec() As New TextClass
Private Sub UserForm_Initialize()
    Dim a As Byte
    For Each aa In Me.Controls
        If TypeName(aa) = "TextBox" Then
            a = a + 1
             ReDim Preserve sec(a)
            Set sec(a).textboxx = aa
            aa.Tag = aa.BackColor
        End If
    Next
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
     Dim a As Byte
    For Each aa In Me.Controls
        If TypeOf aa Is MSForms.TextBox Then
            aa.BackColor = aa.Tag
        End If
    Next
End Sub

 

[veyselemre]

Public WithEvents textboxx As MSForms.TextBox
Private Sub textboxx_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    textboxx.BackColor = vbYellow
    UserForm1.Tag = textboxx.Name
End Sub

Dim sec() As New TextClass
Private Sub UserForm_Initialize()
    Dim a As Byte
    For Each aa In Me.Controls
        If TypeName(aa) = "TextBox" Then
            a = a + 1
            ReDim Preserve sec(a)
            Set sec(a).textboxx = aa
            aa.Tag = aa.BackColor
        End If
    Next
    UserForm1.Tag = "Textbox1"
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Controls(UserForm1.Tag).BackColor = Controls(UserForm1.Tag).Tag
End Sub

 

[FERAZ]

Veysel Hocam elinize sağlık süper olmuş.
Sadece gifteki gibi mesela en alt sağdaki tektboxa veri girip mausun tuşuna basılı tutarak diğer textboxa geçince renk kaybolmuyor.
Olmasada sorun değil.

Birde alttaki gibi değiştirdim yani tıklayınca renkleniyor.
Ayrıyeten Tab tuşuna basıncada aktif textbox renklenebilir mi?
Private Sub textboxx_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)


 

[veyselemre]

Veysel Hocam elinize sağlık süper olmuş.
Sadece gifteki gibi mesela en alt sağdaki tektboxa veri girip mausun tuşuna basılı tutarak diğer textboxa geçince renk kaybolmuyor.
Olmasada sorun değil.

Nerden aklınıza geliyor böyle şeyler "mausun tuşuna basılı diğer textbox a geçmek";

Public WithEvents textboxx As MSForms.TextBox
Private Sub textboxx_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim Ctrl As Control
    For Each Ctrl In UserForm1.Controls
        If TypeName(Ctrl) = "TextBox" Then
            Ctrl.BackColor = Ctrl.Tag
        End If
    Next
    textboxx.BackColor = vbYellow
End Sub

 

[veyselemre]

Ayrıyeten Tab tuşuna basıncada aktif textbox renklenebilir mi?

O nasıl olacak tab a basında diğer textbox a geçer.

 

[FERAZ]

Nerden aklınıza geliyor böyle şeyler "mausun tuşuna basılı diğer textbox a geçmek";

Public WithEvents textboxx As MSForms.TextBox
Private Sub textboxx_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim Ctrl As Control
    For Each Ctrl In UserForm1.Controls
        If TypeName(Ctrl) = "TextBox" Then
            Ctrl.BackColor = Ctrl.Tag
        End If
    Next
    textboxx.BackColor = vbYellow
End Sub

Aklıma gelmiyorda denerken denk geldi.Kod çalıştı bu arada.

 

[FERAZ]

O nasıl olacak tab a basında diğer textbox a geçer.

Diğer textboxa geçince o textboxun sarı renk olması gerek.

 

[veyselemre]

Class;

Public WithEvents textboxx As MSForms.TextBox
Private Sub textboxx_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 9 Then
        Ctrl = Replace(textboxx.Name, "TextBox", "") + 1
        textboxx.BackColor = textboxx.Tag
        If Ctrl = 13 Then Ctrl = 1
        UserForm1.Controls("TextBox" & Ctrl).BackColor = vbYellow
    End If
End Sub
Private Sub textboxx_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim Ctrl As Control
    For Each Ctrl In UserForm1.Controls
        If TypeName(Ctrl) = "TextBox" Then
            Ctrl.BackColor = Ctrl.Tag
        End If
    Next
    textboxx.BackColor = vbYellow
End Sub

Userform1;

Dim sec() As New TextClass
Private Sub UserForm_Initialize()
    Dim a As Byte
    For Each aa In Me.Controls
        If TypeName(aa) = "TextBox" Then
            a = a + 1
            ReDim Preserve sec(a)
            Set sec(a).textboxx = aa
            aa.Tag = aa.BackColor
        End If
    Next
    TextBox1.BackColor = vbYellow
End Sub

 

[FERAZ]

Sadece textboxlardan ayrılınca eski renge dönmesi kaldı hocam.
Son verdiğiniz kod ile sarı renk devamlı duruyor userforma getirsem bile mausu.

 

[Ömer BARAN]

Merhaba.
Class_Module işlemi pek uğraştığım bir mevzu olmadığından ben biraz tabiri yerindeyse HİLE yoluna başvurarak bir şey düşündüm.
Ekteki belgede de uyguladım.
Uygulamanın gerçekleşmesini sağlayan şey TextBox'ların arkalarında konumlandırdığım birer adet LABEL nesnesi.

Class_Module yöntemiyle Sayın @veyselemre olayı neticelendirecektir mutlaka.
.

 

[FERAZ]

Merhaba.
Class_Module işlemi pek uğraştığım bir mevzu olmadığından ben biraz tabiri yerindeyse HİLE yoluna başvurarak bir şey düşündüm.
Ekteki belgede de uyguladım.
Uygulamanın gerçekleşmesini sağlayan şey TextBox'ların arkalarında konumlandırdığım birer adet LABEL nesnesi.

Class_Module yöntemiyle Sayın @veyselemre olayı neticelendirecektir mutlaka.
.

Ömer hocam sağolun dosyayı deneyemiyorum malum sebepten.Açıklamanızdan label eklemiş oldunuzu okudum.Class olunca labele gerek yok.Aslında Veysel hocamızın son verdiği kod tam oldu userforma geçince sarı renk kaybolmasa bile.

 

[Ömer BARAN]

ALTIN ÜYELİK durumunu atlamışım, dosya BURADA.

 

[Orion1]

Sadece textboxlardan ayrılınca eski renge dönmesi kaldı hocam.
Son verdiğiniz kod ile sarı renk devamlı duruyor userforma getirsem bile mausu.

Linkini verdiğim dosyayı inceleyiniz.

DOSYAYI INDIR

.

 

[FERAZ]

Linkini verdiğim dosyayı inceleyiniz.

DOSYAYI INDIR

.

Evren hocam yolladığınız dosyaya alttaki kodu ekleyince artık istediğim oldu sağolun.

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
     Dim a As Byte
    For Each aa In Me.Controls
        If TypeOf aa Is MSForms.TextBox Then
            aa.BackColor = aa.Tag
        End If
    Next
End Sub

 

[FERAZ]

Merhaba.
Class_Module işlemi pek uğraştığım bir mevzu olmadığından ben biraz tabiri yerindeyse HİLE yoluna başvurarak bir şey düşündüm.
Ekteki belgede de uyguladım.
Uygulamanın gerçekleşmesini sağlayan şey TextBox'ların arkalarında konumlandırdığım birer adet LABEL nesnesi.

Class_Module yöntemiyle Sayın @veyselemre olayı neticelendirecektir mutlaka.
.

Ömer hocam dosyayı inceledim mesela 500 adet textbox varsa herbirinin arkasına label gizlemek zaman alır ve gereksiz olur.Ve her bir textbox için ayrı kod sub yazılmalı sizin örnekte.işte bundan kurtulmak için class yapmışlar.Bende fazla bilgim yok fakat araştırmıştım çok zor değil esasen.Let,get ve set olaylarıda var classta bunlarıda çözdüm lakin dosyama göre çözüm bulamamıştım.Veysel hocamız Tag özelliğine göre bulmuş ben konuyu açmadan önce mantıken önce textboxların backcolor değerlerini diziye alıp sonra bu değerleri kullanmak istemiştim olmamıştı.
Class olayını incelemenizi tavsiye ederim bazı yerlerde çok işe yarıyor araştırmalarımdan öğrendiğim.
Neyse herkesin eline sağlık sorunum giderildi.