Question

vb keypress事件怎么触发？

Dim x%, y%, z%
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim c$
c = Chr(keyscii)
If UCase(c) >= "A" And UCase(c) <= "Z" Then
x = x + 1
ElseIf c >= "0" And c <= "9" Then
y = y + 1
Else
z = z + 1
End If
If keyscii = 13 Then
Print x, y, z
End If
End Sub

我不知道怎么触发这个事件，求指导！

Answer 1

keyscii写错了，少了A

Dim x%, y%, z%
Private Sub Text1_KeyPress(KeyAscii As Integer)
    Dim c$
    c = Chr(KeyAscii) 
    If KeyAscii = 13 Then'如果回车不想计算在内的话，就放在前面
        Print x, y, z
        Exit Sub
    End If
    If UCase(c) >= "A" And UCase(c) <= "Z" Then
        x = x + 1
    ElseIf c >= "0" And c <= "9" Then
        y = y + 1
    Else
        z = z + 1
    End If
End Sub

追问

改过来 然后再text里输入还是没反应啊，怎么触发这个事件呀？
我是照着课本上打的！

追答

检察一下按钮名有没有写错，看看name属性是不是Text1。附件打开看看。