Hallo Liebe Community.
Heute schreibe ich meinen allerersten Guide über Vb.net wie man einen einfachen Editor macht mit den Grundfunktionen.
Wir brauchen:
"Press Me"
Meüstrip
-Datei
--Neu
Alles anzeigen
--Öffnen
Alles anzeigen
--Speichern
--Speichern unter
Alles anzeigen
--Drucken --Seitenansicht --Beenden -Bearbeiten
--Rückgängig--Vorwärts--Ausschneiden--Kopieren--Einfügen--Alles AuswählenSo Fortsetzung
-Extras
--Anpassen Form
---None---Fixed Single---Fixed 3D---Fixed Dialog---Sizable---Fixed Tool Window---Sizable Tool Window--Optionen
---Schrift
---Farbe
--Text Position
---Links---Rechts
-Hilfe
--Suchen
Alles anzeigen
--Weitersuchen
Alles anzeigen
--InfoDas war alles Über dem Menüstrip.
Nun zu den Contexmenüstrip.
-Ausschneiden-Kopieren-EinfügenNun 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:
Nun zu den letzten:
Das kommt unter den
So 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
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.
Meüstrip
-Datei
--Neu
PHP-Quellcode
- 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
PHP-Quellcode
- 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
PHP-Quellcode
- 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 Try
--Rückgängig--Vorwärts--Ausschneiden--Kopieren--Einfügen--Alles AuswählenSo Fortsetzung
-Extras
--Anpassen Form
---None---Fixed Single---Fixed 3D---Fixed Dialog---Sizable---Fixed Tool Window---Sizable Tool Window--Optionen
---Schrift
---Links---Rechts
-Hilfe
--Suchen
PHP-Quellcode
- 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
PHP-Quellcode
- 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
Nun zu den Contexmenüstrip.
-Ausschneiden-Kopieren-EinfügenNun 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-Quellcode
- 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
So 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