Question

vb 如何让text中光标停止输入10秒 则触发一个事件

如题
是先输入一段文字，当文字停止输入10后msgbox "您是不是累了"
小弟刚学VB不久，希望各位大侠给段代码
sub timer1_time
msgbox("你是不是累了？")
end sub
sub Textbox1_TextChanged
timer1.enabel=false
timer1.enable=true
end sub
您这样是在TEXT输入第一个字就开始计时
我问的是在TEXT输入多个字符后停止输入开始计时

Answer 1

添加一个 Timer，计时设置 10 秒。在 TextBox_TextChanged 事件中先屏蔽再激活 Timer，这样你不改文本 10 秒后就激发 Timer.Time 或 Tick 事件了

sub timer1_time
msgbox("你是不是累了？")
end sub
sub Textbox1_TextChanged
timer1.enabel=false
timer1.enable=true
end sub

那你就在TextBox_TextChanged 加上
if textbox1.textlenth >= *** then
timer1.enable=true

Answer 2

用一个 Timer 控件不就可以了吗？在 Timer 控件事件中让 text 属性改为不可写，然后到10秒后执行另一个事件

Answer 3

就是LOSSFOCOUS事件里开启定时，定时用TIMER控件，定时十秒，然后定时器触发事件里去做该触发的事件。

Answer 4

在文本框的change事件中，每次内容更改都把计数设为0，重新开始
文本框获取焦点则开始累计，失去焦点则停止累计
Public h As Long
Private Sub Text1_Change()
h = 0
End Sub

Private Sub Text1_GotFocus()
h=0
Timer1.Enabled = True
End Sub

Private Sub Text1_LostFocus()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
h = h + 1
Print h
If h >= 10 Then MsgBox "您是不是累了！"
End Sub

测试，可以达到你的要求

Answer 5

sub timer1_time
msgbox("你是不是累了？")
timer1.enabel=false
end sub
sub Textbox1_TextChanged
timer1.enabel=false
timer1.enable=len(textbox1.text)>0

end sub

Answer 6

很简单 你放个全局变量 Dim JS as integer
一个timer控件 间隔设置为1秒(1000) 在软件启动就将timer启动

timer事件里:
JS = JS + 1
if JS = 10 then
msgbox " 您是不是累了",32
JS = 0
end if

然后在你的Textbox1_TextChanged事件里 JS = 0(表示你一输入东西就清空JS)

试试吧