Çö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
75
En iyi yanıt
0
Puanları
8
Yaş
39
Konum
Muş
Ad Soyad
Ensar Mansur
Office Versiyon
2016
Class ile Aktif olan texboxun renkli olmasını ve sonrasında eski rengine dönmesini yapmak istiyorum. Yardımcı olur musunuz?
 

Ekli dosyalar

  • Class ile aktif TextBox Renklendirme.xls
    68.5 KB · Görüntüleme: 29

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,289
En iyi yanıt
9
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Versiyon
Office 365 TR+EN
UserForm kodları:
PHP:
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ı:
PHP:
Sub MENU()
    UserForm1.Show
End Sub
ClassModule kodları:
PHP:
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
75
En iyi yanıt
0
Puanları
8
Yaş
39
Konum
Muş
Ad Soyad
Ensar Mansur
Office Versiyon
2016
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.
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,289
En iyi yanıt
9
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Versiyon
Office 365 TR+EN
ClassModule'de txt_MouseMove olayındaki kodları txt_MouseDown olayına yazın.
 

nasyarx

Yeni Üye
Katılım
11 Tem 2018
Mesajlar
75
En iyi yanıt
0
Puanları
8
Yaş
39
Konum
Muş
Ad Soyad
Ensar Mansur
Office Versiyon
2016
Fare kaydığı gibi renk de gidiyor.
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,289
En iyi yanıt
9
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Versiyon
Office 365 TR+EN
UserForm'daki UserForm_MouseMove olayını silin.
Class Module kodları da böyle olsun..
PHP:
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
75
En iyi yanıt
0
Puanları
8
Yaş
39
Konum
Muş
Ad Soyad
Ensar Mansur
Office Versiyon
2016
Harika. Allah razı olsun.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt