テキストボックスの内容を
replaceか何かで変換させたいことがよくあります。
textbox.text = textbox.text.replace( "何かを" , "なにかに" )
こんな感じに・・
でも、これ（内容前入れ替え）をやるとUNDOが効かなくなります。
というわけで、ちょっとした工夫でUNDOさせる方法です。
と言っても単純で
一つ変数を用意しておいて、
UNDOデータをとっておくだけです。
UNDODATA = textbox.text ' ← 置き換えの直前に変数にセット
textbox.text = textbox.text.replace( "何かを" , "なにかに" )
こうしてとっておいて
If textbox.CanUndo Then
textbox.Undo()
textbox.ClearUndo
Else If not UNDODATA = "" Then
textbox.Text = undo_ex
UNDODATA = ""
End If
こんな感じで、結構簡単。
CanUndoがＴｒｕｅならそのまま使えばいいし
前置き換えするとFalse になるのでその場合だけ変数内容を使えばいいだけ。
＃ テキストの一部だけを編集とかできるのかな？今のとこと分からない・・・
--- スポンサードリンク ---
