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 StringPrivate 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 Form1Private 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 SubPrivate 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 SubPrivate 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 SubPrivate 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 SubPrivate 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