アンドゥを何回かするには? (ID:74484)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ランレングス？ それ自体よくわからないんですけど…。 でも、8回くらいで済ますつもりだからいいかな？ (MDIのだったら、それだけでそれ以上のメモリを消費するんじゃないかな？…なんて) んー、SelStartとSellengthと、その間にある文章を、Changeイベントごとに変数に保存しておけばいいということでしょうか？ それで、1回ごとにずらしていくと…。 ( Type アンドゥバッファ St As Long ’開始いち Ed As Long ’終了いち tx As String '文章 END Type Dim Buff As アンドゥバッファ Sub Undo() アンドゥの命令=Buff(1) Buff(2)=Buff(1) Buff(3)=Buff(2) Buff(4)=Buff(3) Buff(5)=Buff(4) END Sub Sub UndoSet() Buff(5)=Buff(6) Buff(5)=Buff(4) Buff(4)=Buff(3) Buff(3)=Buff(2) Buff(2)=Buff(1) Buff(1)=Buff(0) END Sub ’Buff(6)にはすべて0か""Buff(0)には今のChangeの情報 こんなかんじですかねぇ？ ) でも、これをどうやって使うんですか？ 消した文字の復帰はいいとしても、その逆は？