Question

我是Visual Basic的初学者，昨天我写了一个字典，给你与输入的单词相反的字样，所以我设计的表单看起来像这样

[网址] http://img651.imageshack.us/img651/6115/errorbp.jpg [URL]

顺便说一下我把两个列表框作为数据库，所以代码将比较textbox1.text = listbox1.text然后它会命令textbox2追加listbox的值：textbox2.appendtext（listbox2.text）但是什么都没发生我的代码：

Public Class Form1

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/

Answer 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

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

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

TextBox1不显示listbox1值

1 个答案: