Çözüldü Class ile Aktif TextBoxu Renklendirme

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

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
63
En İyi Yanıtlar
0
Beğeniler
6
Puanları
8
Yaş
37
Konum
Muş
Ad Soyad
Ensar Mansur
#1
Class ile Aktif olan texboxun renkli olmasını ve sonrasında eski rengine dönmesini yapmak istiyorum. Yardımcı olur musunuz?
 

Ekli dosyalar

Admin

Yönetici
Site Sahibi
Katılım
25 May 2018
Mesajlar
1,000
En İyi Yanıtlar
72
Beğeniler
773
Puanları
113
Konum
İstanbul
#2
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
63
En İyi Yanıtlar
0
Beğeniler
6
Puanları
8
Yaş
37
Konum
Muş
Ad Soyad
Ensar Mansur
#3
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.
 

Admin

Yönetici
Site Sahibi
Katılım
25 May 2018
Mesajlar
1,000
En İyi Yanıtlar
72
Beğeniler
773
Puanları
113
Konum
İstanbul
#4
ClassModule'de txt_MouseMove olayındaki kodları txt_MouseDown olayına yazın.
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
63
En İyi Yanıtlar
0
Beğeniler
6
Puanları
8
Yaş
37
Konum
Muş
Ad Soyad
Ensar Mansur
#5
Fare kaydığı gibi renk de gidiyor.
 

Admin

Yönetici
Site Sahibi
Katılım
25 May 2018
Mesajlar
1,000
En İyi Yanıtlar
72
Beğeniler
773
Puanları
113
Konum
İstanbul
#6
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
63
En İyi Yanıtlar
0
Beğeniler
6
Puanları
8
Yaş
37
Konum
Muş
Ad Soyad
Ensar Mansur
#7
Harika. Allah razı olsun.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt