Problem beim öffnen und speichern in VB

Also $oul,

1. Farbauswahl:

Benutze den CommonDialog für die Farbauswahl:
Code: 
CommonDialog1.ShowColor

Zum einfärben dann:
Code: 
TextBox.SelLength = Len(TextBox.Text)
TextBox.SelColor = CommonDialog1.Color

2. Speichern/Laden von RTF:

Hier kannst du das RTF Format verwenden. Dies war zu Beginn der Grund, warum ich dir von der Textbox abgeraten habe. RTF Textboxen bringen eben viele Vorteile mit sich, wie:

.SaveFile -> um zu speichern, inkl. der Formatierung
.SelFontSize -> Schriftgrösse
.SelFontName -> Schriftart

etc..

So kannst du eine RichTextBox (inkl. der Formatierung, wie Farbe, Schriftart, etc.)
speichern:

Code: 
RichTextBox1.SaveFile (App.Path & "\Test.rft")

Du musst hier natürlich nicht ein .rtf File speichern. Auch:

Code: 
RichTextBox1.SaveFile (App.Path & "\Test.spe")
wäre möglich.

Laden (inkl. der Formatierung) geht nun wie folgt:
Code: 
RichTextBox1.LoadFile (App.Path & "\Test.rtf")


Bei Fragen, weisst du ja, wo du mich findest. ;-)

Gruzz local
 
Also...das mit den Farben habe ich hinbekommen, nur wenn ich die Datei, mit gespeicherten Farben mit X_Edit öffne, so sehe ich die Dinge, die wahrscheinlich zur Formatierung gehören...das ist natürlich nicht Sinn der Sache...

Und ich habe noch ein Problem...Das Speichern des Dokumentes geht, nur weiß ich nicht, wie ich es anstelle, dass ich auch so immernoch den Dateinamen und wo es gespeichert werden soll eingeben kann. Wie mache ich das genau?

mfg $oul
 
Hi $oul,

Hier mal den Code für deine Save & Load Funktion:

Code: 
Private Sub OPEN_Click()
Dim Temp As String
    With CommonDialog1
        .DialogTitle = "Datei öffnen..."
        .Filter = "SPE-Daten (*.edit)|*.edit|"
        .ShowOpen
        If .FileName <> vbNullString Then
            TextBox.LoadFile .FileName
        End If
    End With
   
   'TextBox.SelLength = Len(TextBox.Text)  // Willst du das wirklich so? //
   'TextBox.SelColor = vbWhite                    // Färbt den Text gleich Weiss! //
     
   End Sub



Private Sub SAVE_Click()
    With CommonDialog1
        .DialogTitle = "Datei speichern..."
        .Filter = "Alle Dateien (*.edit)|*.edit|"
        .ShowSave
        If .FileName <> vbNullString Then
            TextBox.SaveFile .FileName
         End If
    End With
   
End Sub

Hier noch die Änderung in der Form_Load():

Code: 
If Command$ <> "" Then
      
    strOpen = Right(Command$, Len(Command$) - 1) ' " vom String abtrennen
    strOpen = Left(strOpen, Len(strOpen) - 1)    ' " vom String abtrennen
      
      TextBox.LoadFile strOpen
        
End If

Ich weiss nicht was du mit der Import-Funktion vorhast..

Gruzz local
 
Hm, das mit dem Drucken scheint mir sehr kompliziert, mal sehen, vielleicht später einmal...
Trotzdem Danke...

Mir ist gerade etwas aufgefallen...Wenn ich Text schreibe, der größer als das Textfeld ist, so wird nicht mehr alles gezeigt, außerdem sieht der Scrollbalken dünner aus, als ob ein Teil von ihm im rechten Bildrand verschwinden würde, zum ansehen lade dir einfach die neuste Version von X_Edit, ist wie immer unter http://alius.al.funpic.de/Script-Archiv/VB/X_Edit/
 
Hi

Ja, das liegt an der Form_Resize()

Code: 
Private Sub Form_Resize()
    TextBox.Width = Me.Width - 80
    TextBox.Height = Me.Height - 760
End Sub

Ich löse dies meist so. Keine Ahnung, ob es dafür nicht eine professionellere Art gäbe.

Keine Angst, drucken ist nicht soo schwer. ;-)

Gruzz

local
 
Um antworten zu können musst du eingeloggt sein.
Zurück
Oben