| 投稿日 | ： 2005/10/03(Mon) 18:29 |
| 投稿者 | ： allrivertak |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^2: TextBoxのCtrl+Aについて |
> オーソドックスにやるならこんな感じでしょうか？
>
> Option Explicit
>
> Private KeySelectAll As Boolean
>
> Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
> KeySelectAll = False
> If KeyCode = vbKeyA And Shift = vbCtrlMask Then
> If TypeOf Me.ActiveControl Is TextBox Then
> Me.ActiveControl.SelStart = 0
> Me.ActiveControl.SelLength = Len(Me.ActiveControl.Text)
> KeySelectAll = True
> End If
> End If
> End Sub
>
> Private Sub Form_KeyPress(KeyAscii As Integer)
> If KeySelectAll Then
> KeyAscii = 0
> End If
> End Sub
>
> Private Sub Form_Load()
> Me.KeyPreview = True
> End Sub
詳しいサンプルまで示して頂き、ありがとうございます。
確かにこの方法だとすっきりしていいですね。
この方法でアプローチしてみようと思います。
みなさん、有難う御座いました。