Hej!!
jag håller på och gör en Texteditor, och jag använder mej av en RichTextBox.
Men när man sparar och sedan öppnar den i Anteckningar så ser det helt konstigt ut.

Nu vill jag göra så att det konstiga försvinner och så klart så undrar jag juh hur man gör och om det går =)

Så om det är nån som vet hur man gör och om det går kan jätte gärna få hjälpa mej.

MVH
//Jonnie

Om du sparar i RTF format måste du öppna filen i en texteditor som stödjer det, vilket Anteckningar inte gör. Du får helt enkelt spara filen i vanligt txt format.

EDIT: Ni får rätta mig om jag har fel, men om du ska ha en texteditor så ska du nog använda RTF för txt formatet stödjer inte så mycket, då menar jag ändra färg och typsnitt osv.

/Micke

Hej,

Testa med det här:

Dim fIndex As Integer

On Error Resume Next
' Open the selected file
If Right$(Filename,3) = LCase(txt) Then
Open Filename For Input As #iFilNr
If Err Then
MsgBox "Can't open file: " + Filename
Exit Sub
End If
' Change the mouse pointer to an hourglass.
Screen.MousePointer = 11

' Change the form's caption and display the new text.
fIndex = FindFreeIndex()
Document(fIndex).Tag = fIndex
Document(fIndex).Caption = UCase(Filename)
Document(fIndex).Text.Text = StrConv(InputB(LOF(1), 1), vbUnicode)
FState(fIndex).Dirty = False
Document(fIndex).Show
Close #1
' Reset the mouse pointer.
Screen.MousePointer = 0
Else:
RichTextBox.LoadFile "C:\Filename"

' lägg till kod


Använd helst FreeFile istället för #1, t.ex.

Dim iFilNr As Integer
iFilNr = FreeFile


Hej igen,

Tänkte fel. Problemet var att spara filen så att du kan öppna den i Anteckningar.
Prova det här:

On Error Resume Next

Dim strContents As String

' Open the file.
If Right$(Filename,3) = LCase(txt) Then
Open Filename For Output As #1
' Place the contents of the notepad into a variable.
strContents = frmMDI.ActiveForm.RTF.Text
' Display the hourglass mouse pointer.
Screen.MousePointer = 11
' Write the variable contents to a saved file.
Print #1, strContents
Close #1
' Reset the mouse pointer.
Screen.MousePointer = 0
' Set the form's caption.
If Err Then
MsgBox Error, 48, App.Title
Else
frmMDI.ActiveForm.Caption = UCase(Filename)
' Reset the dirty flag.
FState(frmMDI.ActiveForm.Tag).Dirty = False
End If
Else:
frmMDI.ActiveForm.RTF.SaveFile ("C:\Filename")
' Mer cod

Eller om du vill använda richtextboxens inbyggda funktion för att spara:

<code>
RichTextBox1.SaveFile "filnamn",rtfText
</code>

Skriver du rtfText så sparar den det som vanlig text, skriver du rtfRTF så sparar den i rtf-format...