VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

TextBoxのCtrl+A(すべて選択)について(VB6.0)_1 ( No.1 ) 　[親スレッドへ]

日時： 2011/04/05 10:34
名前： 花ちゃん: * カテゴリー：[テキストボックス]
-----------------------------------------------------------------------------------
Re: TextBoxのCtrl+Aについて - 花ちゃん  2005/10/01-08:55 No.4549
-----------------------------------------------------------------------------------
オーソドックスにやるならこんな感じでしょうか？

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