デイトタイムピッカーの値を元に戻したい

解決

ぽぽ 2008-05-20 04:34:07 No: 139738

VB6.0で開発しています。

デイトタイムピッカーを使用しているのですが、
日付を変更した際に、
「本当に変更してもよろしいですか？」
という旨のメッセージを表示して「いいえ」の場合、
元の日付に戻したいと思っています。

この場合、前回の値をモジュールレベルの変数で保持して、
「いいえ」の場合にその値を設定しようと思っているのですが、
モジュールレベル変数はなるべく使用したくないなと思っております。
何か良い方法はございませんか？

もし何か良い案がございましたら教えて下さい。
よろしくお願い致します。

通ってみた 2008-05-20 14:09:52 No: 139739

＞日付を変更した際に、

を「する前」にするとか

魔界の仮面弁士 2008-05-20 18:13:57 No: 139740

これでどうでしょう。

Private Sub DTPicker1_GotFocus()
DTPicker1.Tag = DTPicker1.Value
End Sub

Private Sub DTPicker1_Validate(Cancel As Boolean)
    If DTPicker1.Tag <> DTPicker1.Value Then
        If MsgBox("変更?", vbYesNo Or vbQuestion) = vbNo Then
            DTPicker1.Value = Me.DTPicker1.Tag

            Cancel = True   'キャンセルさせるかは任意で
        End If
    End If
End Sub

ぽぽ 2008-05-21 05:23:46 No: 139741

Tagがありましたね。
忘れていました。

ありがとうございます。