Question

vb简单问题 求大神们帮帮忙

要做一个Keypress, 文本框显示该键的ASCII码值
Public Class Form1
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

End Sub
Private Sub TextBox1_KeyPress(KeyAscii As Integer)
TextBox1.Text = "的ASCII为" & KeyAscii
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

End Sub
End Class
我用vs2012做的 不知道怎么做 求大神指点一下

Answer 1

    Public KeyAscii As Integer

    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        KeyAscii = Asc(e.KeyChar)
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        TextBox1.Text = "的ASCII为" & KeyAscii
    End Sub

VB.NET和VB6.0不一样，KeyPress获取到的是字符型，需要用Asc转换

Answer 2

vb6.0做的 你改改
Dim t As Integer
Private Sub Text1_Change()
Text1.Text = "的ASCII为" & t
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
t = KeyAscii
End Sub