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

No34039 の記事


■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ではどこのテキストをチェックしてるのか取得できませんよね?

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

違反を報告
返信 削除キー/


Mode/  Pass/


- Child Tree -