vb net Texteditor

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

vb net Texteditor

vb net Texteditor

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Haudruferzappeltnoch schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Benutzer online 2

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben