[Vb.net] Notepad[Aufbau]

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    • [Vb.net] Notepad[Aufbau]

      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


      1. Wir Erstellen das Projekt
      2. Vergrößern die Form mal etwas
      3. Fügen die 7 Oben genannten dinge in die Form ein.
      4. Machen Rechtsklick auf den Menüstrip und wählen das "StandartElemente Einfügen" aus.

      "Press Me"

      Meüstrip
      -Datei
      --Neu

      PHP-Quellcode

      1. Mymessagebox = MsgBox("Your text document is not saved, Do you want to save it?", MsgBoxStyle.YesNo, "Text Writer")
      2. If Mymessagebox = MsgBoxResult.Yes Then
      3. SaveFileDialog1.ShowDialog()
      4. If SaveFileDialog1.FileName <> "" Then
      5. FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
      6. PrintLine(1, RichTextBox1.Text)
      7. FileClose(1)
      8. End If
      9. Else
      10. MsgBox("Your new text document is ready", MsgBoxStyle.Information, "Text Writer")
      11. RichTextBox1.Text = ""
      12. End If
      Alles anzeigen
      --Öffnen

      PHP-Quellcode

      1. Dim Open As New OpenFileDialog()
      2. Dim myStreamReader As System.IO.StreamReader
      3. Open.Filter = "Text [*.txt*]|*.txt|InC [*.inc*]|*.inc|All Files [*.*]|*.*"
      4. Open.CheckFileExists = True
      5. Open.Title = "Datei Öffnen | © Masquerade Room"
      6. Open.ShowDialog(Me)
      7. Try
      8. Open.OpenFile()
      9. myStreamReader = System.IO.File.OpenText(Open.FileName)
      10. RichTextBox1.Text = myStreamReader.ReadToEnd()
      11. Catch ex As Exception
      12. End Try
      Alles anzeigen
      --Speichern

      PHP-Quellcode

      1. SaveFileDialog1.ShowDialog()
      2. If SaveFileDialog1.FileName <> "" Then
      3. FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
      4. PrintLine(1, RichTextBox1.Text)
      5. FileClose(1)
      6. End If
      --Speichern unter

      PHP-Quellcode

      1. Dim Save As New SaveFileDialog()
      2. Dim myStreamWriter As System.IO.StreamWriter
      3. Save.Filter = "Text [*.txt*]|*.txt|inc [*.inc*]|*.inc|All Files [*.*]|*.*"
      4. Save.CheckPathExists = True
      5. Save.Title = "Datei Speichern | © Masquerade Room"
      6. Save.ShowDialog(Me)
      7. Try
      8. myStreamWriter = System.IO.File.AppendText(Save.FileName)
      9. myStreamWriter.Write(RichTextBox1.Text)
      10. myStreamWriter.Flush()
      11. Catch ex As Exception
      12. End Try
      Alles anzeigen
      --Drucken

      PHP-Quellcode

      1. N/A
      --Seitenansicht

      PHP-Quellcode

      1. N/A
      --Beenden

      PHP-Quellcode

      1. Application.Exit
      -Bearbeiten
      --Rückgängig

      PHP-Quellcode

      1. RichTextBox1.Undo()
      --Vorwärts

      PHP-Quellcode

      1. RichTextBox1.Redo()
      --Ausschneiden

      PHP-Quellcode

      1. RichTextBox1.Cut()
      --Kopieren

      PHP-Quellcode

      1. RichTextBox1.Copy()
      --Einfügen

      PHP-Quellcode

      1. RichTextBox1.Paste()
      --Alles Auswählen

      PHP-Quellcode

      1. RichTextBox1.SelectAll()
      So Fortsetzung

      -Extras
      --Anpassen Form
      ---None

      PHP-Quellcode

      1. Me.FormBorderStyle = FormBorderStyle.None
      ---Fixed Single

      PHP-Quellcode

      1. Me.FormBorderStyle = FormBorderStyle.FixedSingle
      ---Fixed 3D

      PHP-Quellcode

      1. Me.FormBorderStyle = FormBorderStyle.Fixed3D
      ---Fixed Dialog

      PHP-Quellcode

      1. Me.FormBorderStyle = FormBorderStyle.FixedDialog
      ---Sizable

      PHP-Quellcode

      1. Me.FormBorderStyle = FormBorderStyle.Sizable
      ---Fixed Tool Window

      PHP-Quellcode

      1. Me.FormBorderStyle = FormBorderStyle.FixedToolWindow
      ---Sizable Tool Window

      PHP-Quellcode

      1. Me.FormBorderStyle = FormBorderStyle.SizableToolWindow
      --Optionen
      ---Schrift

      PHP-Quellcode

      1. Dim FS As New FontDialog
      2. Try
      3. FS.ShowDialog()
      4. RichTextBox1.Font = FS.Font
      5. Catch ex As Exception
      6. End Try
      ---Farbe

      PHP-Quellcode

      1. Dim FC As New ColorDialog
      2. Try
      3. FC.ShowDialog()
      4. RichTextBox1.ForeColor = FC.Color
      5. Catch ex As Exception
      6. End Try
      --Text Position
      ---Links

      PHP-Quellcode

      1. RichTextBox1.RightToLeft = Windows.Forms.RightToLeft.No
      ---Rechts

      PHP-Quellcode

      1. RichTextBox1.RightToLeft = Windows.Forms.RightToLeft.Yes

      -Hilfe
      --Suchen

      PHP-Quellcode

      1. Try
      2. searchString = InputBox("Suchen nach:")
      3. Dim str As String = RichTextBox1.Text
      4. Dim i As Integer = str.IndexOf(searchString, 0)
      5. If i > -1 Then
      6. RichTextBox1.SelectionStart = i
      7. RichTextBox1.SelectionLength = searchString.Length
      8. End If
      9. If Not RichTextBox1.SelectionStart = RichTextBox1.Text.Length Then
      10. WeitersuchenToolStripMenuItem.Enabled = True
      11. End If
      12. Catch exc As Exception
      13. MessageBox.Show(exc.Message, exc.Source, MessageBoxButtons.OK, MessageBoxIcon.Error)
      14. End Try
      Alles anzeigen
      --Weitersuchen

      PHP-Quellcode

      1. Try
      2. Dim str As String = RichTextBox1.Text
      3. Dim i As Integer = str.IndexOf(searchString, RichTextBox1.SelectionStart + 1)
      4. If i > -1 Then
      5. RichTextBox1.SelectionStart = i
      6. RichTextBox1.SelectionLength = searchString.Length
      7. End If
      8. If Not RichTextBox1.SelectionStart = RichTextBox1.Text.Length Then
      9. WeitersuchenToolStripMenuItem.Enabled = True
      10. End If
      11. Catch exc As Exception
      12. MessageBox.Show(exc.Message, exc.Source, MessageBoxButtons.OK, MessageBoxIcon.Error)
      13. End Try
      Alles anzeigen
      --Info

      PHP-Quellcode

      1. Form2.Show()
      Das war alles Über dem Menüstrip.

      Nun zu den Contexmenüstrip.

      -Ausschneiden

      PHP-Quellcode

      1. RichTextBox1.Cut()
      -Kopieren

      PHP-Quellcode

      1. RichTextBox1.Copy()
      -Einfügen

      PHP-Quellcode

      1. 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-Quellcode

      1. Private Sub RichTextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyDown
      2. Dim index As Integer = RichTextBox1.SelectionStart
      3. tsslStatusText.Text = "Zeile " & RichTextBox1.GetLineFromCharIndex(index) & ", Spalte " & RichTextBox1.SelectionStart - RichTextBox1.GetFirstCharIndexOfCurrentLine + 1
      4. End Sub
      5. Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
      6. bChanged = True
      7. End Sub

      Nun zu den letzten:
      Das kommt unter den

      PHP-Quellcode

      1. Public Class Form1

      PHP-Quellcode

      1. Dim Mymessagebox
      2. Dim bChanged As Boolean = False
      3. Public searchString As String = System.DBNull.Value.ToString


      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
    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )

    • Rix3r;229344 schrieb:

      Es seht obebndrüber was die befehle erwirken x)

      Okay, ich drücke mich anders aus: Ich fress nen Besen, wenn irgendein Anfänger, der das Tutorial ernsthaft als solches verwenden möchte, am Ende irgendwas am Programm verändern kann bzw. den kompletten Quelltext versteht. ;) Denn mehr als "Füge diesen Quelltext dort ein" ist das Tutorial im Moment nicht...