Visual Basic Forum

lool_ · Tutorial Leser Anmeldedatum: 27.07.2007 Beiträge: 67

Hallo Leute

Wie kann ich aus einer txtbox(multiline,locked) ein bestimmtes Satz löschen ?
Indem ich eine checkbox ein und ausmache.
Also ich mein das so wenn ich checkbox aktivivire dann soll er die 3 zeilen in der txtbox wieder geben aber wenn ich die checkbox wieder ausmache dann soll er nur
"hallo wie gehts?" entfernen z.B

checkbox an :
Hallo wie gehts ?
wie alt bist du ?
was machst du?

checkbox aus :
Hallo wie gehts ? <---- entfernen
wie alt bist du ? <----soo lassen
was machst du? <so lassen

TheCoder_ · Verfasst am: 08.10.2007, 15:36

schreib ganz oben da wo apis hinkommen zb. private text() as string oder in nem modul heißt es dann glaub ich public
dann machste iwo wos gerade passt:
text = split(text1.text,vbcrlf
dann wird der text nach jedem zeilenumbruch getrennt und in einen array gespeichert.
dann wäre zb. die erste zeile text(0) die zweite text(1) usw.
ausgeben kannste dann mit
for i = 1 to Ubound(text)
Text1.text = Text(i)
next i
heißt er würde bei 1 anfangen auszugeben also erst ab der zweiten zeile.

lool_ · Tutorial Leser Anmeldedatum: 27.07.2007 Beiträge: 67

Ja ok danke
war mein fehler habs net dazu geschrieben und wenn ich z.B die 1 zeile lassen will und die 2 entfernen und die 3 dann wieder lassen? wie das dann ?

TheCoder_ · Verfasst am: 08.10.2007, 16:32

dann entweder alle einzeln adden also
text1.text = text1.text & text(1) & vbcrlf & text(5)
oder in der schleife mit if das i abfragen
also in der for next schleife:
If i = 1 Or i = 3 or i = 878 then
Next i
End If
Ka ob man das mit dem next i so schreiben kann falls nich einfach leer lassen und dann else Text1.text = text1.text & text(i)

lool_ · Tutorial Leser Anmeldedatum: 27.07.2007 Beiträge: 67

hmm sry hatte keine zeit zurück zuschreiben okay ich habs versucht aber i-wi klappts net.

ich hab stehen :

Dim Text() as String
Text = Split(txt1.text,Vbcrlf)

dann muss ja jede zeile Text(0),Text(1) usw. heisen
und hmm z.B kann ich es doch so anwenden

Private Sub cmd_1_Click()
Text(0) = "Hallo!"
Text(1) = "Wie gehts?"
End sub

Private Sub cmd_2_Click()
Text(0) =""
End sub

aber will bei mir net gehen =(

mfg lool

The-God-of-all_ · Verfasst am: 10.10.2007, 15:57

lool_ · Tutorial Leser Anmeldedatum: 27.07.2007 Beiträge: 67

hmm ja und wie macht man das wenn ich fragen darf ? und mit welcher funktion ?

The-God-of-all_ · Verfasst am: 10.10.2007, 16:21

The Coder hat doch schon geschrieben, dass du das dann mit einer Schleife wieder zusammensetzen sollst.

Hier mal ein Beispiel:
[vb:1:2ee96f3baa]Private Sub Command1_Click()
Dim i 'Zählvariable für die Schleife Deklarieren
Dim Text() As String 'Variable in die die Kopie gespeichert werden soll deklarieren
Text = Split(Text1.Text, vbCrLf) 'In das Array Text den Inhalt von der Textbox speichern (vorher mit Split an den Zeilenumbrüchen trennen)

Text(0) = "" 'Veränderungen an den Zeilen vornehmen (1. Zeile löschen)

Text1.Text = "" 'Inhalt der Textbox löschen

For i = 0 To UBound(Text)
If i > 0 Then Text1.Text = Text1.Text & vbCrLf 'Zeilenumbrüche einfügen
Text1.Text = Text1.Text & Text(i) 'Text Zeilenweise wieder in der Textbox einfügen
Next i
End Sub
[/vb:1:2ee96f3baa]

Du solltest dir mal die verwendeten Funktionen anschauen weil wenn du das nur Kopierst bringt das nichts.

//Edit: Änderung der Funktion, ab jetzt wird nicht mehr immer hinter der letzten Zeile eine Leerzeile eingefügt

lool_ · Tutorial Leser Anmeldedatum: 27.07.2007 Beiträge: 67

Danke erst =)

und C&P mag ich nicht gerne nur wenn ichs garnet kapiere und ich hab noch gerade was von einer jon-funktion gelesen die auch so arrays wieder zusammenfuegt.

ich werds mir mal angucken ;D