首先text1清空,你可以用TextBox1.Text = ""
然后让Text1有光标,你可以用TextBox1.Focus()
这两句都可以加载ListBox1.Items.Add(TextBox1.Text)后面(这段代码之前最好判断一下text1的内容)
在窗口上加入一个SaveFileDialog
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SaveFileDialog1.Filter() = "文本文件|*.txt"
SaveFileDialog1.ShowDialog()
End Sub
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyValue = Keys.Enter Then
For i = 0 To ListBox1.Items.Count - 1 ''将textbox1的内容和listbox1里所有内容对比
If TextBox1.Text = ListBox1.Items.Item(i) Then ''如果有相同的就退出sub
TextBox1.Text = ""
TextBox1.Focus()
Exit Sub
End If
Next
If TextBox1.Text <> "" Then ListBox1.Items.Add(TextBox1.Text)
TextBox1.Text = ""
TextBox1.Focus()
End If
End Sub
Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
Microsoft.VisualBasic.FileIO.FileSystem.WriteAllText(SaveFileDialog1.FileName, "", False)
For i = 0 To ListBox1.Items.Count - 1
Microsoft.VisualBasic.FileIO.FileSystem.WriteAllText(SaveFileDialog1.FileName, ListBox1.Items(i) & vbCrLf, True)
Next
End Sub
温馨提示:内容为网友见解,仅供参考