VBで内容が変更された場合の・・・・

質問

formの中の内容text1 text2が変更された場合
またまだ保存されていない場合に終了すると
保存されていません保存しますか？

を出したいのですが、どうすれば良いのでしょうか？

いったん保存されて変更がされていない場合等は
そのまま終了できるようにしたいです？

出来ますか？？？？？

回答No.2

noname#6715 · ベストアンサー

#1です。
間違えた
Form_Changedって何だろね(汗)
Text2_Changedだよ。

しばらくVB使ってないからなぁ
(そういう問題じゃないって)

お礼

ありがとうございます。

それで出来ますね～1日中プログラムしてたら
頭が回らなくなってました。
^^；ありがとうございました。

回答No.1

noname#6715

'こんな感じだろうか？
'----------------
Public Flag1 as Boolean

Private Sub Form_Load()

Flag1 = False

End Sub

Private Sub Text1_Changed()

Flag1 = True

End Sub

Private Sub Form_Changed()

Flag1 = True

End Sub

Private Sub SaveFlagChanger()

'保存する処理

Flag1=False

End Sub

Private Sub Form_Unload()

Dim a as Integer

If Flag1=True Then

a = Msgbox("保存せずに終了しますか？",vbYesNo,"終了処理")

If a=6 Then

'保存する処理

End If

End If

End Sub