Text Renklendirme /ßyMesMes/

[ßyMesMes]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

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