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

我试图在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（）

方法时，效果很好

---

你能帮忙吗？

什么是

mydata

？我认为您要删除：

TextBox1.Text = mydata

并将toto分配更改为：

toto = Asc(TextBox1.Text)

---

我认为这是错误的做法：

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

---

我已经尝试过了，但出现了以下错误：参数“String”的长度必须大于零。必须首先检查文本框中是否有值。在编程中，您需要进行大量的空检查。当我将其更改为：mydata=TextBox1时，这项功能非常有效。Text非常感谢你们两位。