tagCANDY CGI VBレスキュー(花ちゃん) - TextBoxのCtrl+A(すべて選択)について(VB6.0) - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
TextBoxのCtrl+A(すべて選択)について(VB6.0)
元に戻る スレッド一覧へ 記事閲覧
このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。)

TextBoxのCtrl+A(すべて選択)について(VB6.0) [No.110の個別表示]
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
日時: 2007/07/21 18:39
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[テキストボックス][][]                                              *
* キーワード:すべて選択,ショートカット,メニュ,TextBox,,                          *
***********************************************************************************

元質問:TextBoxのCtrl+Aについて - allrivertak  2005/09/29-16:10 No.4528
TextBoxコントロールのショートカット処理(Ctrl+A)について質問させて頂きます。
右クリックで現れるメニューの中には「すべて選択」が存在するのに、Ctrl+AではTextBox中の文字列が選択されません。
プロパティ等の設定も見つからなかったのですが、これは仕様なのでしょうか?

-----------------------------------------------------------------------------------
Re: TextBoxのCtrl+Aについて - Starfish  2005/10/01-07:44 No.4548
-----------------------------------------------------------------------------------
 そのフォームにメニューがあって、「すべて選択」のメニューを作って
よいのなら、ショートカットにCtrl+Aを割り当てて、以下のコードで
実現できます。

Private Sub mnuEditSelectAll_Click()

    If TypeOf Me.ActiveControl Is TextBox Then
        Me.ActiveControl.SelStart = 0
        Me.ActiveControl.SelLength = Len(Me.ActiveControl.Text)
    End If

End Sub

メンテ

Page: 1 |

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
メンテ

Page: 1 |

 投稿フォーム               スレッド一覧へ
題  名 スレッドをトップへソート
名  前
パスワード (記事メンテ時に使用)
投稿キー (投稿時 投稿キー を入力してください)
コメント

   クッキー保存   
スレッド一覧へ