リッチテキストボックスの削除（？） への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 bz9  (中学生) 投稿日時 2011/12/3 22:16:55
コードを少し短くして見ました。


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _

        Handles Button1.Click



        'リッチテキストボックスのテキストは 

        'リッチテキストボックスのテキストの　1文字目から　(テキストの長さ - 2)文字まで 

        RichTextBox1.Text = Microsoft.VisualBasic.Left _

            (RichTextBox1.Text, _

             RichTextBox1.Text.Length - 2)



    End Sub


説明が下手くそですね。　ごめんなさい
0
投稿者 bz9  (中学生) 投稿日時 2011/12/3 22:10:38
こんな感じでよろしいでしょうか。

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _

        Handles Button1.Click



        Dim Text As String

        'Text変数にリッチテキストボックスの最後から２つの文字を入れる 

        Text = Microsoft.VisualBasic.Right(RichTextBox1.Text, 2)

        'リッチテキストボックスのテキストを置き換える 

        RichTextBox1.Text = Replace(RichTextBox1.Text, Text, "")



    End Sub


多分、これ以外に　もっといい方法があると思いますが・・・
0
投稿者 JF1JAPAN  (中学生) 投稿日時 2011/12/3 13:44:42
リッチテキストボックスとボタンを配置して、ボタンが押されたらリッチテキストボックスの文字を最後から2文字削除（バックスペースみたいに）するコードを作りたいのですが、よく分かりません。
具体的なコードなどお教えいただければと思っています。

VB2010を使用しています。
0