导航
sbiw88
实时显示 TEXTBOX 控件中的字符个数
2022-08-03 8 2058

我的窗口中有 TEXTBOX1、TEXTBOX2 两个控件,我想在 TEXTBOX2 中实时显示 TEXTBOX1 中的字符个数:

Private Sub TextBox1_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating

    Dim zs As Integer = len(Me.TextBox1.value)

    Me.NumericBox2.value = zs

End Sub

以上代码只能在鼠标离开 TEXTBOX1 控件时,在 TEXTBOX2 中才能显示出 TEXTBOX1 中的字符个数,

以上代码放在什么事件中才能在 TEXTBOX2 中实时显示出 TEXTBOX1 中的字符个数呢?

 也就是说:在 TEXTBOX1 中输入 1 个字符,在 TEXTBOX2 中就立马显示数字 1

                   在 TEXTBOX1 中输入 2 个字符,在 TEXTBOX2 中就立马显示数字 2

  • 天问[管理员]
    2022-08-04

    Private Sub TextBox1_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating

       Me.NumericBox2.value = Me.TextBox1.Text.Length 

    End Sub

    0 回复
  • sbiw88
    2022-08-05

    你这个也是要光标离开 TextBox1 之后才能显示字符个数,我是想输入一个字符后光标还在的情况就实时显示。

    天问:

    Private Sub TextBox1_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating

       Me.NumericBox2.value = Me.TextBox1.Text.Length 

    End Sub

    0 回复
  • 天问[管理员]
    2022-08-05

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

    Me.NumericBox2.value = Me.TextBox1.Text.Length     

    End Sub

    0 回复
  • sbiw88
    2022-08-05

    你这样的话, 在 TextBox1 中居然输入不了任何内容了。

    天问:

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

    Me.NumericBox2.value = Me.TextBox1.Text.Length     

    End Sub

    0 回复
  • 天问[管理员]
    2022-08-05

    经测试 TextBox1输入不受任何影响  你检查一下 你的代码里面是不是受其他事件或属性的影响

    0 回复
  • sbiw88
    2022-08-05

    NumericBox2 与 TextBox1 分绑定了 table1 中的两个字段,只有 Me.NumericBox2.value = Me.TextBox1.Text.Length

     这一句代码,无其它代码。

    天问:

    经测试 TextBox1输入不受任何影响  你检查一下 你的代码里面是不是受其他事件或属性的影响

    0 回复
  • sbiw88
    2022-08-05

    NumericBox2 与 TextBox1 分别绑定了 table1 中的两个字段,我将 NumericBox2 的绑定解除,然后就能在 TextBox1 中输入内容了,且还能实时显示字符个数。

    sbiw88:

    NumericBox2 与 TextBox1 分绑定了 table1 中的两个字段,只有 Me.NumericBox2.value = Me.TextBox1.Text.Length

     这一句代码,无其它代码。

    天问:

    经测试 TextBox1输入不受任何影响  你检查一下 你的代码里面是不是受其他事件或属性的影响

    0 回复
  • 天问[管理员]
    2022-08-05

    变通一下 

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

    me.table(绑定表).CurrentRow(绑定字段) = Me.TextBox1.Text.Length     

    End Sub

    0 回复