Textbox Taki Değişikliği Algılama Kodu

Textbox Taki Değişikliği Algılama Kodu

Aşağıdaki kod bloğunu kullanarak textboxta gerçekleşen değişiklikleri algılayabilir ve buna uygun istediklerinizi yapabilirsiniz.

Public Degisti As Boolean 'Bu degisken textbox'ta herhangi bir degisiklik olup olmadigini tutar.
Private Sub Text1_Change()
Degisti= True
End SubPrivate

Sub Form_Unload(Cancel As Boolean)
If Degisti Then
If Msgbox("Degisiklikler kaydedilsin mi?", vbYesNo, "Kayit'") = vbYes Then
'Buraya kaydetme ile ilgili kodlar gelecek
Degisti = False
' Degisti degerini tekrar False yap ki bir sonraki degisiklikte tekrar çalisabilsin. (Bu Önemli!!!!)
'Bunu sadece buradaki If - End If blogu arasina yaz
End If
End If
End Sub

What's Your Reaction?

like
1
dislike
0
love
0
funny
0
angry
0
sad
0
wow
0