none
textbox_changed事件 RRS feed

  • 问题

  • Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    ‘   当textbox1.text>0 和textbox1的值产生变化时才执行语句(必须满足两个条件才执行语句)。应该怎样写?    

    End Sub
    2011年2月27日 0:51

答案

  • 你好

    如果你使用 LEAVE 這個EVENT 

    你可以嘗試打textbox1.text 的內容寫到一個variable  上

    之後

    private TempVariable as String = "tempvariable"

     Private Sub textBox1_Leave(sender As Object, e As System.EventArgs) Handles textBox1.Leave
     ' Reset the colors and selection of the TextBox after focus is lost.
     if textbox1.text = TempVariable then
    msgbox ("they are the same")
    else
     if isnumeric(textbox1.text) andalso textbox1.text >0 then
    '' action
    end if
    end if
     End Sub 'textBox1_Le

    Please correct me if my concept is wrong

     


    Chi
    • 已标记为答案 ckjason 2011年2月27日 15:58
    2011年2月27日 11:10
    版主

全部回复

  • 如果是你所说的,那么事件可以改为回车事件,等到输入完成,敲击回车后,在进行判断:

    <1> : 判断大于0,可以用val()函数将文本信息转化为数字类型.

    <2> : 见下面的事件

    Private Sub TextBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Enter

    End Sub

    2011年2月27日 5:07
  • 你好

    或者你可以使用 IF STATEMENT 去看看但輸入的是不是數量 之後再做一個IF STATEMENT

    E.G.

     

     

    Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    ‘   当textbox1.text>0 和textbox1的值产生变化时才执行语句(必须满足两个条件才执行语句)。应该怎样写?    
    if isnumeric(textbox1.text) andalso textbox1.text >0 then
    '' action
    end if
    End Sub

    或者可以用 LEAVE EVENT
    E.G.
     Private Sub textBox1_Leave(sender As Object, e As System.EventArgs) Handles textBox1.Leave
        ' Reset the colors and selection of the TextBox after focus is lost.
        if isnumeric(textbox1.text) andalso textbox1.text >0 then
    '' action
    end if End Sub 'textBox1_Le

    這便只會在當你完成輸入..離開 textbox1時才會 執行的

    Please correct me if my concept is wrong


    Chi
    • 已标记为答案 ckjason 2011年2月27日 9:49
    • 取消答案标记 ckjason 2011年2月27日 9:52
    2011年2月27日 8:25
    版主
  • 你好

    或者你可以使用 IF STATEMENT 去看看但輸入的是不是數量 之後再做一個IF STATEMENT

    E.G.

     

     

    Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    ‘   当textbox1.text>0 和textbox1的值产生变化时才执行语句(必须满足两个条件才执行语句)。应该怎样写?    
    if isnumeric(textbox1.text) andalso textbox1.text >0 then
    '' action
    end if
    End Sub

    或者可以用 LEAVE EVENT
    E.G.
     Private Sub textBox1_Leave(sender As Object, e As System.EventArgs) Handles textBox1.Leave
      ' Reset the colors and selection of the TextBox after focus is lost.
      if isnumeric(textbox1.text) andalso textbox1.text >0 then
    '' action
    end if End Sub 'textBox1_Le

    這便只會在當你完成輸入..離開 textbox1時才會 執行的

    Please correct me if my concept is wrong


    Chi
    随便一问,如果textbox1的值和之前是一样的又该如何写?
    2011年2月27日 9:53
  • 你好

    如果你使用 LEAVE 這個EVENT 

    你可以嘗試打textbox1.text 的內容寫到一個variable  上

    之後

    private TempVariable as String = "tempvariable"

     Private Sub textBox1_Leave(sender As Object, e As System.EventArgs) Handles textBox1.Leave
     ' Reset the colors and selection of the TextBox after focus is lost.
     if textbox1.text = TempVariable then
    msgbox ("they are the same")
    else
     if isnumeric(textbox1.text) andalso textbox1.text >0 then
    '' action
    end if
    end if
     End Sub 'textBox1_Le

    Please correct me if my concept is wrong

     


    Chi
    • 已标记为答案 ckjason 2011年2月27日 15:58
    2011年2月27日 11:10
    版主