Was Wir heute machen werden:

Legt die Schriftart fest, die zum Anzeigen des aktuell ausgewählten Textes oder der

Zeichen, die sich in einem RTF-Steuerelement unmittelbar hinter der Einfügemarke

befinden, verwendet wird, oder gibt diese Schriftart zurück.

RichTextBox1.SelFontSize

Legt einen Wert fest, der die Schriftgröße angibt, die zum Anzeigen von Text in einem

RTF-Steuerelement verwendet wird, oder gibt diesen Wert zurück.

RichTextBox1.SelColor

Legt eine Wert fest, der die Textfarbe in einem RTF-Steuerelement bestimmt,

oder gibt diesen Wert zurück.

RichTextBox1.SelBold

Legt das Format 'Fett' des momentan ausgewählten Textes fest oder

gibt es zurück.

RichTextBox1.SelItalic

Legt das Format 'Kursiv' des momentan ausgewählten Textes fest oder

gibt es zurück.

Legt das Format 'Unterstrichen' des momentan ausgewählten Textes fest oder

gibt es zurück.

RichTextBox1.SelStrikeThru

Legt das Format 'Durchgestrichen' des momentan ausgewählten Textes

fest oder gibt es zurück.

Durchsucht den Text in einem RTF-Steuerelement nach einer angegebenen

Zeichenfolge.

Wählt Text in einem RTF-Steuerelement aus, basierend auf einem angegebenen

Zeichensatz.

So dann fangen wir mal an, also erstes müssen wir die Komponenten Laden das wehren:

Beide Komponenten ziehen wir auf die Form, Das Commondialog Benennen wir "cdl"

und bei der Rich textbox macht ihr die Eigenschaft "Scrollbars" auf "3 - rtfboth".

Jetzt kommen wir zum Menu Editor, im Alten tut habt ihr ja gesehen wie Mann mit ihm Arbeiten tut,

deswegen gebe ich euch jetzt nur die Struktur des Menus.

Datei

---Laden

---Speichern

---Suchen

---Ende

Bearbeiten

---Ausschneiden

---Kopieren

---Einfügen

Font

Was dann in Etwa so Aussehen tut:

Bei Caption Schreibt ihr immer hin z.B.. (Datei, Laden, Speichern, Suchen, Ende)

und bei Name Schreibt ihr immer hin z.B. (Datei_code, Laden_code, Speichern_code, Suchen_code, Ende_code)

So!, jetzt kommen wir wir zum Code Einfügen, Als erstes geht ihr auf "Bearbeiten" und dann auf "Kopieren" in

dem Menu was ihr gerade Erstellt habt, dort gebt ihr Diesen Code ein.

Visual Basic: [code]'Hier tuhen wir Den Text aus der Rich Kopieren
Clipboard.SetText RichTextBox1.SelRTF 'Die Rich Textbox in die Zwischenablage Kopieren[/code]

Jetzt geht ihr unter "Bearbeiten" und dann auf "Ausschneiden" und dort gebt ihr Diesen Code ein.

Visual Basic: [code]'Hier tuhen wir Den Text aus der Rich Textbox Ausschneiden
Clipboard.SetText RichTextBox1.SelRTF 'Kopieren
RichTextBox1.SelRTF = "" 'Leeren[/code]

zu Guterletzt geht ihr auf "Bearbeiten" und dann auf "Einfügen" und dort gebt ihr Diesen Code ein.

Visual Basic: [code]'Hier fügen wir das was in derzwischenablage ist, in die Rich textbox einfügen.
RichTextBox1.SelRTF = Clipboard.GetText 'das was in der zwischenablage ist wird in die Rich textbox Kopiert[/code]

Soweit so Gut, jetzt geht ihr ins Code Fenster und tut diesen Code Einfügen

Visual Basic: [code]Private Sub Ende_code_Click()
End
End Sub

