VisualBasic_text_renklendirme.htm
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.

 
Kod Alanı:

 
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ı

 

Kod Alanı:

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


 

Yardım İçin Sadece Bir Tık Yeter
 
Sponsor
 
.tk
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol