[VB08 TUT]Simpler TextEditor

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

    • [VB08 TUT]Simpler TextEditor

      Hey Ho Coreler :D

      Ich möchte euch ein paar kleine spielereien in Visual Basic 2008 Für neulinge zeigen und Heute ist der Editor dran :D

      Fangen wir mit den sachen an was wir brauchen :)

      [SIZE="5"][COLOR="Blue"].::Wir Brauchen::.[/COLOR][/SIZE]
      1xMenuStrip
      1xTextbox
      1xOpenFileDialog
      1xSaveFileDialog
      1xFontDialog
      1xColorDialog
      Ja damit Klappt es schon :D

      [SIZE="5"][COLOR="Blue"].::Aufbau und Vorbereitung::[/COLOR][/SIZE]
      Platziert die textbox irgendwo auf eurer Form und geht auf den kleinen pfeil Über der Textbox.
      Macht einen Harcken bei Multiline und Vergrößert eure textbox Auf die Ganze Fläche die ihr zur Verfügung habt.

      Fügt das MenüStrip ein und Macht ein neues item nent dies einfach "Datei" so wie es bei den meisten Programmen ist
      nun kommen wir zu dem inhalt Dieses Items Macht in den DateiToolStripMenuItem drei weiter item und nent das erste Öfnnen das Zweite Speichern und Das Dritte Beenden.
      nun macht ihr ein neuen Menü Strip Item Wie das datei Item und nent es Format,Edit oder sonst was
      Hier kommen follgende Item rein:
      -Schriftart
      -Farbe
      nun Könnt ihr noch ein MenüStrip item mit dem Namen Info machen und in dies nocheinmal Info.
      Platziert die restlichen Dialoge irgenwo auf eurer Form.
      So nun eit ihr Vorbereitet und Wir Können anfangen...

      [SIZE="5"][COLOR="Blue"].::Der Code::.[/COLOR][/SIZE]
      Klickt zwei mal auf eure Form damit der Code erscheint. Er sollte jetzt so ausehen
      Public Class Form1

      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


      End Sub


      Nun Macht ihr Folgendes...
      Ihr schreibt über Public Class Form1 Imports System.IO
      dann sind wir beireit Für den eigentlich Code:
      Wir fangen mit dem Laden Der Form an Das ist dieser bereich:

      Private pfad As String

      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


      End Sub


      Hier Fügt ihr diesen Code ein:

      With OpenFileDialog1
      .DefaultExt = "txt"
      .Filter = "Textdateien (*.txt)|*.txt|Allei Dateien (*.*)|*.*)"
      .CheckFileExists = True
      .InitialDirectory = Application.ExecutablePath
      .Title = "Bitte öffnen Sie eine Textdatei!"
      End With
      With SaveFileDialog1
      .DefaultExt = "txt"
      .FileName = "Beispiel.txt"
      .AddExtension = True
      .OverwritePrompt = True
      .ValidateNames = True
      .Filter = "Textdateien (*.txt)|*.txt|Allei Dateien (*.*)|*.*)"
      .InitialDirectory = Application.ExecutablePath
      .Title = "Bitte speichern Sie eine Textdatei!"
      End With

      aber erstma ganz langsam was macht dieer teil hier eigentlich?

      With OpenFileDialog1
      .DefaultExt = "txt"
      .Filter = "Textdateien (*.txt)|*.txt|Allei Dateien (*.*)|*.*)"
      .CheckFileExists = True
      .InitialDirectory = Application.ExecutablePath
      .Title = "Bitte öffnen Sie eine Textdatei!"
      End With

      Dieser Bereich Kümmert sich um unseren Open File Dialog das er Gleich dei Dateien mit der .Txt endung rausfisht und nicht gleich alle daten die auf dem Pc sind anzeigt
      Den Titel Könnt ihr natürlich beliebig ändern^^

      With SaveFileDialog1
      .DefaultExt = "txt"
      .FileName = "Beispiel.txt"
      .AddExtension = True
      .OverwritePrompt = True
      .ValidateNames = True
      .Filter = "Textdateien (*.txt)|*.txt|Allei Dateien (*.*)|*.*)"
      .InitialDirectory = Application.ExecutablePath
      .Title = "Bitte speichern Sie eine Textdatei!"

      Hier passiert eigentlich das gleich nur das es hier um unsreren saveFileDialog geht und das er schon einen alternativen Namen der datei angibt und Die einstellungen zum Überschreiben u.s.w. Hat
      Den Titel Dürft ihr hier auch ändern ;D.
      Springen wir einmal zum MenüStrip
      Klickt zwei mal auf euer Item Beenden und Fügt den Code:
      Me.Close()
      ein.
      Dies ist der Befehl das die Form sich schließt^^
      Bei euren Open Item kommt Folgender Code:
      If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
      pfad = OpenFileDialog1.FileName
      TextBox1.Text = String.Empty
      Try
      TextBox1.Text = File.ReadAllText(pfad)
      Catch
      End Try
      End If

      Dies ist eine If-Anweisung die Den Programm die Anweisung gibt das die in den OpenFile Dialog gewählte Daite eingelesen und der Text in Die Textbox Ausgegeben werden soll.
      Doppelklickt auf das Save Item und Fügt Dies hier ein:
      If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
      pfad = SaveFileDialog1.FileName
      File.WriteAllText(pfad, TextBox1.Text)
      End If

      Dies Gibt dem Programm den Befehl Den inhalt Von der Textbox in ein Textdocument zu Speichern.

      nun Kommen wir zu unseren Schriftarten Item Dort Kommt Dieser Code rein:
      FontDialog1.ShowDialog()
      TextBox1.Font = FontDialog1.Font

      Sehr Simpel Er soll den FontDialog Öffnen und die Schriftart die dort ausgewählt wird als Schriftart für die Textbox benutzen.

      Nun kommt uner Farbe Item...
      Dort kommt folgender Code rein:
      ColorDialog1.ShowDialog()
      TextBox1.ForeColor = ColorDialog1.Color

      Wieder einfach er gibt den Befehl den ColorDialog anzuzeigen und die dort ausgewählte farbe als Farbe für den Textbox Text zu nehmen.

      ForeColor = Die Farbe der Schrift

      nun haben wir noch unser Info Item
      Dort amcht ihr einfach eine mesage box rein:
      MsgBox("Blabla euer Copyright xD")


      is ja wohl klar wo euer Copyright rein kommt ;D

      Hier habt ihr Jetzt noch einmal den kompletten Code auf einen Blick:::
      "Code :D"

      Imports System.IO
      Public Class Form1

      Private pfad As String

      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      With OpenFileDialog1
      .DefaultExt = "txt"
      .Filter = "Textdateien (*.txt)|*.txt|Allei Dateien (*.*)|*.*)"
      .CheckFileExists = True
      .InitialDirectory = Application.ExecutablePath
      .Title = "Bitte öffnen Sie eine Textdatei!"
      End With
      With SaveFileDialog1
      .DefaultExt = "txt"
      .FileName = "Beispiel.txt"
      .AddExtension = True
      .OverwritePrompt = True
      .ValidateNames = True
      .Filter = "Textdateien (*.txt)|*.txt|Allei Dateien (*.*)|*.*)"
      .InitialDirectory = Application.ExecutablePath
      .Title = "Bitte speichern Sie eine Textdatei!"
      End With
      End Sub
      Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
      Me.Close()
      End Sub

      Private Sub PeichernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PeichernToolStripMenuItem.Click
      If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
      pfad = SaveFileDialog1.FileName
      File.WriteAllText(pfad, TextBox1.Text)
      End If
      End Sub

      Private Sub FfnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FfnenToolStripMenuItem.Click
      If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
      pfad = OpenFileDialog1.FileName
      TextBox1.Text = String.Empty
      Try
      TextBox1.Text = File.ReadAllText(pfad)
      Catch
      End Try
      End If
      End Sub
      Private Sub FontsEinstellenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontsEinstellenToolStripMenuItem.Click
      FontDialog1.ShowDialog()
      TextBox1.Font = FontDialog1.Font
      End Sub

      Private Sub InfoToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InfoToolStripMenuItem1.Click
      MsgBox("create by MoMo für Coco mein schatzi")
      End Sub

      Private Sub ColorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColorToolStripMenuItem.Click
      ColorDialog1.ShowDialog()
      TextBox1.ForeColor = ColorDialog1.Color
      End Sub
      End Class


      Ich hoffe das ich euch ein wenig damit Helfen konnte und viel erfolg weiterhin...

      ~LG MemphisCore~
      PS: Gute Nacht Welt und alle die sie befölkern :D


    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )