リッチテキストボックスの一つ前の処理を正しく表示するには？ (ID:117497)

名前

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

本文 >どのようにすれば、ボタン１を押したときに削除した文字を復活できるのでしょうか？ どこにも書いてないし、誰も言わないけれど、 私は昔からこれはバグではないかと思っています。 が、たぶん「これは仕様です」と言われるで仕様(ダジャレ)。(^^; つまりRichTextBoxのUnDoバッファのクリアータイミングは普通の TextBoxと違うのです。VB.NETでも変わっていません。なぜかな？ どうしてもやりたい場合はSendMessageを使って自分でUnDoバッファを クリアーする事です、とほほ。。。 Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As IntPtr, ByVal wMsg As Long, ByVal wParam As Long, _ ByVal lParam As Long) As Integer Private Const EM_UNDO As Short = &HC7s Private Const EM_EMPTYUNDOBUFFER As Short = &HCDs Private Sub Command1_Click(ByVal sender As System.Object, ByVal _ e As System.EventArgs) Handles Command1.Click RichTextBox1.Undo() End Sub Private Sub RichTextBox1_KeyDown(ByVal sender As Object, _ ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyDown If e.KeyCode = 8 Then 'UnDoバッファのクリアー SendMessage(RichTextBox1.Handle, EM_EMPTYUNDOBUFFER, 0, 0) End If End Sub