Programalama > VISUAL BASIC

'Amaç kullaniciyi yaptigi degisiklikler konusunda programi kapatmadan uyarmaktir.

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

ugadart
bilinmeyen