Visual Basic - Rich TextBox

[Ronsan]

Jag har ett problem som jag skulle bli jäkligt glad om någon hjälpte mig med det.

Det är så att jag gör ett program som sparar textfiler, alltså, om jag skriver in nått och trycker på en knapp så sparas det i en textfil. Men problemet är att omjag ska skriva in någonting igen, så är ju det gamla borta. Jag vill ju ha allting i rader efter varandra, jag har försökt och mekat och mixtrat ett tag nu.

Men jag hajar inte ändå...

 

Vore hygglo om någon hjälpte mig..

 

MVH. Ronnie Långsjö

[Marvin]

Hejsan,

om jag har fattat det rätt så är det följande kod du är ute efter. (VB6.0 SP3).

 

Private Sub cmbOpen_Click()

Dim FileNumber As Integer

Dim Text As Variant

FileNumber = FreeFile

comdlg.ShowOpen

Open comdlg.FileName For Input As #FileNumber

Input #FileNumber, Text

Close #FileNumber

Form1.RichTextBox.Text = Text

End Sub

 

Private Sub cmbSave_Click()

Dim FileNumber As Integer

FileNumber = FreeFile

comdlg.ShowSave

Open comdlg.FileName For Output As #FileNumber

Write #FileNumber, Form1.RichTextBox.Text

Close #FileNumber

End Sub

 

Hoppas att det ska hjälpa, annars får du höra av dig igen!!

/Anders