∇　アンドゥ機能を付ける　∇

　　　　　　　　　　　　　　　　　　　　　　　　　 やっぱアンドゥ機能が付いていないテキストエデッタは使う気
　　　　　　　　　　　　　　　　　　　　　　　　にはならないでしょう?ぜひアンドゥ機能を付けましょう。　　　　　　　　
　
　　　　　　　　　　　　　　　　　　　　　　　　　良くあちこちのBBSで質問を見かけますので、載せてみる
　　　　　　　　　　　　　　　　　　　　　　　　事にします。APIのSendMessageを使ってEM_UNDOを送って
　　　　　　　　　　　　　　　　　　　　　　　　やれば可能ですが、一回しかUNDO出来無いのでそれ以上
　　　　　　　　　　　　　　　　　　　　　　　　を望むならば、変数に記憶させておくなどの方法が必要です。
　　　　　　　　　　　　　
　　　　　　　　　　　　　
　　　　　　　　　　　　　　　

　　　　　　　　　　　　　　　　　　　　　　　　　APIビュアーを見ると、宣言はこんな感じですね。

　　　　　　　　　　　　　Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
　　　　　　　　　　　　　　　　　　　　(ByVal hwnd As Long, _
　　　　　　　　　　　　　　　　　　　　ByVal wMsg As Long, _
　　　　　　　　　　　　　　　　　　　　ByVal wParam As Long, _
　　　　　　　　　　　　　　　　　　　　lParam As Any) As Long
　　　　　　　　　　　　　Private Const EM_UNDO = &HC7

　　　　　　　　　　　　　　　　　　　　　　　　 hwndには対象となるコントロールのhwndを
　　　　　　　　　　　　　　　　　　　　　　　　 wMsgにはEM_UNDOを
　　　　　　　　　　　　　　　　　　　　　　　　 wParamとlParamはSDKを見ると
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　|wParam = 0; // not used; must be zero
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　|lParam = 0; // not used; must be zero
　　　　　　　　　　　　　　　　　　　　　　　　 となっています。つまりwParamとlParamは使われないので0　　　
　　　　　　　　　　　　　　　　　　　　　　　にしなさいという事です(そうですよね?)

　　　　　　　　　　　　　　　　　　　　　　　　　対象をTextBoxとするならこんな感じでしょう。

　　　　　　　　　　　　　Dim ret As Long
　　　　　　　　　　　　　ret = SendMessage(Text1.hwnd, EM_UNDO, 0, 0)　　
　
　　　　　　　　　　　　　　　　　　　　　　　　　ん、完了。使いやすいアプリを作ってくださいね。　　

1999 Copyright(C) Manabu
1999-00 Manabuの部屋 http://www.manabu.uni.cc/
この文章の無断転際を禁じます

Gポイントポイ活　Amazon Yahoo 楽天

無料ホームページ 楽天モバイル[UNLIMITが今なら1円] 海外格安航空券 海外旅行保険が無料！