-2

我是 Visual Basic 初学者，昨天我写了一本字典，给你输入的单词的反义词，所以我设计了这个表格

[url]http://img651.imageshack.us/img651/6115/errorbp.jpg[url]

顺便说一句，我将两个列表框作为数据库，因此代码将比较 textbox1.text = listbox1.text 那么它将命令 textbox2 附加列表框的值： textbox2.appendtext(listbox2.text) 但我什么也没发生代码：

公开课形式1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub TnsBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If TextBox1.Text = TextBox3.ToString Then
        TextBox2.AppendText(ListBox2.Text)

    ElseIf TextBox1.Text = TextBox4.Text Then
        TextBox2.AppendText(ListBox1.ToString)


    End If
End Sub

Private Sub AddBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    ListBox1.Items.Add(TextBox3.Text)
    ListBox2.Items.Add(TextBox4.Text)
End Sub

结束类，代码点没问题，因为昨天我完成了编码，程序运行良好，但我忘记保存它，所以我再次编码，上面的每件事都发生了这是昨天的程序

http://www.mediafire.com/?tavne7xjyth7y7v 病毒总链接： https ://www.virustotal.com/file/1d39429ae1498a744e1556188b7e8914526b7e2fbb2d4904c2b4ea22fb278dc7/analysis/1346676641/

4

1 回答 1

1

最初，您将文本框文本设置为“ListBox”而不选择任何特定内容，因此它在列表框上调用 ToString()，这就是您得到它的原因。

我会更改方法，以便您有一个 Dictionary 变量，如下所示：

  Public Sub Translate(input As String)
    TextBox2.Text = OppositeDictionaires(input)
  End Sub
  Public OppositeDictionary As New Dictionary(Of String, String)
  'Call as Add(TextBox3.Text, TextBox4.Text)
  Public Sub Add(input As String, opposite As String)
    OppositeDictionary.Add(input, opposite)
  End Sub

从您的事件调用添加，然后从您的翻译事件调用翻译。然后，您应该按预期获得输出，如果您想向用户显示，仍将它们添加到列表框中，但通过字典对象处理后面代码中的翻译。

http://msdn.microsoft.com/en-us/library/xfhwa508.aspx

于 2012-09-03T13:02:59.783 回答