Çözüldü Class ile Aktif TextBoxu Renklendirme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,077
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
UserForm kodları:
VBA:
Dim txtler() As New Class1
Dim combolar() As New Class1
Dim nense As Control
Private Sub UserForm_Initialize()
    For Each nesne In UserForm1.Controls
        If TypeName(nesne) = "TextBox" Then
            ReDim Preserve txtler(i)
            Set txtler(i).txt = nesne
            i = i + 1
        ElseIf TypeName(nesne) = "ComboBox" Then
            ReDim Preserve combolar(i)
            Set combolar(i).combo = nesne
            i = i + 1
        End If
    Next nesne
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    For Each nesne In UserForm1.Controls
        If TypeName(nesne) = "TextBox" Or TypeName(nesne) = "ComboBox" Then
            nesne.BackColor = vbWhite
        End If
    Next nesne
End Sub
Module kodları:
VBA:
Sub MENU()
    UserForm1.Show
End Sub
ClassModule kodları:
VBA:
Public WithEvents txt As MSForms.TextBox
Public WithEvents combo As MSForms.ComboBox
Private Sub txt_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    txt.BackColor = vbRed
End Sub
Private Sub combo_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    combo.BackColor = vbWhite
End Sub
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
66
Puanları
8
Yaş
37
Konum
Muş
Ad Soyad
Ensar Mansur
Murta bey,
İşlem oluyor . Fakat fare üzende iken değil de tıklandığında ( işlem yapılırken) textbox renkli olsun. Size zahmet olacak.
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
66
Puanları
8
Yaş
37
Konum
Muş
Ad Soyad
Ensar Mansur
Fare kaydığı gibi renk de gidiyor.
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,077
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
UserForm'daki UserForm_MouseMove olayını silin.
Class Module kodları da böyle olsun..
VBA:
Public WithEvents txt As MSForms.TextBox
Public WithEvents combo As MSForms.ComboBox

Private Sub combo_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    For Each nesne In UserForm1.Controls
        If TypeName(nesne) = "TextBox" Or TypeName(nesne) = "ComboBox" Then
            nesne.BackColor = vbWhite
        End If
    Next nesne
    combo.BackColor = vbRed
End Sub

Private Sub txt_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    For Each nesne In UserForm1.Controls
        If TypeName(nesne) = "TextBox" Or TypeName(nesne) = "ComboBox" Then
            nesne.BackColor = vbWhite
        End If
    Next nesne
    txt.BackColor = vbRed
End Sub
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
66
Puanları
8
Yaş
37
Konum
Muş
Ad Soyad
Ensar Mansur
Harika. Allah razı olsun.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt