-2

我正在尝试按照 Branah Unicode Converter 的方式制作一些东西来解码这样的行，例如：[99,97,108,108,32,99]。http://www.branah.com/unicode-converter。我找到了这个。我猜这个表单有一个文本框和 2 个按钮。一种是使用 Asc 获取文本框的 ASCII 码，另一种是使用 Chr 将文本框中的 ASCII 码转换为字符。

所以，上次我发布这个时，它被关闭了，因为它不是“一个真正的问题”。让我直言不讳。我不知道如何让这个工作。事物的标签非常混乱。我应该将 Text1、Text2、Text3 和 Label 6 声明为什么，因为它给了我未声明它们的错误？我还收到一个错误，即 TextBox1 无法从此行转换为整数：Text2 = Text2 + Chr(TextBox1)。我该如何解决？我不是在进口我应该进口的东西吗？

     Private Sub EncodeButton_Click()

     'Code the character
     TextBox1 = Asc(Text1)
     'clears text box
     Text1 = ""
     ' adds the coded character to the textbox (Textbox1)
     LABEL6 = LABEL6 + "," + TextBox1
     ' set focus to textbox
     Text1.SetFocus
     'decodes the coded character
     Text2 = Text2 + Chr(TextBox1)
   End Sub

      Private Sub DecodeButton_Click()

      'this part decodes the coded number
      TextBox1 = Text3
      Text3 = ""
      LABEL6 = LABEL6 + "," + TextBox1
      Text2 = Text2 + Chr(TextBox1)
      Text3.SetFocus
    End Sub
4

2 回答 2

1

以下是如何使此代码在 VB.NET 中工作：

  • 创建一个新的 Windows 窗体项目。

  • 在项目中有一个表单，打开它并创建以下项目：

    • 三个文本框，分别命名为 Text1、Text2、Text3
    • 两个按钮，分别命名为 EncodeButton 和 DecodeButton
    • 一个名为 Label6 的标签

  • 右键单击解决方案资源管理器中的表单，然后选择“查看代码”。

  • 将以下代码粘贴到代码窗口中：

    Public Class Form1

Private Sub EncodeButton_Click(sender As System.Object, e As System.EventArgs) Handles EncodeButton.Click
    Dim sTextBox1 As String
    sTextBox1 = Asc(Text1.Text)
    Text1.Text = ""
    Label6.Text = Label6.Text & "," & sTextBox1
    Text1.Focus()
    Text2.Text = Text2.Text + Chr(sTextBox1)
End Sub

Private Sub DecodeButton_Click(sender As System.Object, e As System.EventArgs) Handles DecodeButton.Click
    Dim sTextBox1 As Integer

    sTextBox1 = Val(Text3.Text)
    Text3.Text = ""
    Label6.Text = Label6.Text & "," & sTextBox1
    Text2.Text = Text2.Text & Chr(sTextBox1)
    Text3.Focus()
End Sub

End Class

  • 运行项目。

  • 在 Text1 中键入一个字母，然后单击 EncodeButton
  • 在 Text3 中输入一个数字（先尝试 Label6 中出现的数字之一），然后单击 DecodeButton

这应该完成您粘贴的示例旨在完成的所有工作。如果您对这些步骤中的任何一个有困难，我建议您在线查找一个好的 Windows 窗体教程。

于 2013-04-03T01:04:28.740 回答
0

您的部分问题可能是您需要了解像 TextBoxes 这样的控件具有属性和方法。

因此，要从名为 Text1 的文本框中获取值并将其设置为名为 TextBox1 的文本框，您可以这样做：

 TextBox1.Text = Asc(Text1.Text)

如果您输入控件的名称并在之后点击句号（“.”）字符，智能感知将为您提供一个非常有用的属性列表和可以使用的方法。

如果您从其他地方复制了此代码，您可能还需要创建一个表单，并将一些 TextBox 控件拖放到它上面，然后给出与您的代码匹配的名称。

于 2013-04-03T00:34:25.017 回答