Vb.net 跟踪文本框文本？
我是VB应用程序的新手。我的基本背景是C。我刚刚安装了VB，并从谷歌和微软帮助中心学习了一些东西。我对我正在做的事情感到很开心，但我有一次在richtext box遇到了麻烦。有没有办法在VB中跟踪Rich textbox文本？这样，当用户点击新行（即enter）时，我可以添加一些文本，当用户点击backspace时，我可以执行一些任务。我如何跟踪richtextbox 我发现Vb.net 跟踪文本框文本？,vb.net,Vb.net,我是VB应用程序的新手。我的基本背景是C。我刚刚安装了VB，并从谷歌和微软帮助中心学习了一些东西。我对我正在做的事情感到很开心，但我有一次在richtext box遇到了麻烦。有没有办法在VB中跟踪Rich textbox文本？这样，当用户点击新行（即enter）时，我可以添加一些文本，当用户点击backspace时，我可以执行一些任务。我如何跟踪richtextbox 我发现 stringer = RichTextBox1.Lines(0) to read lines
stringer = RichTextBox1.Lines(0) to read lines
& vbNewLine for new line
if a = 13; \\ ascii for new line and 8 for backspace
我只是想做一些任务，当用户点击新行，但我无法弄清楚它的条件是什么。和任何良好的链接为vb和文件的vb或其windows应用程序将不胜感激。提前感谢您您需要链接到RichTextBox的按键事件。在此事件中，您可以修改当前行的文本。向行中添加文本的示例代码为：
Private Sub RichTextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyDown
Dim textToAdd As String = " ** text to add **"
'Fire when the Enter key is pressed
If e.KeyCode = Keys.Enter Then
'Get the current cursor position
Dim cursorPos As Integer = RichTextBox1.SelectionStart
'Get the current line index
Dim index As Integer = RichTextBox1.GetLineFromCharIndex(cursorPos)
'Load all the lines into a string array
'This has to be done since editing via RichTextBox1.Lines(index) = "" doesn't always work
Dim lines() As String = RichTextBox1.Lines
'Add the text to the correct line
lines(index) &= textToAdd
'Assign the text back to the RichTextBox
RichTextBox1.Lines = lines
'Move the cursor to the correct position
RichTextBox1.SelectionStart = cursorPos + textToAdd.Length
End If
End Sub
您只需检查是否按了Enter键或BackSpace键，如下所示：
Private Sub RichTextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyDown
Select Case e.KeyCode
Case Keys.Enter
'Do stuff when Enter was pressed
Case Keys.Back
'Do stuff when BackSpace was pressed
End Select
End Sub
请注意，Select Case与C中的开关相同。1。你说的是VB还是VB.NET？2.VB.NET本身没有
RichtTextBox