-2

私はVisualBasicの初心者です。昨日、入力した単語の反対の辞書を作成したので、次のようにフォームを設計しました。

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

ちなみに、データベースとして2つのリストボックスを作成したので、コードは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/?tavne7xjyth7y7vviraltotal リンク: 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

イベントから add を呼び出してから、翻訳イベントから Translate を呼び出します。次に、意図したとおりに出力を取得する必要があります。ユーザーに表示したい場合はリストボックスに追加しますが、辞書オブジェクトを介してコードビハインドで翻訳を処理します。

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

于 2012-09-03T13:02:59.783 に答える