質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.91%

起動時にフォーカスされるMaskedTextBoxを選択状態にしたい。

解決済

回答 1

投稿

  • 評価
  • クリップ 0
  • VIEW 167

Umeda2019

score 11

起動時に「開始日」という項目にカーソルがフォーカスされる仕組みを作成しています。
「開始日」などには下記の通り起動した日の月始めや最終日が表示されています。

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '操作当日の年月だけの表示とします。
        Dim 日付 = DateTime.Now

        '処理する月の初日をセット
        日付 = New Date(日付.Year, 日付.Month, 1) '指定年月での最初日
        開始日.Text = 日付

        '処理する月の末日をセット
        日付 = New Date(日付.Year, 日付.Month, 1) '指定年月での最初日
        日付 = 日付.AddMonths(1).AddDays(-1)      '次月の1日前を計算
        終了日.Text = 日付

    End Sub

カーソルは「開始日」に来ているのですが、選択状態で起動したいのです。

なお、起動後にカーソルを移動させたときに選択状態になるコードは様々なサイトを探(サイト名は失念しました)し、下記の通り上記のコードの下に記載しています(こちらは狙い通りに選択状態となっています)。

    Private m_bFlag As Boolean = False

    ' Enterイベント
    Private Sub 開始日_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 開始日.Enter
        開始日.SelectAll()
        If Control.MouseButtons <> Windows.Forms.MouseButtons.None Then
            m_bFlag = True
        End If
    End Sub

    ' MouseDownイベント
    Private Sub 開始日_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 開始日.MouseDown
        If m_bFlag Then
            開始日.SelectAll()
            m_bFlag = False
        End If
    End Sub

    Private m_bFlag2 As Boolean = False

    Private Sub 終了日_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 終了日.Enter
        終了日.SelectAll()
        If Control.MouseButtons <> Windows.Forms.MouseButtons.None Then
            m_bFlag2 = True
        End If
    End Sub

    Private Sub 終了日_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 終了日.MouseDown
        If m_bFlag2 Then
            終了日.SelectAll()
            m_bFlag2 = False
        End If
    End Sub

    Private m_bFlag3 As Boolean = False

どのようなコードを書けばよいでしょうか。よろしくお願いします。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 1

checkベストアンサー

+1

フォームのShownイベントにてSelectAllしてはどうでしょう?

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2020/07/03 15:20

    ありがとうございます。
    その通りでした。
    下記のコードを質問時の二つのコードの間に記載しました。

    ' Shownイベント・ハンドラ
    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Shown
    開始日.SelectAll()
    End Sub

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.91%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る