Mehrzeiliger Input über Textfeld

Computer: Software & Programmierung Visual Basic
#1

Nabend,
Ich habe ein problem mit einem textfeld(Multiline). Dieses Speichert automatisch den Text in eine datei :

ff = FreeFile
Open ProgPath & „QuickNote.txt“ For Output As #ff
Print #ff, Text1.Text
Close #ff

Soweit so gut…Lesen passiert über:

Open ProgPath & „QuickNote.txt“ For Input As #ff
Input #ff, textx1
Close #ff
Text1.text = textx1

Wenn ich aber ein Zeilenumbruch in den Text einfüge (mit Enter) wird nur der Text bis zum manuellen Zeilenumbruch in die Datei geschrieben.
Schreibe ich den Text komplett Ohne Enter wird auch alles in das File geschrieben. Ich würde aber gern leerzeilen mit Enter erzeugen dürfen.

Danke mfg joe

#2

Hallo,

Ich habe ein problem mit einem textfeld(Multiline). Dieses
Speichert automatisch den Text in eine datei :

ff = FreeFile
Open ProgPath & „QuickNote.txt“ For Output As #ff
Print #ff, Text1.Text
Close #ff

OK, völlig in Ordnung.

Soweit so gut…Lesen passiert über:

Open ProgPath & „QuickNote.txt“ For Input As #ff
Input #ff, textx1
Close #ff
Text1.text = textx1

Das ist nicht in Ordnung. :smile:

Wenn ich aber ein Zeilenumbruch in den Text einfüge (mit
Enter) wird nur der Text bis zum manuellen Zeilenumbruch in
die Datei geschrieben.
Schreibe ich den Text komplett Ohne Enter wird auch alles in
das File geschrieben. Ich würde aber gern leerzeilen mit Enter
erzeugen dürfen.

Ja, genau das ist das Problem. :smile:

Versuch’s mal damit:

 Dim txt As String
 Dim ff As Integer
 Dim cnt As Long
 ff = FreeFile
 cnt = FileLen(App.Path & "QuickNote.txt")
 Open App.Path & "QuickNote.txt" For Binary As #ff
 txt = Input(cnt, #ff)
 Close #ff

Gruß, Rainer

#3

Hi Joe,

oder doch:

Open App.Path & "\QuickNote.txt" For Binary As #ff

??? :smile:

Gruß, Rainer

#4

Version 1 scheint gut zu Funktionieren:stuck_out_tongue:

noch kurz etwas anderes:

Ich habe eine Form mit 10 command-buttons,nun möchte ich eine weitere Form anlegen mit den gleichen command-buttons nur in einer anderen Anordnung :confused: gibt es einen anderen weg als alles zu kopieren und anzupassen ?

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#5

Hi Joe,

Version 1 scheint gut zu Funktionieren:stuck_out_tongue:

gut. Ich war unsicher ob Du das zusätzliche Trennzeichen brauchst.

Ich habe eine Form mit 10 command-buttons,nun möchte ich eine
weitere Form anlegen mit den gleichen command-buttons nur in
einer anderen Anordnung :confused: gibt es einen anderen weg als alles
zu kopieren und anzupassen ?

Gleiche Commandbuttons? Gleiche Namen meinst Du? Zehn Buttons würde ich noch nicht mal kopieren, die sind doch schneller auf die Form gelegt, als der Beitrag hier geschrieben. Ich verstehe das Problem nicht. Aber einen Rahmen drum, copy, raste neu anordnen geht natürlich auch auch, außer, daß Du die Namen nicht neu eintippen mußt, gewinnst Du dadurch aber nichts.

Gruß, Rainer

#6

Diese buttons starten über shell"" ein programm.
Ich würde gern mit Form2.Button1 den Form1.Button1 starten.damit ich die ganzen shell befehle nicht ein 2tesmal schreiben muss

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#7

Hi Joe,

Diese buttons starten über shell"" ein programm.
Ich würde gern mit Form2.Button1 den Form1.Button1
starten.damit ich die ganzen shell befehle nicht ein 2tesmal
schreiben muss

OK, das ist ja mit …

Private Sub Command1\_Click()
 Call Form1.Command1\_Click
End Sub

… auch kein Problem.

Aber was hast Du sonst vor? Wozu die Buttons kopieren?

Gruß, Rainer

#8

Hi Joe,

wenn Du die Prozeduren noch öfter aufrufen willst, würde ich die in ein Modul schreiben.

Gruß, Rainer