text 输入问题,求高手指点 - 编程论坛

#2

风吹过b2021-09-04 11:26

表示没看懂。

在 text1 的键盘按下事件中
定义静态变量，初始为0，表示未按过回车键
检测，如果输入的是 vbcr ，那么计数+1
如果计数=1，text2=text1
如果计数=2,text3=text1,计数=0

#3

you1578277152021-09-04 13:11

回复 2楼风吹过b

就是在Text1输入14位的数字,第1次输入14位的数字按回车后, 当前14位数字显示到Text2中 ,然后在Text1中再次输入14位的数字再次按回车后这次输入的14位的数字显示在Text3中.然后一直按这样条件进行
求教了,大佬!

#4

约定的童话2021-09-04 17:44

增加个计数器功能，13579给text2,246810给txt3

#5

时光流逝2021-09-04 18:19

程序代码：

Private Sub Text1_KeyPress(KeyAscii As Integer)
Static EnterNumber As Integer
EnterNumber=EnterNumber+1
If KeyAscii=13 And Len(Text1.Text)=14 Then
    If EnterNumber=1 Then
        Text2.Text=Text1.Text
        Text1.Text=""
    ElseIf EnterNumber=2 Then
        Text3.Text=Text1.Text
        Text1.Text=""
        EnterNumber=0
    End If
End If

#6

风吹过b2021-09-04 20:44

以下是引用时光流逝在2021-9-4 18:19:19的发言：

Private Sub Text1_KeyPress(KeyAscii As Integer)
Static EnterNumber As Integer
EnterNumber=EnterNumber+1
If KeyAscii=13 And Len(Text1.Text)=14 Then
    If EnterNumber=1 Then
        Text2.Text=Text1.Text
        Text1.Text=""
    ElseIf EnterNumber=2 Then
        Text3.Text=Text1.Text
        Text1.Text=""
        EnterNumber=0
    End If
End If

这二行反一下吧！
EnterNumber=EnterNumber+1
If KeyAscii=13 And Len(Text1.Text)=14 Then

变成
If KeyAscii=13 And Len(Text1.Text)=14 Then
EnterNumber=EnterNumber+1

#7

you1578277152021-09-06 10:26

谢谢各位大佬,分数有点少,不好意思了!