DOBON.NETプログラミング道掲示板

■34039 / 親階層)  Function プロシージャからの文字選択
□投稿者/ つまようじ 一般人(1回)-(2018/11/24(Sat) 20:52:56)
  • アイコン環境/言語:[Win10 VB.NET .net4.6.1] 
    分類:[.NET] 

    やりたいこと

    Function プロシージャ内で
    TextBoxのテキストが数字かチェックして数字以外ならば対象のTextBoxにフォーカスを合わせて、文字を全選択状態にしたい


    1.組めたプログラム
    Function側で結果としてTrueかFalseを返すのでそれを元にフォーカスを合わせるタイプ

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If CHK(TextBox1.Text) = False Then
    TextBox1.Focus()
    TextBox1.SelectAll()
    End If

    End Sub


    Function CHK(s As String) As Boolean
    Dim d As Double
    If Double.TryParse(s, d) Then
    Return True
    Else
    MessageBox.Show("数字を入力してください")
    Return False
    End If
    End Function

    ※これを複数のTextBox毎回やると
    If CHK(TextBox***.Text) = False Then
    TextBox***.Focus()
    TextBox***.SelectAll()
    End If
    がいたるところに乱立するのでFunction側でフォーカス合わせて文字の全選択までやりたいです



    2.とりあえず動くけどこれでいいのか?というプログラム
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    CHKObject(TextBox1)
      End Sub


    Function CHKObject(s As Object) As Boolean
    Dim d As Double
    If Double.TryParse(s.text, d) Then
    Return True
    Else
    s.focus()
    s.selectall()
    Return False
    End If
    End Function


    ボタンを押してチェックに行くのでActiveControlではどこのテキストをチェックしてるのか取得できませんよね?

    初心者がプログラム組んでるので色々雑な所が多いかと思いますがアドバイス頂けたら幸いです

マルチポストを報告
違反を報告
削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
親記事 →Re[1]: Function プロシージャからの文字選択 /魔界の仮面弁士
 
上記関連ツリー

Nomalアイコン Function プロシージャからの文字選択 / つまようじ (18/11/24(Sat) 20:52) #34039 ←Now
Nomalアイコン Re[1]: Function プロシージャからの文字選択 / 魔界の仮面弁士 (18/11/26(Mon) 10:17) #34040

All 上記ツリーを一括表示 / 上記ツリーをトピック表示
 
上記の記事へ返信

Mode/  Pass/


- Child Tree -