Ich habe ein Programm erstellt, das, wenn Sie einen Text eingeben, in einer Textdatei in Visual Basic 2010 Express gespeichert wird, aber ich bleibe bei etwas hängen.So fügen Sie die Funktion "Enter" hinzu
So zu platzieren, wenn ich auf ENTER drücken, dass es zu gespeichert werden?
Imports System.IO
Public Class Form1
Dim a As StreamReader
Dim b As String
Dim c As String = "C:\temp\notedb.txt"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not File.Exists(c) Then
Dim d As FileStream
d = File.Create(c)
d.Close()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = Nothing Then
MsgBox("Enter a note to be saved!")
Else
File.AppendAllText(c, TextBox1.Text & vbCrLf)
TextBox1.Text = ""
MsgBox("Note Saved!", MsgBoxStyle.Information, "Saved")
ReadFile()
End If
End Sub
Private Sub ReadFile()
Try
ComboBox1.Items.Clear()
a = File.OpenText(c)
While a.Peek <> -1
b = a.ReadLine()
ComboBox1.Items.Add(b)
End While
a.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
Vielen Dank für Ihre Antwort Luke! Ich habe das gegoogelt aber keine gute Lösung gefunden ... Deshalb habe ich hier gefragt :) – Nels1214