Text Renklendirme /ßyMesMes/

[ßyMesMes]

Textlerin Üzerinde Gelindiğinde Arkaplan Değiştirme Ve Textten Çıkıldığında Eski Haline Dönmesi Modüle Yasarsanız Projenin Bütün Formlarında Kullanabilirsiniz.

Public Sub TxtRenkGir(TxtBox As Object, Optional NesneLockedKontrulu As Boolean ) 
    On Error Resume Next 
    If TypeName(TxtBox ) = "TextBox" Then 
        If NesneLockedKontrulu = True And TxtBox.Locked = True Then Exit Sub 
    End If 
    TxtBox.BackColor = &H80FFFF 
    TxtBox.SetFocus 
    TxtBox.SelStart = 0 
    TxtBox.SelLength = Len(TxtBox ) 
End Sub 
Public Sub TxtRenkCik(TxtBox As Object, Optional NesneLockedKontrulu As Boolean ) 
On Error Resume Next 
    If TypeName(TxtBox ) = "TextBox" Then 
        If NesneLockedKontrulu = True And TxtBox.Locked = True Then Exit Sub 
    End If 
    TxtBox.BackColor = &H80000005 
    TxtBox.SelStart = 0 
    TxtBox.SelLength = 0 
End Sub

Formda Kullanımı

Private Sub text1_LostFocus( ) 
    Call TxtRenkCik(Text1 ) 
End Sub 
Private Sub text1_GotFocus( ) 
    Call TxtRenkGir(Text1 ) 
End Sub

 

[darki2696]

Tşkler...

 

[cskn192]

Teşekkürler.

 

[ßyMesMes]

Sağolun.

 

[UnNaturaL]

Paylaşım için teşekkürler