2017-01-13 10 views
0

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 

Antwort

0

Ich nehme an, Sie bedeuten Drücken Sie Eingabe, wenn der Fokus im Textfeld ... TextBox1 in Ihrem Fall ist!

Als Erstes müssen Sie ein Key Press Event für dieses Textfeld erstellen: 1) Gehen Sie zurück zum Formular-Editor. 2) Klicken Sie auf die TextBox1. 3) Klicken Sie im Eigenschaftenraster auf das Lightning-Symbol, um die Event-Beschriftung anzuzeigen, wenn Sie darüber markieren. 4) Doppelklicken Sie jetzt entweder auf Key Down, Key Up oder Key Press. 5) Dies hat Sie wieder zum Code-Editor geführt und Sie sollten in einem der oben genannten Ereignisse für Ihre TextBox1 sein. Jetzt müssen Sie identifizieren, welcher Schlüssel der Benutzer drückt! A) If e.KeyChar = Keys.Enter Then 'Place your code here to save. End If

auch nur einige Ratschläge zu diesem Thema finden Sie, dass einige reasearch tun voraus eine Frage zu fragen, zu Ihren Gunsten sein wird! Zum Beispiel wird eine schnelle Suche in einer bekannten Suchmaschinen-Engine, die mit einer einfachen Frage wie "VB.Net Detect Enter Key" auf "ogle" endet, Ihre Frage beantworten!

Hoffen Sie, dass die oben genannten Hilfen bitte dieses als die Antwort kennzeichnen, wenn es Ihre Frage löst, um anderen zu helfen, die Lösung schnell zu finden!

Luke

+0

Vielen Dank für Ihre Antwort Luke! Ich habe das gegoogelt aber keine gute Lösung gefunden ... Deshalb habe ich hier gefragt :) – Nels1214