Hallo Liebe Community.
Heute schreibe ich meinen allerersten Guide über Vb.net wie man einen einfachen Editor macht mit den Grundfunktionen.
Wir brauchen:
- Menüstrip
- TextBox
- StatusStrip
- OpenFileDialog
- SaveFileDialog
- FontDialog
- ContexMenüStrip
- Wir Erstellen das Projekt
- Vergrößern die Form mal etwas
- Fügen die 7 Oben genannten dinge in die Form ein.
- Machen Rechtsklick auf den Menüstrip und wählen das "StandartElemente Einfügen" aus.
Press Me
Meüstrip
-Datei
--Neu
PHP
Mymessagebox = MsgBox("Your text document is not saved, Do you want to save it?", MsgBoxStyle.YesNo, "Text Writer")
If Mymessagebox = MsgBoxResult.Yes Then
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName <> "" Then
FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
PrintLine(1, RichTextBox1.Text)
FileClose(1)
End If
Else
MsgBox("Your new text document is ready", MsgBoxStyle.Information, "Text Writer")
RichTextBox1.Text = ""
End If--Öffnen
PHP
Dim Open As New OpenFileDialog()
Dim myStreamReader As System.IO.StreamReader
Open.Filter = "Text [*.txt*]|*.txt|InC [*.inc*]|*.inc|All Files [*.*]|*.*"
Open.CheckFileExists = True
Open.Title = "Datei Öffnen | © Masquerade Room"
Open.ShowDialog(Me)
Try
Open.OpenFile()
myStreamReader = System.IO.File.OpenText(Open.FileName)
RichTextBox1.Text = myStreamReader.ReadToEnd()
Catch ex As Exception
End Try--Speichern
PHP
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName <> "" Then
FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
PrintLine(1, RichTextBox1.Text)
FileClose(1)
End If--Speichern unter
PHP
Dim Save As New SaveFileDialog()
Dim myStreamWriter As System.IO.StreamWriter
Save.Filter = "Text [*.txt*]|*.txt|inc [*.inc*]|*.inc|All Files [*.*]|*.*"
Save.CheckPathExists = True
Save.Title = "Datei Speichern | © Masquerade Room"
Save.ShowDialog(Me)
Try
myStreamWriter = System.IO.File.AppendText(Save.FileName)
myStreamWriter.Write(RichTextBox1.Text)
myStreamWriter.Flush()
Catch ex As Exception
End TryPHP
N/A--Seitenansicht
PHP
N/A--Beenden
PHP
Application.Exit-Bearbeiten
--Rückgängig
PHP
RichTextBox1.Undo()--Vorwärts
PHP
RichTextBox1.Redo()--Ausschneiden
PHP
RichTextBox1.Cut()--Kopieren
PHP
RichTextBox1.Copy()--Einfügen
PHP
RichTextBox1.Paste()--Alles Auswählen
PHP
RichTextBox1.SelectAll()So Fortsetzung
-Extras
--Anpassen Form
---None
PHP
Me.FormBorderStyle = FormBorderStyle.None---Fixed Single
PHP
Me.FormBorderStyle = FormBorderStyle.FixedSingle---Fixed 3D
PHP
Me.FormBorderStyle = FormBorderStyle.Fixed3D---Fixed Dialog
PHP
Me.FormBorderStyle = FormBorderStyle.FixedDialog---Sizable
PHP
Me.FormBorderStyle = FormBorderStyle.Sizable---Fixed Tool Window
PHP
Me.FormBorderStyle = FormBorderStyle.FixedToolWindow---Sizable Tool Window
PHP
Me.FormBorderStyle = FormBorderStyle.SizableToolWindow--Optionen
---Schrift
PHP
Dim FS As New FontDialog
Try
FS.ShowDialog()
RichTextBox1.Font = FS.Font
Catch ex As Exception
End Try---Farbe
PHP
Dim FC As New ColorDialog
Try
FC.ShowDialog()
RichTextBox1.ForeColor = FC.Color
Catch ex As Exception
End Try--Text Position
---Links
PHP
RichTextBox1.RightToLeft = Windows.Forms.RightToLeft.No---Rechts
PHP
RichTextBox1.RightToLeft = Windows.Forms.RightToLeft.Yes
-Hilfe
--Suchen
PHP
Try
searchString = InputBox("Suchen nach:")
Dim str As String = RichTextBox1.Text
Dim i As Integer = str.IndexOf(searchString, 0)
If i > -1 Then
RichTextBox1.SelectionStart = i
RichTextBox1.SelectionLength = searchString.Length
End If
If Not RichTextBox1.SelectionStart = RichTextBox1.Text.Length Then
WeitersuchenToolStripMenuItem.Enabled = True
End If
Catch exc As Exception
MessageBox.Show(exc.Message, exc.Source, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try--Weitersuchen
PHP
Try
Dim str As String = RichTextBox1.Text
Dim i As Integer = str.IndexOf(searchString, RichTextBox1.SelectionStart + 1)
If i > -1 Then
RichTextBox1.SelectionStart = i
RichTextBox1.SelectionLength = searchString.Length
End If
If Not RichTextBox1.SelectionStart = RichTextBox1.Text.Length Then
WeitersuchenToolStripMenuItem.Enabled = True
End If
Catch exc As Exception
MessageBox.Show(exc.Message, exc.Source, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try--Info
PHP
Form2.Show()Das war alles Über dem Menüstrip.
Nun zu den Contexmenüstrip.
-Ausschneiden
PHP
RichTextBox1.Cut()-Kopieren
PHP
RichTextBox1.Copy()-Einfügen
PHP
RichTextBox1.Paste()Nun zu den wie wir das Contexmenüstrip in die Richtextbox einbauen.
Wir klicken die Richtextbox in der Form an und gehen zum Eigenschaften Fenster.
Suchen dort nach Contextmenüstrip und machen Doppelcick und Contexmenüstrip ist in die Richtextbox eingebaut worden.
Statusstrip:
PHP
Private Sub RichTextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyDown
Dim index As Integer = RichTextBox1.SelectionStart
tsslStatusText.Text = "Zeile " & RichTextBox1.GetLineFromCharIndex(index) & ", Spalte " & RichTextBox1.SelectionStart - RichTextBox1.GetFirstCharIndexOfCurrentLine + 1
End Sub
Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
bChanged = True
End Sub
Nun zu den letzten:
Das kommt unter den
PHP
Public Class Form1PHP
Dim Mymessagebox
Dim bChanged As Boolean = False
Public searchString As String = System.DBNull.Value.ToStringSo das war alles über den Notepad was ich weiß. Source kommt gleich.
Der Guide wird noch ausgebaut.
Screens etc.
PS: Bin Anfänger.
mfg
Nintendo94