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