Private Sub Form_Load()
cdl.FontName = "Arial"
End Sub

Private Sub Font_code_Click()
cdl.CancelError = True 'Fehlerbedingung erzwingen, falls der Anwender auf Abbrechen klickt
On Error GoTo Errhandler:
cdl.Flags = cdlCFEffects Or cdlCFBoth 'Flags für Spezialeffekte und alle verfügbaren Schriften setzen
cdl.ShowFont 'Dialogfeld Schriftart anzeigen
'Benutzereingaben in Formateigenschaften übernehmen:
RichTextBox1.SelFontName = cdl.FontName 'FontName
RichTextBox1.SelFontSize = cdl.FontSize 'FontGröße
RichTextBox1.SelColor = cdl.Color 'FontColor
RichTextBox1.SelBold = cdl.FontBold 'Font Fett oder nicht
RichTextBox1.SelItalic = cdl.FontItalic 'Font Kursiv oder nicht
RichTextBox1.SelUnderline = cdl.FontUnderline 'Font mit Unterline
RichTextBox1.SelStrikeThru = cdl.FontStrikethru 'Font Durch Streichen
Errhandler:
'Prozedur verlassen, wenn der Anwender auf Abbrechen klickt
End Sub

Private Sub Laden_code_Click()
Dim input_data As String 'Variable Deklarieren
cdl.ShowOpen 'Hier rufen wir das Dialog zum Laden auf!
If cdl.FileName <> "" Then 'Wenn das was du Ausgewählt hast Größer & kleiner als Nichts ist, dann Öffne die datei
Open cdl.FileName For Input As #1 'Hier öffnen wir die Datei die gerade ausgewählt wurde!
RichTextBox1.Text = "" 'Richtextbox Leeren
While Not EOF(1) 'wenn noch nicht am ende der datei
Line Input #1, input_data 'Dann Lies weiter in die Varieable Line_Input ein
RichTextBox1.SelText = input_data & vbCrLf 'Hier wird in Die Richtextbox alles was in Line_input drin Steht eingetragen. _
Das "vbCrLf" ist eine Kombination aus Wagenrücklauf und Zeilenvorschubzeichen
Wend 'wenn alles eingelesen wurde dann geh weiter zu Close #1
Close #1 'Das weis jeder
End If 'Hier wird das if was wir frühin angefangen haben Beendet!
End Sub

Private Sub Speichern_code_Click()
cdl.FileName = "Textdatei.txt" 'Hier geben wir ein Beispiel Name an!
cdl.ShowSave 'Hier rufen wir das Dialog zum Speichern auf!
Open cdl.FileName For Output As #1 'Hier geben wir den Phad an wo wir die Datei erstellen wollen
Print #1, RichTextBox1.Text 'und Hier schreiben wir das was in der RichtextBox steht in die Datei
Close #1 'Das dürfte jeder wissen
End Sub

Private Sub Suchen_code_Click()
Dim SearchStr As String 'Gesuchter Text
Dim FoundPos As Integer 'Fundstelle
SearchStr = InputBox("Geben Sie einen Suchbegriff ein", "Suchen")
If SearchStr <> "" Then 'Falls SearchStr nicht leer ist,
'erstes Vorkommen des ganzen Wortes suchen
FoundPos = RichTextBox1.Find(SearchStr, , , _
rtfWholeWord)
'Falls Wort gefunden wird (falls nicht -1)
If FoundPos <> -1 Then
'über Span-Methode Wort auswählen (Vorwärtssuche)
RichTextBox1.Span " ", True, True
Else
MsgBox "Gesuchte Zeichenfolge wurde nicht gefunden", , "Suchen"
End If
End If
End Sub[/code]


So das wars auch schon wieder ^^

Ich Hofe Ich habe den Code gut erklärt und freue mich auf

weitere Tutorials die Ich für euch machen kann.

Mit Freundlichen Grüßen

Daniel Igoe