Hoihoi,
Vandaag gaan we een simpel kladblok maken.
Succes
Stap 1:
Maak een project genaamd SimpelKladblok.
Afbeelding niet beschikbaarDe bron kon niet worden geladen (img534.imageshack.us).Bron openen ↗
Stap 2:
Plaats een MenuStrip en een RichtTextBox.
Afbeelding niet beschikbaarDe bron kon niet worden geladen (img402.imageshack.us).Bron openen ↗
Klik 1x op de RichTextBox. Ga dan naar properties (rechts onder). Zoek Dock en zet deze op fill zodat de textbox mee rekt met het venster.
Afbeelding niet beschikbaarDe bron kon niet worden geladen (img30.imageshack.us).Bron openen ↗
Klik op de MenuStrip en voeg de tekst Bestand toe.
Dan zie je Type here eronder. Daar voegen we Openen en Opslaan aan toe.
Afbeelding niet beschikbaarDe bron kon niet worden geladen (img820.imageshack.us).Bron openen ↗
Typ nu naast bestand Opties. Zet daaronder Lettertype & Over
Afbeelding niet beschikbaarDe bron kon niet worden geladen (img560.imageshack.us).Bron openen ↗
Stap 3:
We gaan nu maken dat je bestanden kunt openen. Klik 1x op bestand, en klik 2x op openen. Je krijgt nu deze code:
We gaan terug naar de designer, daar voegen we 1 SaveFileDialog toe, en 1 OpenFileDialog.
We gaan terug naar de code. Daar voegen we dit stukje code toe.
Dan klik je in de designer 2x op OpenFileDialog. Je krijgt dan deze code:
Nu gaan we zorgen dat de tekst van het bestand in de RichTextbox komt. Dat kan met deze code:
Je kan nu bestanden openen Nu moeten we ze nog kunnen opslaan.
Stap 4:
Nu gaan we zorgen dat je bestanden kunt opslaan. Dat kan met SaveFileDialog. Klik 1x op Bestand en dan 2x op opslaan.
Je krijgt dan deze code:
Om bestanden op te slaan gebruik je deze code:
We gaan naar de designer, klik 2x op SaveFileDialog. Dan krijg je deze code:
Nu gaan we maken dat je bestanden kunt opslaan. Dat kan met deze code:
We kunnen nu openen en opslaan
Stap 5:
Lettertype aanpassen. Hiervoor moeten we een nieuw form toevoegen.
Rechterklik op SimpelKladblok (rechtsbovenaan). Klik op Add -> Windows Form.
Afbeelding niet beschikbaarDe bron kon niet worden geladen (img263.imageshack.us).Bron openen ↗
Ga terug naar Form1, klik 1x op opties, en 2x op Lettertype. Dan krijg je een code, daar voeg je deze code aan toe form2.show()
Je ziet nu nog een form. We gaan nu zorgen dat je keuzes kan maken uit lettertype en grootte.
Voeg in het nieuwe form 2 listboxen, en 1 button toe.
Afbeelding niet beschikbaarDe bron kon niet worden geladen (img4.imageshack.us).Bron openen ↗
We gaan nu zorgen dat in de 1 eerste listbox, de lettertypes verschijnen.
Klik 2x op het form. Je krijgt deze code:
Voeg boven Public Class Form2 Imports System.Drawing.Text toe.
We gaan nu de lettertypes ophalen en in de listbox zetten. Dat kan met deze code:
We gaan nu zorgen dat je kunt kiezen uit groottes van text tussen 5 & 15. Voeg deze code toe bij de andere code.
Klik op button1, en vul bij text in: Aanpassen Als het goed is krijg je bij het openen van dit form dit:
Afbeelding niet beschikbaarDe bron kon niet worden geladen (img709.imageshack.us).Bron openen ↗
We gaan terug en klikken 2x op de button Aanpassen. Je krijgt dan deze code:
We gaan zorgen dat deze bij de textbox word toegepast. Dat kan met de code:
Stap 6:
Oké, we kunnen nu ook lettertype e.d. instellen. Nu nog een over schermpje. We gaan weer een nieuw form toevoegen.Afbeelding niet beschikbaarDe bron kon niet worden geladen (img263.imageshack.us).Bron openen ↗
We krijgen weer een form, daar voegen we 1 label en 1 button aan toe.
Afbeelding niet beschikbaarDe bron kon niet worden geladen (img232.imageshack.us).Bron openen ↗
Dubbelklik op de button, en voeg dan deze code toe:
Ga naar Form1. Klik 1x op Opties, en dan 2x op Over.
Voeg deze code toe:
En we zijn klaar
Voor de luilakken:Form2.VB:
Form3.VB:
Nog ideeën voor tuts? Plaats ze in dit topic of stuur een PM
Vandaag gaan we een simpel kladblok maken.
Succes
Stap 1:
Maak een project genaamd SimpelKladblok.
Afbeelding niet beschikbaarDe bron kon niet worden geladen (img534.imageshack.us).Bron openen ↗Stap 2:
Plaats een MenuStrip en een RichtTextBox.
Afbeelding niet beschikbaarDe bron kon niet worden geladen (img402.imageshack.us).Bron openen ↗Klik 1x op de RichTextBox. Ga dan naar properties (rechts onder). Zoek Dock en zet deze op fill zodat de textbox mee rekt met het venster.
Afbeelding niet beschikbaarDe bron kon niet worden geladen (img30.imageshack.us).Bron openen ↗Klik op de MenuStrip en voeg de tekst Bestand toe.
Dan zie je Type here eronder. Daar voegen we Openen en Opslaan aan toe.
Afbeelding niet beschikbaarDe bron kon niet worden geladen (img820.imageshack.us).Bron openen ↗Typ nu naast bestand Opties. Zet daaronder Lettertype & Over
Afbeelding niet beschikbaarDe bron kon niet worden geladen (img560.imageshack.us).Bron openen ↗Stap 3:
We gaan nu maken dat je bestanden kunt openen. Klik 1x op bestand, en klik 2x op openen. Je krijgt nu deze code:
Public Class Form1
Private Sub OpenenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenenToolStripMenuItem.Click
End Sub
End ClassWe gaan terug naar de designer, daar voegen we 1 SaveFileDialog toe, en 1 OpenFileDialog.
We gaan terug naar de code. Daar voegen we dit stukje code toe.
OpenFileDialog1.RestoreDirectory = True
Filters instellen:
OpenFileDialog1.Filter = "Tekst bestanden|*.txt|PHP bestanden|*.php|HTML bestanden|*.html"
Dialoog weergeven:
OpenFileDialog1.ShowDialog()Dan klik je in de designer 2x op OpenFileDialog. Je krijgt dan deze code:
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
End SubNu gaan we zorgen dat de tekst van het bestand in de RichTextbox komt. Dat kan met deze code:
Text toevoegen aan Textbox. Bestand uitlezen:
RichTextBox1.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.InitialDirectory & OpenFileDialog1.FileName)Je kan nu bestanden openen
Nu moeten we ze nog kunnen opslaan.Stap 4:
Nu gaan we zorgen dat je bestanden kunt opslaan. Dat kan met SaveFileDialog. Klik 1x op Bestand en dan 2x op opslaan.
Je krijgt dan deze code:
Private Sub OpslaanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpslaanToolStripMenuItem.Click
End SubOm bestanden op te slaan gebruik je deze code:
SaveFileDialog1.RestoreDirectory = True
Filters instellen hoe je het kan opslaan:
SaveFileDialog1.Filter = "Tekst bestand|*.txt|PHP bestand|*.php|HTML bestand|*.html"
Dialoog weergeven:
SaveFileDialog1.ShowDialog()We gaan naar de designer, klik 2x op SaveFileDialog. Dan krijg je deze code:
Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
End SubNu gaan we maken dat je bestanden kunt opslaan. Dat kan met deze code:
Bestand opslaan in de goede map, en de tekst erbij voegen :)
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.InitialDirectory & SaveFileDialog1.FileName, RichTextBox1.Text, True)We kunnen nu openen en opslaan
Stap 5:
Lettertype aanpassen. Hiervoor moeten we een nieuw form toevoegen.
Rechterklik op SimpelKladblok (rechtsbovenaan). Klik op Add -> Windows Form.
Afbeelding niet beschikbaarDe bron kon niet worden geladen (img263.imageshack.us).Bron openen ↗Ga terug naar Form1, klik 1x op opties, en 2x op Lettertype. Dan krijg je een code, daar voeg je deze code aan toe form2.show()
Je ziet nu nog een form. We gaan nu zorgen dat je keuzes kan maken uit lettertype en grootte.
Voeg in het nieuwe form 2 listboxen, en 1 button toe.
Afbeelding niet beschikbaarDe bron kon niet worden geladen (img4.imageshack.us).Bron openen ↗We gaan nu zorgen dat in de 1 eerste listbox, de lettertypes verschijnen.
Klik 2x op het form. Je krijgt deze code:
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End ClassVoeg boven Public Class Form2 Imports System.Drawing.Text toe.
We gaan nu de lettertypes ophalen en in de listbox zetten. Dat kan met deze code:
Variabele met geinstalleerde fonts maken
Dim fonts As New InstalledFontCollection
Zorgen dat elk font in de listbox komt:
For Each one As FontFamily In fonts.Families
ListBox1.Items.Add(one.Name)
NextWe gaan nu zorgen dat je kunt kiezen uit groottes van text tussen 5 & 15. Voeg deze code toe bij de andere code.
ListBox2.Items.Add("5")
ListBox2.Items.Add("6")
ListBox2.Items.Add("7")
ListBox2.Items.Add("8")
ListBox2.Items.Add("9")
ListBox2.Items.Add("10")
ListBox2.Items.Add("11")
ListBox2.Items.Add("12")
ListBox2.Items.Add("13")
ListBox2.Items.Add("14")
ListBox2.Items.Add("15")
Zorgen dat altijd iets geselecteerd is:
ListBox1.SetSelected(1, True)
ListBox2.SetSelected(1, True)Klik op button1, en vul bij text in: Aanpassen Als het goed is krijg je bij het openen van dit form dit:
Afbeelding niet beschikbaarDe bron kon niet worden geladen (img709.imageshack.us).Bron openen ↗We gaan terug en klikken 2x op de button Aanpassen. Je krijgt dan deze code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End SubWe gaan zorgen dat deze bij de textbox word toegepast. Dat kan met de code:
Font & grootte aanpassen:
Form1.RichTextBox1.Font = New System.Drawing.Font(ListBox1.SelectedItem.ToString(), ListBox2.SelectedItem.ToString())
Dit dialoogje sluiten:
Me.Hide()Stap 6:
Oké, we kunnen nu ook lettertype e.d. instellen. Nu nog een over schermpje. We gaan weer een nieuw form toevoegen.
Afbeelding niet beschikbaarDe bron kon niet worden geladen (img263.imageshack.us).Bron openen ↗We krijgen weer een form, daar voegen we 1 label en 1 button aan toe.
Afbeelding niet beschikbaarDe bron kon niet worden geladen (img232.imageshack.us).Bron openen ↗Dubbelklik op de button, en voeg dan deze code toe:
Me.hide()Ga naar Form1. Klik 1x op Opties, en dan 2x op Over.
Voeg deze code toe:
Form3.Show()En we zijn klaar
Voor de luilakken:
Spoiler tonen
Form1.VB:
Public Class Form1
Private Sub OpenenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenenToolStripMenuItem.Click
OpenFileDialog1.RestoreDirectory = True
Filters instellen:
OpenFileDialog1.Filter = "Tekst bestanden|*.txt|PHP bestanden|*.php|HTML bestanden|*.html"
Dialoog weergeven:
OpenFileDialog1.ShowDialog()
End Sub
Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
Text toevoegen aan Textbox. Bestand uitlezen:
RichTextBox1.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.InitialDirectory & OpenFileDialog1.FileName)
End Sub
Private Sub OpslaanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpslaanToolStripMenuItem.Click
SaveFileDialog1.RestoreDirectory = True
Filters instellen hoe je het kan opslaan:
SaveFileDialog1.Filter = "Tekst bestand|*.txt|PHP bestand|*.php|HTML bestand|*.html"
Dialoog weergeven:
SaveFileDialog1.ShowDialog()
End Sub
Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
Bestand opslaan in de goede map, en de tekst erbij voegen :)
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.InitialDirectory & SaveFileDialog1.FileName, RichTextBox1.Text, True)
End Sub
Private Sub LettertypeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LettertypeToolStripMenuItem.Click
Form2.Show()
End Sub
Private Sub OverToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OverToolStripMenuItem.Click
Form3.Show()
End Sub
End ClassImports System.Drawing.Text
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Variabele met geinstalleerde fonts maken
Dim fonts As New InstalledFontCollection
Zorgen dat elk font in de listbox komt:
For Each one As FontFamily In fonts.Families
ListBox1.Items.Add(one.Name)
Next
ListBox2.Items.Add("5")
ListBox2.Items.Add("6")
ListBox2.Items.Add("7")
ListBox2.Items.Add("8")
ListBox2.Items.Add("9")
ListBox2.Items.Add("10")
ListBox2.Items.Add("11")
ListBox2.Items.Add("12")
ListBox2.Items.Add("13")
ListBox2.Items.Add("14")
ListBox2.Items.Add("15")
ListBox1.SetSelected(1, True)
ListBox2.SetSelected(1, True)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Font & grootte aanpassen:
Form1.RichTextBox1.Font = New System.Drawing.Font(ListBox1.SelectedItem.ToString(), ListBox2.SelectedItem.ToString())
Dit dialoogje sluiten:
Me.Hide()
End Sub
End ClassForm3.VB:
Public Class Form3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
End Sub
End ClassNog ideeën voor tuts? Plaats ze in dit topic of stuur een PM
