Question

我试图在vb.net中编写一个非常简单的程序来显示特定字符的ASCII代码。我有一个带有文本框，按钮和标签的表单，使用文本框中的输入来获取ascii，然后将其显示在标签中。

以下是代码：

Public Class Form1

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

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim mydata As Char
    TextBox1.Text = mydata
    Dim toto As Short
    toto = Asc(mydata)
    Label1.Text = toto
End Sub

End Class

当我单击按钮时，我在标签中得到0而不是正确的ASCII，但是当我使用固定字符填充asc()方法时，它工作正常。

你能帮忙吗？

Answer 1

什么是mydata？我想你要删除：

TextBox1.Text = mydata

并将toto分配更改为：

toto = Asc(TextBox1.Text)

Answer 2

我认为这是错误的方式：

TextBox1.Text = mydata

应该是

mydata = TextBox1.Text

然而，正如Crowcoder所说，完全删除变量的使用

你可以直接砍下来：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Label1.Text = Asc(TextBox1.Text)
End Sub

将字符转换为ascii的简单应用程序

2 个答案: