コマンドボタンを使用してバックスペースキーの様な機能を持たすには？

解決

booa 2007-01-05 05:38:31 No: 134758

コマンドボタンを使用してバックスペースキーの様な機能を持たすにはどうしたらいいのか解りません。解る方お願いします。

YAS 2007-01-05 09:09:45 No: 134759

自分自身のテキストボックスの場合，次のようになると思います。
ポイントはコマンドボタンにフォーカスがこないようにすることです。
ボタンを継承して，フォーカスがこないボタンを作成します。
コピー＆ペーストで動作するので試してみてください。(VB2005です。)

Public Class Form1

Dim TextBox1 As New TextBox
Dim WithEvents Button1 As New ExButton

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Button1.Location = New Point(0, 30)
        Me.Button1.Text = "BackSpace"
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Button1)
    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        SendKeys.Send(vbBack)
    End Sub

End Class

Public Class ExButton
Inherits Button

    Sub New()
        Me.SetStyle(ControlStyles.Selectable, False)
    End Sub

End Class

通ってみた 2007-01-06 01:51:16 No: 134760

「最後の文字から１文字戻る」のなら、ボタンのイベントで

Text1 = Left$(Text1, Len(Text1) -1)

とするとか
(VB6)

booa 2007-01-07 10:02:20 No: 134761

YASさん、通ってみたさんありがとうございました。