元に戻る スレッド一覧へ 記事閲覧

このページ内の検索ができます。(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 |

投稿フォーム　　　　　　　　　　　　　　　スレッド一覧へ 題　　名 スレッドをトップへソート 名　　前 パスワード （記事メンテ時に使用） 投稿キー （投稿時 を入力してください） コメント *********************************************************************************** * カテゴリー：[][][] * キーワード： , , , , , ***********************************************************************************    クッキー保存

スレッド一覧へ