Question

I’m Visual Basic beginner, yesterday i wrote a dictionary that give you the opposite of the entered word, so i designed the form to look like this

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

by the way i made a two list boxes as databases so the code will compare if the textbox1.text = listbox1.text then it will command textbox2 to append the value of the listbox : textbox2.appendtext(listbox2.text) but nothing happens
my code:

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

End Class
the point of the code is ok cuz yesterday i finished the coding and the programs works fine but i forget to save it so i coded again and every thing above happens
this is the yesterday program

http://www.mediafire.com/?tavne7xjyth7y7v
virustotal link:
https://www.virustotal.com/file/1d39429ae1498a744e1556188b7e8914526b7e2fbb2d4904c2b4ea22fb278dc7/analysis/1346676641/

Answer 1

Initially you are setting the textbox text to “ListBox” without choosing anything specific so it is calling ToString() on the listbox which is why you get that.

I would change the method so that you have a Dictionary variable like so:

  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

Call add from your event and then Translate from your translate event. You should then get your output as intended, still add them to the listboxes if you want to display to the user but handle the translation in the code behind through a dictionairy object.

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