我是 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/