eigener vb net Texteditor: Funktionen erweitern

Thiemo1991 · 24. März 2024, 09:48

Hallo ihr lieben,

ich habe mit ChatGTP einen Texteditor programmiert und es geht auch aber nicht, dass ich mit einem Doppelklick auf das Dokument, den Inhalt in die RichTextbox bekomme.

Mein Code, den ich bisher habe, ist:

Spoiler anzeigen

VB.NET-Quellcode

Imports System.IO
Imports System.Drawing.Text
Public Class Form1
Inherits Form ' Fügt die Form-Klasse hinzu, von der Ihre Klasse erbt
' Deklaration von Variablen und Initialisierung
Private fontSizes As New List(Of Integer) From {8, 10, 11, 12, 14, 16, 18, 20}
Private selectedColor As Color = Color.Black ' Standardfarbe ist Schwarz
Private autoSaveEnabled As Boolean = False ' Variable für automatisches Speichern
Private lastFilePath As String = "" ' Speichert den zuletzt überwachten Dateipfad
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Verknüpfen von Ereignishandlern
AddHandler cmbFontSize.SelectedIndexChanged, AddressOf CmbFontSize_SelectedIndexChanged
AddHandler cmbFontFamily.SelectedIndexChanged, AddressOf CmbFontFamily_SelectedIndexChanged
AddHandler btnBlack.Click, AddressOf ColorButton_Click
AddHandler btnRed.Click, AddressOf ColorButton_Click
AddHandler btnBold.Click, AddressOf BtnBold_Click
AddHandler btnItalic.Click, AddressOf BtnItalic_Click
AddHandler btnUnderline.Click, AddressOf BtnUnderline_Click
AddHandler Me.DoubleClick, AddressOf DesktopDoubleClickHandler
' Befüllen des Dropdown-Menüs mit den Schriftgrößen
For Each fontSize As Integer In fontSizes
cmbFontSize.Items.Add(fontSize)
Next
' Festlegen der Standard-Schriftgröße
cmbFontSize.SelectedIndex = 2
' Laden der installierten Schriftarten in die ComboBox
Dim installedFonts As New InstalledFontCollection()
For Each font As FontFamily In installedFonts.Families
cmbFontFamily.Items.Add(font.Name)
Next
' Hinzufügen des RichTextBox-Steuerelements
With txtEditor
.Multiline = True
.AllowDrop = True
End With
Me.Controls.Add(txtEditor)
' Laden der gespeicherten Einstellungen beim Laden des Formulars
LoadSettings()
End Sub
Private Sub LoadFile(filePath As String, fileExtension As String)
Try
If filePath.EndsWith(".txt", StringComparison.OrdinalIgnoreCase) Then
' Öffnen als TXT-Datei
txtEditor.LoadFile(filePath, RichTextBoxStreamType.PlainText)
ElseIf filePath.EndsWith(".rtf", StringComparison.OrdinalIgnoreCase) Then
' Öffnen als RTF-Datei
txtEditor.LoadFile(filePath)
Else
MessageBox.Show("Das Dateiformat wird nicht unterstützt.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Catch ex As Exception
MessageBox.Show("Fehler beim Öffnen der Datei: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub LoadSettings()
' Laden der zuletzt ausgewählten Schriftgröße aus den gespeicherten Einstellungen, falls gültig
If My.Settings.FontSize >= 0 AndAlso My.Settings.FontSize < fontSizes.Count Then
cmbFontSize.SelectedIndex = My.Settings.FontSize
End If
' Laden der zuletzt ausgewählten Schriftart aus den gespeicherten Einstellungen, falls gültig
If Not String.IsNullOrEmpty(My.Settings.SelectedFont) AndAlso cmbFontFamily.Items.Contains(My.Settings.SelectedFont) Then
cmbFontFamily.SelectedItem = My.Settings.SelectedFont
End If
' Laden der zuletzt ausgewählten Farbe aus den gespeicherten Einstellungen
selectedColor = My.Settings.SelectedColor
' Laden des Status des automatischen Speicherns
autoSaveEnabled = My.Settings.AutoSaveEnabled
AutomatischesSpeichernToolStripMenuItem.Checked = autoSaveEnabled
' Laden des zuletzt geöffneten Textes aus den gespeicherten Einstellungen, wenn automatisches Speichern aktiviert ist
If autoSaveEnabled AndAlso Not String.IsNullOrEmpty(My.Settings.LastText) Then
txtEditor.Rtf = My.Settings.LastText
End If
End Sub
Private Sub SaveSettings()
' Speichern der ausgewählten Schriftgröße in den Einstellungen
My.Settings.FontSize = cmbFontSize.SelectedIndex
' Speichern der ausgewählten Schriftart in den Einstellungen
My.Settings.SelectedFont = cmbFontFamily.SelectedItem.ToString()
' Speichern der ausgewählten Farbe in den Einstellungen
My.Settings.SelectedColor = selectedColor
' Speichern des aktuellen Textes in den Einstellungen
My.Settings.LastText = txtEditor.Rtf
' Speichern des Status des automatischen Speicherns
My.Settings.AutoSaveEnabled = autoSaveEnabled
' Speichern der Einstellungen
My.Settings.Save()
End Sub
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
' Speichern der Einstellungen beim Schließen des Formulars
SaveSettings()
End Sub
Private Sub CmbFontFamily_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbFontFamily.SelectedIndexChanged
' Anwenden der ausgewählten Schriftart auf den Text
If cmbFontFamily.SelectedIndex <> -1 Then
Dim fontFamily As String = cmbFontFamily.SelectedItem.ToString()
Dim currentFont As Font = txtEditor.SelectionFont
Dim newFont As New Font(fontFamily, currentFont.Size, currentFont.Style)
txtEditor.SelectionFont = newFont
txtEditor.Focus()
End If
End Sub
Private Sub CmbFontSize_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbFontSize.SelectedIndexChanged
' Speichern der aktuellen Auswahl
Dim selectionStart As Integer = txtEditor.SelectionStart
Dim selectionLength As Integer = txtEditor.SelectionLength
Dim selectedText As String = txtEditor.SelectedText
Dim originalFont As Font = txtEditor.SelectionFont
Dim originalColor As Color = txtEditor.SelectionColor
' Ändern der Schriftgröße
Dim selectedSize As Integer = fontSizes(cmbFontSize.SelectedIndex)
txtEditor.SelectionFont = New Font("Arial", selectedSize)
' Wiederherstellen der vorherigen Auswahl
txtEditor.Select(selectionStart, selectionLength)
txtEditor.SelectedText = selectedText
txtEditor.Select(selectionStart, selectedText.Length)
End Sub
Private Sub ColorButton_Click(sender As Object, e As EventArgs)
Dim btn As Button = DirectCast(sender, Button)
Dim selectionStart As Integer = txtEditor.SelectionStart
Dim selectionLength As Integer = txtEditor.SelectionLength
' Überprüfen, ob Text ausgewählt ist
If selectionLength > 0 Then
' Text ist ausgewählt, ändere Farbe des ausgewählten Textes zeichenweise
For i As Integer = selectionStart To selectionStart + selectionLength - 1
txtEditor.SelectionStart = i
txtEditor.SelectionLength = 1
Select Case btn.Name
Case "btnBlack"
txtEditor.SelectionColor = Color.Black
Case "btnRed"
txtEditor.SelectionColor = Color.Red
Case "btnBlue"
txtEditor.SelectionColor = Color.Blue
Case "btnGreen"
txtEditor.SelectionColor = Color.Green
End Select
Next
Else
' Text ist nicht ausgewählt, ändere Farbe für den gesamten neuen Text
txtEditor.SelectionStart = 0
txtEditor.SelectionLength = txtEditor.Text.Length
Select Case btn.Name
Case "btnBlack"
txtEditor.ForeColor = Color.Black
Case "btnRed"
txtEditor.ForeColor = Color.Red
Case "btnBlue"
txtEditor.SelectionColor = Color.Blue
Case "btnGreen"
txtEditor.SelectionColor = Color.Green
End Select
End If
' Wiederherstellen der vorherigen Auswahl
txtEditor.Select(selectionStart, selectionLength)
End Sub
Private Sub AutomatischesSpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AutomatischesSpeichernToolStripMenuItem.Click
' Toggle für automatisches Speichern
autoSaveEnabled = Not autoSaveEnabled
AutomatischesSpeichernToolStripMenuItem.Checked = autoSaveEnabled
' Wenn das automatische Speichern aktiviert ist, speichern Sie die aktuellen Einstellungen
If autoSaveEnabled = True Then
SaveSettings()
End If
End Sub
Private Sub TxtEditor_DragDrop(sender As Object, e As DragEventArgs) Handles txtEditor.DragDrop
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
If files IsNot Nothing AndAlso files.Length > 0 Then
Dim filePath As String = files(0)
Dim fileExtension As String = Path.GetExtension(filePath).ToLower()
If File.Exists(filePath) AndAlso (fileExtension = ".txt" OrElse fileExtension = ".rtf") Then
Try
LoadFile(filePath, fileExtension)
Catch ex As Exception
MessageBox.Show("Fehler beim Laden der Datei: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Else
MessageBox.Show("Es können nur Text- oder RTF-Dateien akzeptiert werden.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End If
End If
End Sub
Private Sub TxtEditor_TextChanged(sender As Object, e As EventArgs) Handles txtEditor.TextChanged
' Automatisches Speichern aktivieren, wenn es aktiviert ist und der Text geändert wurde
If autoSaveEnabled Then
SaveSettings()
End If
End Sub
Private Sub BtnBold_Click(sender As Object, e As EventArgs) Handles btnBold.Click
ApplyFontStyle(FontStyle.Bold, selectedColor)
End Sub
Private Sub BtnItalic_Click(sender As Object, e As EventArgs) Handles btnItalic.Click
ApplyFontStyle(FontStyle.Italic, selectedColor)
End Sub
Private Sub BtnUnderline_Click(sender As Object, e As EventArgs) Handles btnUnderline.Click
ApplyFontStyle(FontStyle.Underline, selectedColor)
End Sub
Private Sub ApplyFontStyle(fontStyle As FontStyle, color As Color)
' Speichern der aktuellen Auswahl
Dim selectionStart As Integer = txtEditor.SelectionStart
Dim selectionLength As Integer = txtEditor.SelectionLength
Dim selectedText As String = txtEditor.SelectedText
Dim originalFont As Font = txtEditor.SelectionFont
Dim originalColor As Color = txtEditor.SelectionColor
' Anwenden der gewünschten Formatierung
txtEditor.SelectionStart = selectionStart
txtEditor.SelectionLength = selectionLength
txtEditor.SelectionFont = New Font(originalFont, originalFont.Style Or fontStyle)
txtEditor.SelectionColor = color
' Wiederherstellen der vorherigen Auswahl
txtEditor.Select(selectionStart, selectionLength)
txtEditor.SelectedText = selectedText
txtEditor.Select(selectionStart, selectedText.Length)
End Sub
Private Sub NeuToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuToolStripMenuItem.Click
Dim newForm As New Form1
newForm.Show()
End Sub
Private Sub ÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ÖffnenToolStripMenuItem.Click
OpenFileDialog1.Filter = "RTF-Dateien (*.rtf)|*.rtf|Textdateien (*.txt)|*.txt"
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
Try
If OpenFileDialog1.FileName.EndsWith(".txt", StringComparison.OrdinalIgnoreCase) Then
' Öffnen als TXT-Datei
txtEditor.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
ElseIf OpenFileDialog1.FileName.EndsWith(".rtf", StringComparison.OrdinalIgnoreCase) Then
' Öffnen als RTF-Datei
txtEditor.LoadFile(OpenFileDialog1.FileName)
Else
MessageBox.Show("Das Dateiformat wird nicht unterstützt.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Catch ex As Exception
MessageBox.Show("Fehler beim Öffnen der Datei: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
End Sub
Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click
SaveFileDialog1.Filter = "RTF-Dateien (*.rtf)|*.rtf|Textdateien (*.txt)|*.txt"
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
Dim filename As String = SaveFileDialog1.FileName
If filename.EndsWith(".txt", StringComparison.OrdinalIgnoreCase) Then
' Speichern als TXT-Datei
txtEditor.SaveFile(filename, RichTextBoxStreamType.PlainText)
Else
' Speichern als RTF-Datei
txtEditor.SaveFile(filename, RichTextBoxStreamType.RichText)
End If
End If
End Sub
Private Sub SpeichernAlsRtf(filename As String)
' Speichern des RichTextBox-Inhalts im RTF-Format
Dim rtfContent As String = ""
For Each c As Char In txtEditor.Text
Dim fontSize As Single = txtEditor.SelectionFont.Size
rtfContent &= "{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 Arial;}}" & vbCrLf
rtfContent &= "{\colortbl ;" & ColorTranslator.ToHtml(txtEditor.SelectionColor) & ";}" & vbCrLf
rtfContent &= "\viewkind4\uc1\pard\cf1\f0\fs" & CInt(fontSize * 2) & " " & c & vbCrLf
Next
File.WriteAllText(filename, rtfContent)
End Sub
Private Sub DruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DruckenToolStripMenuItem.Click
Dim printDoc As New Printing.PrintDocument
AddHandler printDoc.PrintPage, AddressOf PrintPageHandler
Dim printDialog As New PrintDialog With {
.Document = printDoc
}
If printDialog.ShowDialog() = DialogResult.OK Then
printDoc.Print()
End If
End Sub
Private Sub PrintPageHandler(sender As Object, e As Printing.PrintPageEventArgs)
Dim printFont As New Font("Arial", 12)
e.Graphics.DrawString(txtEditor.Text, printFont, Brushes.Black, New RectangleF(100, 100, e.MarginBounds.Width, e.MarginBounds.Height))
End Sub
Private Sub DesktopDoubleClickHandler(sender As Object, e As EventArgs)
Dim desktopPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) ' Pfad zum Desktop
Dim selectedFile As String = Path.Combine(desktopPath, "example.txt") ' Beispieldatei auf dem Desktop
If File.Exists(selectedFile) Then
LoadFileToRichTextBox(selectedFile)
End If
End Sub
Private Sub LoadFileToRichTextBox(filePath As String)
' Dateiinhalt in die RichTextBox laden
If File.Exists(filePath) Then
Dim fileContent As String = File.ReadAllText(filePath)
txtEditor.Rtf = fileContent ' Annahme: Die Datei enthält RTF-formatierten Text
End If
End Sub
End Class

Kann irgendwer mir sagen, welchen Code ich verwenden muss?

*Topic verschoben, EXE-Anhang entfernt*

RodFromGermany · 24. März 2024, 18:30

@Thiemo1991 Mal sehen, ob ich Dich richtig verstanden habe:
Du doppelklickst auf eine Datei, die auf dem Desktop liegt?
Wenn ja:
Weise der Extension dieser Datei Dein Programm als Standardprogramm zu (recher Mausklick auf die Datei => Öffnen mit ...).
Wenn nein:
Setze einen Halztepunkt in die Doppelklick-Prozedur und debugge sie:
Debuggen, Fehler finden und beseitigen

DTF · 24. März 2024, 18:53

Schaffst du es denn die Commandline-Argumente auszulesen? Da ist der Dateinahme der den Start des Programms ausgelöst hat drin, wenn dein Programm so gestartet wird. Befrag dazu deine KI, das sollte dir diese "dumme" KI verraten können. Hab das auch mal mit KI probiert, aber für mehr als Codegenerierung durch SpeechToText taugt das nicht wirklich viel.

Beispiel: So kann man easy Coden:

erstelle mit bitte eine C# klasse mit dem namen XReader mit folgenden privaten
feldern vom Typ float: Hour, Minutes, Seconds. Folgende felder vom typ string name, place. Dazu bitte dann auch public properties mit getter und setter

Falls dein Programm bereits läuft und du nicht willst das eine weitere Instanz gestartet wird, musst du eine Einzelinstanzanwendung machen.

Haudruferzappeltnoch · 24. März 2024, 19:22

Wo machst du den Doppelklick? Auf die Datei?
Das, wo du auf einen Doppelklick reagierst, ist wenn du den Doppelklick auf dem Form machst. Probier das mal aus.

Wenn du per Doppelklick auf die Datei, diese durch dein Programm öffnen willst, machst du was Rod sagt und gibst ChatGPT das so nochmal durch:

Ich habe eine Anwendung in VB.NET erstellt. Für den Dateityp .xyz habe ich auf meinem Betriebssystem meine Anwendung als Standardprogramm eingestellt, das diese öffnet. Mit der Methode:

VB.NET-Quellcode

Private Sub LoadFileToRichTextBox(filePath As String)

' Dateiinhalt in die RichTextBox laden

If File.Exists(filePath) Then

Dim fileContent As String = File.ReadAllText(filePath)

txtEditor.Rtf = fileContent ' Annahme: Die Datei enthält RTF-formatierten Text

End If

End Sub

wird der Inhalt der Datei in eine RichTextBox geladen. Rufe in meinem Programm beim Start diese Methode mit dem Pfad der angewählten Datei auf.

Neben dem Geseier von GPT erhältst du als Antwort dann, was DTF vorschlägt:

VB.NET-Quellcode

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Prüfe, ob beim Start des Programms eine Datei als Argument übergeben wurde
If My.Application.CommandLineArgs.Count > 0 Then
' Wenn ja, rufe LoadFileToRichTextBox mit dem Pfad der übergebenen Datei auf
Dim filePath As String = My.Application.CommandLineArgs(0)
LoadFileToRichTextBox(filePath)
End If
End Sub

geprüft, ob das hinhaut hab ich nicht.

DTF · 24. März 2024, 19:25

Haudruferzappeltnoch schrieb:

Dim filePath As String = My.Application.CommandLineArgs(0)

Pfui.... Der My-namespace.... KI.....

VB.NET-Quellcode

Environment.GetCommandLineArgs

Thiemo1991 · 27. März 2024, 18:15

Du doppelklickst auf eine Datei, die auf dem Desktop liegt?

Nicht nur vom Desktop, werden ja Dateien geöffnet.

Falls dein Programm bereits läuft und du nicht willst das eine weitere Instanz gestartet wird, musst du eine Einzelinstanzanwendung machen.

Das möchte ich aber.

Auf die Datei?

Ja!

@Haudruferzappeltnoch, deine Codes haben mein Proplem behoben. Danke dafür.

Beiträge zusammengefügt. ~Thunderbolt

Irgendwie, obwohl ich die zwei anderen Farben (also, schwarz und rot) wunderbar auswählen kann bzw. anwenden kann, bekomme ich das aber mit den Farben blau und grün nicht hin. ChatGPT kann mir auch nicht wirklich helfen.

Spoiler anzeigen

VB.NET-Quellcode

Imports System.IO
Imports System.Drawing.Text
Public Class Form1
Inherits Form ' Fügt die Form-Klasse hinzu, von der Ihre Klasse erbt
' Deklaration von Variablen und Initialisierung
Private fontSizes As New List(Of Integer) From {8, 10, 11, 12, 14, 16, 18, 20}
Private selectedColor As Color = Color.Black ' Standardfarbe ist Schwarz
Private autoSaveEnabled As Boolean = False ' Variable für automatisches Speichern
Private lastFilePath As String = "" ' Speichert den zuletzt überwachten Dateipfad
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Prüfe, ob beim Start des Programms eine Datei als Argument übergeben wurde
If My.Application.CommandLineArgs.Count > 0 Then
' Wenn ja, rufe LoadFileToRichTextBox mit dem Pfad der übergebenen Datei auf
Dim filePath As String = My.Application.CommandLineArgs(0)
LoadFileToRichTextBox(filePath)
End If
' Verknüpfen von Ereignishandlern
AddHandler cmbFontSize.SelectedIndexChanged, AddressOf CmbFontSize_SelectedIndexChanged
AddHandler cmbFontFamily.SelectedIndexChanged, AddressOf CmbFontFamily_SelectedIndexChanged
AddHandler btnBlack.Click, AddressOf ColorButton_Click
AddHandler btnRed.Click, AddressOf ColorButton_Click
AddHandler btnBold.Click, AddressOf BtnBold_Click
AddHandler btnItalic.Click, AddressOf BtnItalic_Click
AddHandler btnUnderline.Click, AddressOf BtnUnderline_Click
AddHandler Me.DoubleClick, AddressOf DesktopDoubleClickHandler
' Befüllen des Dropdown-Menüs mit den Schriftgrößen
For Each fontSize As Integer In fontSizes
cmbFontSize.Items.Add(fontSize)
Next
' Festlegen der Standard-Schriftgröße
cmbFontSize.SelectedIndex = 2
' Laden der installierten Schriftarten in die ComboBox
Dim installedFonts As New InstalledFontCollection()
For Each font As FontFamily In installedFonts.Families
cmbFontFamily.Items.Add(font.Name)
Next
' Hinzufügen des RichTextBox-Steuerelements
With txtEditor
.Multiline = True
.AllowDrop = True
End With
Me.Controls.Add(txtEditor)
' Laden der gespeicherten Einstellungen beim Laden des Formulars
LoadSettings()
End Sub
Private Sub LoadFile(filePath As String, fileExtension As String)
Try
If filePath.EndsWith(".txt", StringComparison.OrdinalIgnoreCase) Then
' Öffnen als TXT-Datei
txtEditor.LoadFile(filePath, RichTextBoxStreamType.PlainText)
ElseIf filePath.EndsWith(".rtf", StringComparison.OrdinalIgnoreCase) Then
' Öffnen als RTF-Datei
txtEditor.LoadFile(filePath)
Else
MessageBox.Show("Das Dateiformat wird nicht unterstützt.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Catch ex As Exception
MessageBox.Show("Fehler beim Öffnen der Datei: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub LoadSettings()
' Laden der zuletzt ausgewählten Schriftgröße aus den gespeicherten Einstellungen, falls gültig
If My.Settings.FontSize >= 0 AndAlso My.Settings.FontSize < fontSizes.Count Then
cmbFontSize.SelectedIndex = My.Settings.FontSize
End If
' Laden der zuletzt ausgewählten Schriftart aus den gespeicherten Einstellungen, falls gültig
If Not String.IsNullOrEmpty(My.Settings.SelectedFont) AndAlso cmbFontFamily.Items.Contains(My.Settings.SelectedFont) Then
cmbFontFamily.SelectedItem = My.Settings.SelectedFont
End If
' Laden der zuletzt ausgewählten Farbe aus den gespeicherten Einstellungen
selectedColor = My.Settings.SelectedColor
' Laden des Status des automatischen Speicherns
autoSaveEnabled = My.Settings.AutoSaveEnabled
AutomatischesSpeichernToolStripMenuItem.Checked = autoSaveEnabled
' Laden des zuletzt geöffneten Textes aus den gespeicherten Einstellungen, wenn automatisches Speichern aktiviert ist
If autoSaveEnabled AndAlso Not String.IsNullOrEmpty(My.Settings.LastText) Then
txtEditor.Rtf = My.Settings.LastText
End If
End Sub
Private Sub SaveSettings()
' Speichern der ausgewählten Schriftgröße in den Einstellungen
My.Settings.FontSize = cmbFontSize.SelectedIndex
' Speichern der ausgewählten Schriftart in den Einstellungen
My.Settings.SelectedFont = cmbFontFamily.SelectedItem.ToString()
' Speichern der ausgewählten Farbe in den Einstellungen
My.Settings.SelectedColor = selectedColor
' Speichern des aktuellen Textes in den Einstellungen
My.Settings.LastText = txtEditor.Rtf
' Speichern des Status des automatischen Speicherns
My.Settings.AutoSaveEnabled = autoSaveEnabled
' Speichern der Einstellungen
My.Settings.Save()
End Sub
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
' Speichern der Einstellungen beim Schließen des Formulars
SaveSettings()
End Sub
Private Sub CmbFontFamily_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbFontFamily.SelectedIndexChanged
' Anwenden der ausgewählten Schriftart auf den Text
If cmbFontFamily.SelectedIndex <> -1 Then
Dim fontFamily As String = cmbFontFamily.SelectedItem.ToString()
Dim currentFont As Font = txtEditor.SelectionFont
Dim newFont As New Font(fontFamily, currentFont.Size, currentFont.Style)
txtEditor.SelectionFont = newFont
txtEditor.Focus()
End If
End Sub
Private Sub CmbFontSize_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbFontSize.SelectedIndexChanged
' Speichern der aktuellen Auswahl
Dim selectionStart As Integer = txtEditor.SelectionStart
Dim selectionLength As Integer = txtEditor.SelectionLength
Dim selectedText As String = txtEditor.SelectedText
Dim originalFont As Font = txtEditor.SelectionFont
Dim originalColor As Color = txtEditor.SelectionColor
' Ändern der Schriftgröße
Dim selectedSize As Integer = fontSizes(cmbFontSize.SelectedIndex)
txtEditor.SelectionFont = New Font("Arial", selectedSize)
' Wiederherstellen der vorherigen Auswahl
txtEditor.Select(selectionStart, selectionLength)
txtEditor.SelectedText = selectedText
txtEditor.Select(selectionStart, selectedText.Length)
End Sub
Private Sub ColorButton_Click(sender As Object, e As EventArgs)
Dim btn As Button = DirectCast(sender, Button)
Dim selectionStart As Integer = txtEditor.SelectionStart
Dim selectionLength As Integer = txtEditor.SelectionLength
' Überprüfen, ob Text ausgewählt ist
If selectionLength > 0 Then
' Text ist ausgewählt, ändere Farbe des ausgewählten Textes zeichenweise
For i As Integer = selectionStart To selectionStart + selectionLength - 1
txtEditor.SelectionStart = i
txtEditor.SelectionLength = 1
Select Case btn.Name
Case "btnBlack"
txtEditor.SelectionColor = Color.Black
Case "btnRed"
txtEditor.SelectionColor = Color.Red
Case "btnBlue"
txtEditor.SelectionColor = Color.Blue
Case "btnGreen"
txtEditor.SelectionColor = Color.Green
End Select
Next
Else
' Text ist nicht ausgewählt, ändere Farbe für den gesamten neuen Text
txtEditor.SelectionStart = 0
txtEditor.SelectionLength = txtEditor.Text.Length
Select Case btn.Name
Case "btnBlack"
txtEditor.ForeColor = Color.Black
Case "btnRed"
txtEditor.ForeColor = Color.Red
Case "btnBlue"
txtEditor.SelectionColor = Color.Blue
Case "btnGreen"
txtEditor.SelectionColor = Color.Green
End Select
End If
' Wiederherstellen der vorherigen Auswahl
txtEditor.Select(selectionStart, selectionLength)
End Sub
Private Sub AutomatischesSpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AutomatischesSpeichernToolStripMenuItem.Click
' Toggle für automatisches Speichern
autoSaveEnabled = Not autoSaveEnabled
AutomatischesSpeichernToolStripMenuItem.Checked = autoSaveEnabled
' Wenn das automatische Speichern aktiviert ist, speichern Sie die aktuellen Einstellungen
If autoSaveEnabled = True Then
SaveSettings()
End If
End Sub
Private Sub TxtEditor_DragDrop(sender As Object, e As DragEventArgs) Handles txtEditor.DragDrop
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
If files IsNot Nothing AndAlso files.Length > 0 Then
Dim filePath As String = files(0)
Dim fileExtension As String = Path.GetExtension(filePath).ToLower()
If File.Exists(filePath) AndAlso (fileExtension = ".txt" OrElse fileExtension = ".rtf") Then
Try
LoadFile(filePath, fileExtension)
Catch ex As Exception
MessageBox.Show("Fehler beim Laden der Datei: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Else
MessageBox.Show("Es können nur Text- oder RTF-Dateien akzeptiert werden.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End If
End If
End Sub
Private Sub TxtEditor_TextChanged(sender As Object, e As EventArgs) Handles txtEditor.TextChanged
' Automatisches Speichern aktivieren, wenn es aktiviert ist und der Text geändert wurde
If autoSaveEnabled Then
SaveSettings()
End If
End Sub
Private Sub BtnBold_Click(sender As Object, e As EventArgs) Handles btnBold.Click
ApplyFontStyle(FontStyle.Bold, selectedColor)
End Sub
Private Sub BtnItalic_Click(sender As Object, e As EventArgs) Handles btnItalic.Click
ApplyFontStyle(FontStyle.Italic, selectedColor)
End Sub
Private Sub BtnUnderline_Click(sender As Object, e As EventArgs) Handles btnUnderline.Click
ApplyFontStyle(FontStyle.Underline, selectedColor)
End Sub
Private Sub ApplyFontStyle(fontStyle As FontStyle, color As Color)
' Speichern der aktuellen Auswahl
Dim selectionStart As Integer = txtEditor.SelectionStart
Dim selectionLength As Integer = txtEditor.SelectionLength
Dim selectedText As String = txtEditor.SelectedText
Dim originalFont As Font = txtEditor.SelectionFont
Dim originalColor As Color = txtEditor.SelectionColor
' Anwenden der gewünschten Formatierung
txtEditor.SelectionStart = selectionStart
txtEditor.SelectionLength = selectionLength
txtEditor.SelectionFont = New Font(originalFont, originalFont.Style Or fontStyle)
txtEditor.SelectionColor = color
' Wiederherstellen der vorherigen Auswahl
txtEditor.Select(selectionStart, selectionLength)
txtEditor.SelectedText = selectedText
txtEditor.Select(selectionStart, selectedText.Length)
End Sub
Private Sub NeuToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuToolStripMenuItem.Click
Dim newForm As New Form1
newForm.Show()
End Sub
Private Sub ÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ÖffnenToolStripMenuItem.Click
OpenFileDialog1.Filter = "RTF-Dateien (*.rtf)|*.rtf|Textdateien (*.txt)|*.txt"
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
Try
If OpenFileDialog1.FileName.EndsWith(".txt", StringComparison.OrdinalIgnoreCase) Then
' Öffnen als TXT-Datei
txtEditor.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
ElseIf OpenFileDialog1.FileName.EndsWith(".rtf", StringComparison.OrdinalIgnoreCase) Then
' Öffnen als RTF-Datei
txtEditor.LoadFile(OpenFileDialog1.FileName)
Else
MessageBox.Show("Das Dateiformat wird nicht unterstützt.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Catch ex As Exception
MessageBox.Show("Fehler beim Öffnen der Datei: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
End Sub
Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click
SaveFileDialog1.Filter = "RTF-Dateien (*.rtf)|*.rtf|Textdateien (*.txt)|*.txt"
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
Dim filename As String = SaveFileDialog1.FileName
If filename.EndsWith(".txt", StringComparison.OrdinalIgnoreCase) Then
' Speichern als TXT-Datei
txtEditor.SaveFile(filename, RichTextBoxStreamType.PlainText)
Else
' Speichern als RTF-Datei
txtEditor.SaveFile(filename, RichTextBoxStreamType.RichText)
End If
End If
End Sub
Private Sub SpeichernAlsRtf(filename As String)
' Speichern des RichTextBox-Inhalts im RTF-Format
Dim rtfContent As String = ""
For Each c As Char In txtEditor.Text
Dim fontSize As Single = txtEditor.SelectionFont.Size
rtfContent &= "{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 Arial;}}" & vbCrLf
rtfContent &= "{\colortbl ;" & ColorTranslator.ToHtml(txtEditor.SelectionColor) & ";}" & vbCrLf
rtfContent &= "\viewkind4\uc1\pard\cf1\f0\fs" & CInt(fontSize * 2) & " " & c & vbCrLf
Next
File.WriteAllText(filename, rtfContent)
End Sub
Private Sub DruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DruckenToolStripMenuItem.Click
Dim printDoc As New Printing.PrintDocument
AddHandler printDoc.PrintPage, AddressOf PrintPageHandler
Dim printDialog As New PrintDialog With {
.Document = printDoc
}
If printDialog.ShowDialog() = DialogResult.OK Then
printDoc.Print()
End If
End Sub
Private Sub PrintPageHandler(sender As Object, e As Printing.PrintPageEventArgs)
Dim printFont As New Font("Arial", 12)
e.Graphics.DrawString(txtEditor.Text, printFont, Brushes.Black, New RectangleF(100, 100, e.MarginBounds.Width, e.MarginBounds.Height))
End Sub
Private Sub DesktopDoubleClickHandler(sender As Object, e As EventArgs)
Dim desktopPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) ' Pfad zum Desktop
Dim selectedFile As String = Path.Combine(desktopPath, "example.txt") ' Beispieldatei auf dem Desktop
If File.Exists(selectedFile) Then
LoadFileToRichTextBox(selectedFile)
End If
End Sub
Private Sub LoadFileToRichTextBox(filePath As String)
' Dateiinhalt in die RichTextBox laden
If File.Exists(filePath) Then
Dim fileContent As String = File.ReadAllText(filePath)
txtEditor.Rtf = fileContent
End If
End Sub
End Class

Könnt ihr mir bitte dabei helfen?

Beiträge noch einmal zusammengefügt. ~Thunderbolt

Haudruferzappeltnoch · 28. März 2024, 21:58

Schon erstaunlich das GPT das nicht hinkriegt. Aber du bist mit Erklärungen auch recht wortkarg

Guck dir mal die beiden Zeilen an

VB.NET-Quellcode

AddHandler btnBlack.Click, AddressOf ColorButton_Click
AddHandler btnRed.Click, AddressOf ColorButton_Click

dann solltest du das rausfinden.

Thiemo1991 · 28. März 2024, 22:02

Habe ich vergessen die genannten Sachen zu aktivieren?

Haudruferzappeltnoch · 28. März 2024, 22:15

Jo, blau und grün nämlich.

Thiemo1991 · 28. März 2024, 22:17

Ich habe fast das mir schon gedacht, dass was ich da vergessen habe aber was genau, wusste ich nicht.

Haudruferzappeltnoch · 28. März 2024, 22:21

Man muss GPT schon genau sagen, was es machen soll.
Gibt im Tutorial/Tipps Bereich hier ne Menge Basiswissenzeugs zu lesen. Das hilft da bestimmt.

Thiemo1991 · 28. März 2024, 22:47

Ich habe mehrfach schon den Chatbot gefragt aber nie so etwas bekommen.

Haudruferzappeltnoch · 28. März 2024, 23:26

Was hast du nie bekommen?

Nur mal so nebenbei damit du weißt was ich meine, färbe mal die "Farb"Buttons entsprechend ein und ersetz mal deine ColorButton_Click hiermit

VB.NET-Quellcode

Private Sub ColorButton_Click(sender As Object, e As EventArgs) Handles btnBlack.Click, btnRed.Click, btnGreen.Click, btnBlue.Click
If rtb.SelectionLength = 0 Then rtb.Select(0, rtb.Text.Length)
rtb.SelectionColor = DirectCast(sender, Button).BackColor
End Sub

das AddHandler-Gedusel brauchst dann auch nicht mehr im Load Event

Thiemo1991 · 28. März 2024, 23:28

Die Antwort auf meine Frage(n).

DTF · 29. März 2024, 06:37

Thiemo, nutze die KI mal anders. Anstatt in der Hoffnung Copy&Paste fertigen Code zu bekommen, lass dir von der KI die Grundlagen beibringen. Frag die KI gezielt nach bestimmten Wörtern. So hast du zumindest annähernd die Chance die Grundlagen zu lernen, denn die kannst du leider immer noch nicht. KI kann bei manchen Sachen helfen, ich hab ChatGPT ausgiebig getestet und kam zu der überzeugung das KIs noch Jahre brauchen werden um den Job eines vollwertigen Programmiers wirklich machen zu können. Aktuell kam man damit nur ein wenig Arbeitszeit sparen, oder sich kurz eine Info hohlen, bei der man nicht mal 100% sicher sein kann, das es timmt.

Amelie · 29. März 2024, 08:36

Moin moin

Ich muss zugeben, das ich es auch mal mit der "KI ChatGPT" versucht habe, weil es so oft hoch gelobt wurde. Gerade auf YouTube grassieren Videos nach dem Motto:
"Ein vollwertiges Programm in einer Stunde mit ChatGPT"!

Mein Fazit ist:
Wenn man die Grundlagen nicht kennt und der KI nicht gezielt die "richtigen" Fragen stellt, kommt man damit kaum weiter!
Meist produziert die KI unnütz langen und oft auch völlig unverständlichen Code und oft auch noch alten VB-Code.

Wie @DTF schon schrieb, um sich mal eine schnelle Info zu holen ist es OK aber man muss diese Infos auch genau überprüfen, sonst kann es sein das man ewig nach Fehlern sucht, weil man der KI auf Richtigkeit vertraut hat.

Was ich noch festgestellt habe ist:
Bis man der KI die "richtig formulierte Frage" zu einem Problem geschrieben hat, ist man in den Foren suchen oft schneller bei einer Lösung.
Wenn die KI das Problem nicht "versteht" kann man Stunden damit verbringen und kommt keinen Schritt weiter. Und wenn man die Grundlagen nicht kennt, kann man die Fragen auch nicht "richtig" formulieren.

Was recht gut funktioniert ist: Wenn ich z.B. eine Methode geschrieben habe, welche dann nach Tests funktioniert und in mir wächst der Eindruck, das diese zu lang oder zu kompliziert geschrieben ist, die KI nach einer Korrektur / Kürzung zu fragen.
Hier gibt die KI im Zuge von OOP / CleanCode usw dann doch recht gute Ansätze, welche man aber auch wieder überprüfen muss.

Rote Farbe entfernt. ~Trade

Thiemo1991 · 12. Mai 2024, 19:42

Ich weiß nicht, warum ich einen Fehler sehe, wenn ich mein Programm als Administrator ausführe. Ich bekomme beim Speichern von der zuletzt verwendeten Schriftart diesen Fehler anzeigt, aber irgendwie funktioniert das Ausführen trotzdem.

Spoiler anzeigen

Hier ist mein kompletter Code dazu.

Spoiler anzeigen

Quellcode

Imports System.IO
Imports System.Drawing.Text
Imports Microsoft.Win32
Imports System.Runtime.InteropServices
Imports System.Security.Principal
Imports System.Security.Cryptography.X509Certificates
Public Class TmEditor
Inherits Form
' Private Felder
Private fontSizes As New List(Of Integer) From {8, 10, 11, 12, 14, 16, 18, 20}
Private selectedColor As Color = Color.Black
Private autoSaveEnabled As Boolean = False
Private lastFilePath As String = ""
Private WithEvents AutoSaveTimer As New Timer()
Private WithEvents HighlightTimer As New Timer()
Private Const IconPath As String = "Resources\texteditor.ico"
Private lastTextBeforeSave As String
' Importieren der SHChangeNotify-Funktion aus der Shell32.dll
<DllImport("Shell32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
Private Shared Function SHChangeNotify(ByVal wEventId As Integer, ByVal uFlags As Integer, ByVal dwItem1 As IntPtr, ByVal dwItem2 As IntPtr) As Boolean
End Function
Public Sub New()
InitializeComponent()
AddHandler TxtEditor.KeyDown, AddressOf TxtEditor_KeyDown
End Sub
' Ereignishandler verknüpfen
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Dateizuordnung registrieren und Administratorrechte überprüfen
RegisterFileAssociation()
RestartAsAdmin()
' Dateizuordnung registrieren
RegisterFileAssociation()
' Schriftgrößen zur Dropdown-Liste hinzufügen
For Each fontSize As Integer In fontSizes
cmbFontSize.Items.Add(fontSize)
Next
' Installierte Schriftarten in ComboBox laden
Dim installedFonts As New InstalledFontCollection()
For Each font As FontFamily In installedFonts.Families
cmbFontFamily.Items.Add(font.Name)
Next
' Ereignishandler verknüpfen
AddHandler cmbFontSize.SelectedIndexChanged, AddressOf CmbFontSize_SelectedIndexChanged
AddHandler cmbFontFamily.SelectedIndexChanged, AddressOf CmbFontFamily_SelectedIndexChanged
AddHandler btnBlack.Click, AddressOf ColorButton_Click
AddHandler btnRed.Click, AddressOf ColorButton_Click
AddHandler btnBlue.Click, AddressOf ColorButton_Click
AddHandler btnGreen.Click, AddressOf ColorButton_Click
AddHandler btnBold.Click, AddressOf BtnBold_Click
AddHandler btnItalic.Click, AddressOf BtnItalic_Click
AddHandler btnUnderline.Click, AddressOf BtnUnderline_Click
AddHandler Me.FormClosing, AddressOf TmEditor_FormClosing
AddHandler AutoSaveTimer.Tick, AddressOf AutoSaveTimer_Tick
AddHandler HighlightTimer.Tick, AddressOf HighlightTimer_Tick
AddHandler TxtEditor.KeyDown, AddressOf TxtEditor_KeyDown ' KeyDown-Ereignishandler hinzufügen
' Schriftgröße und Schriftart standardmäßig auswählen
cmbFontSize.SelectedIndex = 3 ' Standardgröße: 12
cmbFontFamily.SelectedItem = "Arial" ' Standardschriftart: Arial
' Eigenschaften setzen
With TxtEditor
.Multiline = True
.AllowDrop = True
' Standard-Schriftgröße und Schriftart festlegen
.Font = New Font(cmbFontFamily.SelectedItem.ToString(), CInt(cmbFontSize.SelectedItem), FontStyle.Regular)
End With
' RichTextBox dem Formular hinzufügen
Me.Controls.Add(TxtEditor)
' Gespeicherte Einstellungen laden
LoadSettings()
' AutoSave Timer konfigurieren
AutoSaveTimer.Interval = 60000 ' 1 Minute
AutoSaveTimer.Start()
' Highlight Timer konfigurieren
HighlightTimer.Interval = 5000 ' 5 Sekunden
End Sub
' Dateiformat registrieren
Private Sub RegisterFileAssociation()
Dim progId As String = "tmEditor.File"
Dim appName As String = "TM Editor"
Dim fileExtension As String = ".tmEditor"
Try
' Nur registrieren, wenn das Programm als Administrator ausgeführt wird
If IsRunAsAdmin() Then
' Registrieren des Dateityps
Using key As RegistryKey = Registry.ClassesRoot.CreateSubKey(fileExtension)
key.SetValue("", progId)
End Using
Using key As RegistryKey = Registry.ClassesRoot.CreateSubKey(progId)
key.SetValue("", appName)
Using iconKey As RegistryKey = key.CreateSubKey("DefaultIcon")
iconKey.SetValue("", IconPath)
End Using
Using shellKey As RegistryKey = key.CreateSubKey("shell\open\command")
shellKey.SetValue("", """" & Application.ExecutablePath & """ ""%1""")
End Using
End Using
Else
' Meldung anzeigen, dass die Dateizuordnung nicht aktualisiert werden kann
ToolStripLabel1.Text = "Dateizuordnung kann nicht aktualisiert werden: Administratorrechte erforderlich."
End If
' Aktualisieren des Windows Explorers
SHChangeNotify(&H8000000, &H0, IntPtr.Zero, IntPtr.Zero)
' Benachrichtigung anzeigen
ToolStripLabel1.Text = "Dateizuordnung aktualisiert."
Catch ex As Exception
MessageBox.Show("Fehler beim Aktualisieren der Dateizuordnung: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
ToolStripLabel1.Text = "Fehler beim Aktualisieren der Dateizuordnung."
End Try
End Sub
Private Sub TmEditor_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
' Timer deaktivieren
AutoSaveTimer.Stop()
HighlightTimer.Stop()
' Speichern von Einstellungen und Daten
SaveSettings()
' Anwendung beenden
Application.Exit()
End Sub
Private Sub AutoSaveTimer_Tick(sender As Object, e As EventArgs) Handles AutoSaveTimer.Tick
If autoSaveEnabled AndAlso TxtEditor.Rtf <> lastTextBeforeSave Then
SaveTextToFile(lastFilePath)
lastTextBeforeSave = TxtEditor.Rtf
End If
End Sub
Private Sub HighlightTimer_Tick(sender As Object, e As EventArgs) Handles HighlightTimer.Tick
RemoveHighlightColor(RichTextBoxFinds.None)
End Sub
Private Sub LoadSettings()
' Zuletzt ausgewählte Schriftgröße laden
If My.Settings.FontSize >= 0 AndAlso My.Settings.FontSize < fontSizes.Count Then
cmbFontSize.SelectedIndex = My.Settings.FontSize
End If
' Zuletzt ausgewählte Schriftart laden
If Not String.IsNullOrEmpty(My.Settings.SelectedFont) AndAlso cmbFontFamily.Items.Contains(My.Settings.SelectedFont) Then
cmbFontFamily.SelectedItem = My.Settings.SelectedFont
End If
' Zuletzt ausgewählte Farbe laden
selectedColor = My.Settings.SelectedColor
' Status des automatischen Speicherns laden
autoSaveEnabled = My.Settings.AutoSaveEnabled
SpeichenAutomatischToolStripMenuItem.Checked = autoSaveEnabled
' Zuletzt geöffneten Text laden, wenn automatisches Speichern aktiviert ist
If autoSaveEnabled AndAlso Not String.IsNullOrEmpty(My.Settings.LastText) Then
TxtEditor.Rtf = My.Settings.LastText
End If
' Zuletzt geöffneten Pfad laden
lastFilePath = My.Settings.LastFilePath
End Sub
Private Sub SaveSettings()
' Zuletzt ausgewählte Schriftgröße speichern
My.Settings.FontSize = cmbFontSize.SelectedIndex
' Zuletzt ausgewählte Schriftart speichern
My.Settings.SelectedFont = cmbFontFamily.SelectedItem.ToString()
' Zuletzt ausgewählte Farbe speichern
My.Settings.SelectedColor = selectedColor
' Status des automatischen Speicherns speichern
My.Settings.AutoSaveEnabled = autoSaveEnabled
' Zuletzt geöffneten Text speichern, wenn automatisches Speichern aktiviert ist
If autoSaveEnabled Then
My.Settings.LastText = TxtEditor.Rtf
End If
' Zuletzt geöffneten Pfad speichern
My.Settings.LastFilePath = lastFilePath
' Einstellungen speichern
My.Settings.Save()
End Sub
Private Sub CmbFontSize_SelectedIndexChanged(sender As Object, e As EventArgs)
' Schriftgröße ändern
If cmbFontSize.SelectedIndex >= 0 AndAlso cmbFontSize.SelectedIndex < fontSizes.Count Then
Dim newSize As Integer = fontSizes(cmbFontSize.SelectedIndex)
TxtEditor.SelectionFont = New Font(TxtEditor.SelectionFont.FontFamily, newSize, TxtEditor.SelectionFont.Style)
End If
End Sub
Private Sub CmbFontFamily_SelectedIndexChanged(sender As Object, e As EventArgs)
' Schriftart ändern
If cmbFontFamily.SelectedItem IsNot Nothing Then
Dim newFont As String = cmbFontFamily.SelectedItem.ToString()
TxtEditor.SelectionFont = New Font(newFont, TxtEditor.SelectionFont.Size, TxtEditor.SelectionFont.Style)
End If
End Sub
Private Sub ColorButton_Click(sender As Object, e As EventArgs)
' Schriftfarbe ändern
Dim btn As Button = DirectCast(sender, Button)
Select Case btn.Name
Case "btnBlack"
selectedColor = Color.Black
Case "btnRed"
selectedColor = Color.Red
Case "btnBlue"
selectedColor = Color.Blue
Case "btnGreen"
selectedColor = Color.Green
End Select
TxtEditor.SelectionColor = selectedColor
End Sub
Private Sub BtnBold_Click(sender As Object, e As EventArgs)
' Fettstil ändern
If TxtEditor.SelectionFont IsNot Nothing Then
Dim currentFont As Font = TxtEditor.SelectionFont
Dim newFontStyle As FontStyle = If(currentFont.Bold, currentFont.Style Xor FontStyle.Bold, currentFont.Style Or FontStyle.Bold)
TxtEditor.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, newFontStyle)
End If
End Sub
Private Sub BtnItalic_Click(sender As Object, e As EventArgs)
' Kursivstil ändern
If TxtEditor.SelectionFont IsNot Nothing Then
Dim currentFont As Font = TxtEditor.SelectionFont
Dim newFontStyle As FontStyle = If(currentFont.Italic, currentFont.Style Xor FontStyle.Italic, currentFont.Style Or FontStyle.Italic)
TxtEditor.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, newFontStyle)
End If
End Sub
Private Sub BtnUnderline_Click(sender As Object, e As EventArgs)
' Unterstrichenstil ändern
If TxtEditor.SelectionFont IsNot Nothing Then
Dim currentFont As Font = TxtEditor.SelectionFont
Dim newFontStyle As FontStyle = If(currentFont.Underline, currentFont.Style Xor FontStyle.Underline, currentFont.Style Or FontStyle.Underline)
TxtEditor.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, newFontStyle)
End If
End Sub
Private Sub RemoveHighlightColor(richTextBoxFinds As RichTextBoxFinds)
' Alle markierten Textstellen ohne Hervorhebungsfarbe zurücksetzen
Dim startPosition As Integer = 0
While True
Dim indexOfStart As Integer = TxtEditor.Find("^[A-Za-z0-9äöüÄÖÜß]+$", startPosition, richTextBoxFinds)
If indexOfStart < 0 Then Exit While
TxtEditor.SelectionStart = indexOfStart
TxtEditor.SelectionLength = 0
TxtEditor.SelectionColor = Color.Black
startPosition = indexOfStart + 1
End While
End Sub
Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem1.Click
Dim saveDialog As New SaveFileDialog With {
.Filter = "RTF-Dateien (*.rtf)|*.rtf|Textdateien (*.txt)|*.txt"
}
If IsRunAsAdmin() Then
saveDialog.Filter &= "|TM Editor-Dateien (*.tmEditor)|*.tmEditor"
End If
If saveDialog.ShowDialog() = DialogResult.OK Then
lastFilePath = saveDialog.FileName
SaveTextToFile(lastFilePath)
Me.Text = Path.GetFileName(lastFilePath) & " - TmEditor"
ToolStripLabel1.Text = "Dokument wurde gespeichert."
End If
End Sub
Private Sub ÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ÖffnenToolStripMenuItem1.Click
OpenFileDialog1.Filter = "TM Editor-Dateien (*.tmEditor)|*.tmEditor|RTF-Dateien (*.rtf)|*.rtf|Textdateien (*.txt)|*.txt"
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
lastFilePath = OpenFileDialog1.FileName
Try
If OpenFileDialog1.FileName.EndsWith(".txt", StringComparison.OrdinalIgnoreCase) Then
TxtEditor.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
ElseIf OpenFileDialog1.FileName.EndsWith(".rtf", StringComparison.OrdinalIgnoreCase) Then
TxtEditor.LoadFile(OpenFileDialog1.FileName)
ElseIf OpenFileDialog1.FileName.EndsWith(".tmEditor", StringComparison.OrdinalIgnoreCase) Then
TxtEditor.LoadFile(OpenFileDialog1.FileName)
Else
MessageBox.Show("Das Dateiformat wird nicht unterstützt.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Me.Text = Path.GetFileName(lastFilePath) & " - TmEditor"
ToolStripLabel1.Text = "Dokument wurde geöffnet."
Catch ex As Exception
MessageBox.Show("Fehler beim Öffnen der Datei: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
ToolStripLabel1.Text = "Fehler beim Öffnen der Datei."
End Try
End If
End Sub
Private Sub BildAusDateiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BildAusDateiToolStripMenuItem.Click
Dim openFileDialog As New OpenFileDialog With {
.Filter = "Bilddateien|*.bmp;*.jpg;*.jpeg;*.gif;*.png",
.Title = "Bild auswählen"
}
If openFileDialog.ShowDialog() = DialogResult.OK Then
Dim imagePath As String = openFileDialog.FileName
InsertImage(imagePath)
' Status-Text anzeigen
ToolStripLabel1.Text = "Bild wurde eingefügt."
End If
End Sub
Private Sub InsertImage(imagePath As String)
Try
Dim originalImage As Image = Image.FromFile(imagePath)
Dim scaleFactor As Single = 0.5 ' Skalierungsfaktor (0.5 bedeutet 50% der Originalgröße)
Dim scaledWidth As Integer = CInt(originalImage.Width * scaleFactor)
Dim scaledHeight As Integer = CInt(originalImage.Height * scaleFactor)
Dim scaledImage As Image = originalImage.GetThumbnailImage(scaledWidth, scaledHeight, Nothing, IntPtr.Zero)
Clipboard.SetDataObject(scaledImage)
' Bild einfügen
TxtEditor.Paste(DataFormats.GetFormat(DataFormats.Bitmap))
' Markierten Text löschen und neuen Zeilenumbruch einfügen
TxtEditor.SelectedText = ""
TxtEditor.SelectedRtf = "{\rtf1\par}"
Catch ex As Exception
MessageBox.Show("Fehler beim Einfügen des Bildes: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub SpeichenAutomatischToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichenAutomatischToolStripMenuItem.Click
autoSaveEnabled = Not autoSaveEnabled
SpeichenAutomatischToolStripMenuItem.Checked = autoSaveEnabled
' Status-Text anzeigen
If autoSaveEnabled Then
ToolStripLabel1.Text = "Automatisches Speichern aktiviert."
lastTextBeforeSave = TxtEditor.Rtf
Else
ToolStripLabel1.Text = "Automatisches Speichern deaktiviert."
End If
End Sub
Private Sub SaveTextToFile(filePath As String)
If Not String.IsNullOrEmpty(filePath) Then
Try
If filePath.EndsWith(".txt", StringComparison.OrdinalIgnoreCase) Then
' Speichern als TXT-Datei
TxtEditor.SaveFile(filePath, RichTextBoxStreamType.PlainText)
ElseIf filePath.EndsWith(".rtf", StringComparison.OrdinalIgnoreCase) Then
' Speichern als RTF-Datei
TxtEditor.SaveFile(filePath)
ElseIf filePath.EndsWith(".tmEditor", StringComparison.OrdinalIgnoreCase) Then
' Speichern als TM Editor-Datei
TxtEditor.SaveFile(filePath)
Else
MessageBox.Show("Das Dateiformat wird nicht unterstützt.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
' Status-Text anzeigen
ToolStripLabel1.Text = "Speichern fehlgeschlagen: Nicht unterstütztes Dateiformat."
Exit Sub
End If
' Status-Text anzeigen
ToolStripLabel1.Text = "Dokument wurde gespeichert."
Catch ex As Exception
MessageBox.Show("Fehler beim Speichern der Datei: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
' Status-Text anzeigen
ToolStripLabel1.Text = "Speichern fehlgeschlagen."
End Try
Else
SpeichernToolStripMenuItem_Click(Nothing, Nothing)
End If
End Sub
Private Sub NewDocument()
TxtEditor.Clear()
End Sub
Private Sub NeuToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuToolStripMenuItem1.Click
' Neues Dokument erstellen
NewDocument()
' Status-Text anzeigen
ToolStripLabel1.Text = "Neues Dokument wurde erstellt."
End Sub
Private Function IsRunAsAdmin() As Boolean
' Überprüfen, ob das Programm mit Administratorrechten ausgeführt wird
Dim identity As WindowsIdentity = WindowsIdentity.GetCurrent()
Dim principal As New WindowsPrincipal(identity)
Return principal.IsInRole(WindowsBuiltInRole.Administrator)
End Function
Private Sub RestartAsAdmin()
' Überprüfen, ob das Programm bereits mit Administratorrechten ausgeführt wird
If Not IsRunAsAdmin() Then
' Meldung anzeigen, um Benutzer zu fragen, ob das Programm als Administrator neu gestartet werden soll
Dim result As DialogResult = MessageBox.Show("Möchten Sie das Programm als Administrator neu starten?", "Administratorrechte erforderlich", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = DialogResult.Yes Then
' Programm neu starten und als Administrator ausführen
Dim startInfo As New ProcessStartInfo() With {
.UseShellExecute = True,
.WorkingDirectory = Environment.CurrentDirectory,
.FileName = Application.ExecutablePath,
.Verb = "runas"
}
Try
' Neustart als Administrator
Process.Start(startInfo)
' Anwendung beenden
Application.Exit()
Return
Catch ex As Exception
' Fehlermeldung anzeigen, wenn der Neustart als Administrator fehlschlägt
MessageBox.Show("Fehler beim Starten des Programms als Administrator: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
End If
End Sub
Private Sub TbZoomIn_Click(sender As Object, e As EventArgs) Handles tbZoomIn.Click
If TxtEditor.ZoomFactor = 63 Then
Exit Sub
Else
TxtEditor.ZoomFactor = TxtEditor.ZoomFactor + 1
End If
End Sub
Private Sub TbZoomOut_Click(sender As Object, e As EventArgs) Handles tbZoomOut.Click
If TxtEditor.ZoomFactor = 1 Then
Exit Sub
Else
TxtEditor.ZoomFactor = TxtEditor.ZoomFactor - 1
End If
End Sub
' Ereignishandler für Tastatureingaben hinzufügen
Private Sub TxtEditor_KeyDown(sender As Object, e As KeyEventArgs)
If e.Control Then
If e.KeyCode = Keys.Oemplus Then
TbZoomIn_Click(Nothing, Nothing)
ElseIf e.KeyCode = Keys.OemMinus Then
TbZoomOut_Click(Nothing, Nothing)
End If
End If
lblCharacterCount.Text = "Zeichenanzahl: " & TxtEditor.TextLength.ToString()
End Sub
Private Sub BtnJustify_Click(sender As Object, e As EventArgs) Handles btnJustify.Click
TxtEditor.SelectionAlignment = HorizontalAlignment.Left
End Sub
Private Sub BtnCenterAlign_Click(sender As Object, e As EventArgs) Handles btnCenterAlign.Click
TxtEditor.SelectionAlignment = HorizontalAlignment.Center
End Sub
Private Sub BtnRightAlign_Click(sender As Object, e As EventArgs) Handles btnRightAlign.Click
TxtEditor.SelectionAlignment = HorizontalAlignment.Right
End Sub
End Class

RodFromGermany · 13. Mai 2024, 05:01

@Thiemo1991 In welcher Zeile Deines Codes kommt die Exception?

Thiemo1991 · 13. Mai 2024, 06:02

In Zeile 181 kommt der "Fehler".

RodFromGermany · 13. Mai 2024, 09:23

Zeile 181 ist eine Kommentarzeile.
Setz da mal einen Haltepunkt drauf und überzeuge Dich davon, dass in den Variablen die richtigen Werte drin stehen.

eigener vb net Texteditor: Funktionen erweitern

eigener vb net Texteditor: Funktionen erweitern

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Haudruferzappeltnoch schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

Tags

Ähnliche Themen

7 Benutzer haben hier geschrieben