RichTextbox Neue Zeile

programmier Freak · 23. September 2015, 14:48

Hallo liebe Com..
Ich habe ein Problem und zwar Versuche ich schon seit einigen Std eine neue Zeile in einer RichTextbox einzufügen.

VB.NET-Quellcode

If TextBox1.Text = "Time" Then
RichTextBox1.Text = (My.Computer.Clock.LocalTime)
End If

Dann Wird der der Befehl aber aus der Richtextbox gelöscht und die Uhrzeit wird angezeigt, Vbnewline und vbCrLf habe ich schon versucht doch es besteht das gleiche Problem. Ich möchte aber das es ungefähr so ist

/Time
20:15:02Uhr

Eine art cmd.

Habe auch schon das probiert...

VB.NET-Quellcode

Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
RichTextBox1.Text = TextBox1.Text
TextBox1.Clear()
RichTextBox1.Text = RichTextBox1.Text & vbCrLf
'RichTextBox1.Text = RichTextBox1.Text & vbNewLine
'RichTextBox1.Text += vbNewLine
End If

Vielen dank im voraus...

ErfinderDesRades · 23. September 2015, 15:08

probierma

VB.NET-Quellcode

Richtextbox1.AppendText(Environment.Newline & Date.Now)

Wenn das erledigt ist, täte ich Visual Studio - Empfohlene Einstellungen empfehlen, weil unter deinen derzeitigen Einstellungen kannst du das Programmieren nicht erlernen.

programmier Freak · 23. September 2015, 15:25

Da werde ich bestimmt mal vorbeischauen...

Aber jetzt klappt das immer noch so richtig wie Ich mir das vorstelle...
Also der Befehl soll über der Ausgabe stehen und wenn ich dann ein neuen befehl eingebe soll der befehl + Ausgabe unter dem anderen stehen.

Also:

Time
20:15
-------
OSName
ComputerXYZ
-------
weitere befehle...

aber danke..

Edit:
Oder sollte ich lieber eine Listbox nehmen?

ErfinderDesRades · 23. September 2015, 15:29

Klappt denn der Code, den ich dir gegeben habe?

programmier Freak · 23. September 2015, 15:30

Ja aber dann steht die Uhrzeit doppelt da.

Vainamo V · 23. September 2015, 15:31

Alle Codes weg, den hier rein:

VB.NET-Quellcode

RichTextBox1.AppendText("Dein Befehl hier" & Environment.NewLine)
RichTextBox1.AppendText("Die Antwort auf den Befehl hier" & Environment.NewLine) 'Hier halt in dem Fall die Uhrzeit (evtl. per Select Case Befehle verarbeiten)
RichTextBox1.AppendText("-------" & Environment.NewLine)

programmier Freak · 23. September 2015, 15:36

Klappt auch nicht so ganz wenn ich ein anderen Befehl eingebe löscht er den ersten...

Vainamo V · 23. September 2015, 15:38

Poste doch bitte mal deinen gesamten Quellcode.

programmier Freak · 23. September 2015, 15:40

Ok
Hier ist er bitte schön

VB.NET-Quellcode

Public Class cmd
Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
RichTextBox1.Text = TextBox1.Text
TextBox1.Clear()
'RichTextBox1.AppendText(Environment.NewLine & Date.Now)
'RichTextBox1.Text = RichTextBox1.Text & vbNewLine
'RichTextBox1.Text += vbNewLine
End If
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
If TextBox1.Text = "Time" Then
RichTextBox1.Text = (My.Computer.Clock.LocalTime)
End If
If TextBox1.Text = "Ping" Then
RichTextBox1.Text = "Internet = " & "[ " & (My.Computer.Network.Ping("www.google.de")) & " ]"
End If
If TextBox1.Text = "Test" Then
RichTextBox1.AppendText("Test" & Environment.NewLine)
RichTextBox1.AppendText((My.Computer.Name) & Environment.NewLine)
End If
End Sub
Private Sub cmd_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class

Vainamo V · 23. September 2015, 15:45

VB.NET-Quellcode

Public Class cmd
Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
RichTextBox1.AppendText(TextBox1.Text & Environment.NewLine)
Select Case TextBox1.Text
Case "Time"
RichTextBox1.AppendText(My.Computer.Clock.LocalTime & Environment.NewLine)
Case "Ping"
RichTextBox1.AppendText("Internet =" & "[ " & My.Computer.Network.Ping("www.google.de") & " ]" & Environment.NewLine)
Case "Test"
RichTextBox1.AppendText("Test" & Environment.NewLine)
RichTextBox1.AppendText(My.Computer.Name & Environment.NewLine)
End Select
TextBox1.Clear()
End If
End Sub
End Class

So müsste es klappen.

programmier Freak · 23. September 2015, 15:54

Danke aber leider Immer noch nicht

ich habe mal ein Video gemacht: youtu.be/IU18NJwMNNM
also es sollen ja alle eingegebenen Befehle stehen bleiben.

Vainamo V · 23. September 2015, 16:01

Ja habe meinen Fehler schon gemerkt, versuche es jetzt noch mal mit dem überarbeiteten Code.

programmier Freak · 23. September 2015, 16:04

Ja jetzt klappt es Danke(war schon am verzweifeln...)

Mono · 23. September 2015, 16:04

Hi.

Das sieht nach einer netten Einsteigerübung aus.
Versuch doch als nächstes alles was bisher mit My.Computer (zB My.Computer.Clock.LocalTime) anfängt mit "richtigen" Klassen und Methoden aus dem .NET Framework zu ersetzen.

LG

programmier Freak · 23. September 2015, 16:11

Hi,
Ich kenne das nur so Also:(My.Computer.Clock.LocalTime())
Bzw. Kannst du mir vielleicht ein Bsp. geben ?

Vainamo V · 23. September 2015, 16:14

z.B. statt My.Computer.Clock.LocalTime() > DateTime.Now.ToShortTimeString()

programmier Freak · 23. September 2015, 16:15

hmm,
Mal sehen wo mit ich besser klaar komme..

ErfinderDesRades · 23. September 2015, 16:20

und nicht vergessen das wichtigste aus post#2: Visual Studio - Empfohlene Einstellungen

Wie gesagt: Das ist überhaupt die Vorraussetzung, dass du programmieren lernen kannst.

programmier Freak · 23. September 2015, 16:22

Hahah Ja danke.

RodFromGermany · 23. September 2015, 16:42

Im RichText kommt ein

Vainamo V schrieb:

VB.NET-Quellcode

Environment.NewLine

nicht vor. Das wirst Du dann merken, wenn Du einen Zeilenumbruch suchst.
Du nimmst besser ein ControlChars.Lf dafür, das kannst Du anhängen, suchen und wirst es auch finden.

RichTextbox Neue Zeile

RichTextbox Neue Zeile

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Vainamo V schrieb:

VB.NET-Quellcode

Tags

Ähnliche Themen

6 Benutzer haben hier geschrieben