Question

我创建了一个程序，如果你在其中放入一个文本将被保存在Visual Basic 2010 Express中的文本文件中，但我被困在某些东西上。

如果我按下 ENTER ，如何保存它也将被保存？

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

Answer 1

我认为你的意思是当焦点在文本框中时按Enter键... 在你的情况下TextBox1！

首先，您需要针对该文本框创建一个按键事件： 1）返回表单编辑器。 2）单击TextBox1。 3）在属性网格上单击Lightning图标，如果突出显示事件标签，则会显示该标签。 4）现在双击Key Down，Key Up或Key Press事件。 5）这将再次带您进入代码编辑器，您应该进入TextBox1的上述事件之一。现在你必须确定用户按下的是什么键！一个） If e.KeyChar = Keys.Enter Then 'Place your code here to save. End If

也只是对此提出一些建议，你会发现在提出问题之前做一些研究会对你有利！例如，使用诸如“VB.Net Detect Enter Key”之类的简单问题快速搜索以“ogle”结尾的知名搜索引擎引擎将回答您的问题！

希望以上内容有所帮助，请将此标记为答案，如果它解决了您的问题，以帮助其他人快速找到解决方案！

路

如何添加Enter功能

1 个答案: