VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/10/01(Sat) 08:55
投稿者： 花ちゃん
Ｅメール：
ＵＲＬ：
タイトル： Re: 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

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -