エラー時に処理を戻したい。

質問

VB2005環境です。

ボタンをクリックした時、条件によってエラーを出し、処理を
ボタンが押される前に戻すようなプログラムを作りたいと思っています。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim test As Integer

test = 5

If test > 1 Then

Throw New IndexOutOfRangeException("エラー")

Else
MsgBox("エラーではない")

End If

Catch aex As IndexOutOfRangeException
MsgBox(aex.Message)
End Try
End Sub

例えば上のようにした場合は、もうボタンが押された後にメッセージを
表示するだけになってしまいます。
例えば、テキストボックスにフォーカスした時に戻すとか、フォームロードの
状態に戻すとかいうことをしたいのですが…。

処理を戻す方法を教えていただけないでしょうか？

回答No.2

K-Sogacchi · ベストアンサー

DBならトランザクション使ってロールバックすればいいんですけどねぇ……
初期状態じゃない、「ユーザーの手が入っている」元の状態に戻すなら、
何らかの方法で自力でやるしかないような気がします。
Clickイベントが発生したら、始めに「戻す可能性がある」プロパティや変数を全て、
ロールバック用の変数に格納しておき、戻す必要が出れば、それを使って戻すとか。

逆に、DBのトランザクションに似た処理を行うなら、処理の途中で情報を
直ちに反映させるんじゃなくて、例えば何かのテキストを変更する処理なら
いきなりControl.Textを変更するんじゃなく、内部変数（私はtmpStr as Stringとか、よく使いますが）で
処理を行い、最終的にOKであれば、そこで初めてControl.Textに内部変数からStringをセットするとか。

何にせよ、多少力業っぽくなってしまうのは仕方ないような気もします。

お礼

>いきなりControl.Textを変更するんじゃなく、
>内部変数（私はtmpStr as Stringとか、よく使いますが）で
>処理を行い、最終的にOKであれば、そこで初めてControl.Textに
>内部変数からStringをセットするとか。

なるほど！
この考え方を利用させていただきました。
ありがとうございます、無事に解決できました。

回答No.1

perse

エラーが出た(出した)ときに見た目を初期状態に戻したいということでしょうか？
それとも済んでしまった処理を無かったことにしたいということでしょうか？

多分前者だと思うのですが、それならメッセージを出した後に初期状態に戻す命令をしてやれば良いだけです。例えば、

Try
Dim test As Integer
test = 5
If test > 1 Then
Throw New IndexOutOfRangeException("エラー")
Else
MsgBox("エラーではない")
End If
Catch aex As IndexOutOfRangeException
MsgBox(aex.Message)
Me.TextBox1.Focus()　　’フォーカスをテキストボックスに
Form1_Load(Me, New EventArgs())　　'フォームロードの関数を呼ぶ
End Try

という感じです。
このままかいて質問者さんのやりたいようになるとは思いませんが、私の言いたいことはわかるかと思います。
「あの時の状態」に戻したいというのであれば、「あの時の状態」を変数や、クラスなどに持って置いて、
エラー後に戻す処理を記述しておけばいいのです。

後者の場合はちょっと厄介です。
テキストに文字を追加して保存してしまった後に無かったことにしたい、と言われればもう一度開いて追加した部分を削除するしかありません(といっても追加した部分以外を上書き保存ですが)。
そういう取り消しが難しい処理は普通エラーが起きるような処理が終わった後にやりますね。

お礼

回答ありがとうございます。
方向的には後者のようなことを実現したいのですが、
やはりちょっと厄介なようですね…。