Hallotjes topic bezoeker ;)
Dit is een tut van een File converter ;)
Volg alle stappen en je hebt al gouw je eigen file converter ;)
Stap 1.
Open VB10/08
Stap 2.
Maak een nieuw project(windows aplication form).
Stap 3.
Voeg een Tab control toe en klik op add tab. Totdat je er 3 hebt.
Screen:
Stap 4.
Hernoem de tabs naar Afbeeldingen Audio en Video
Stap 5.
Voeg een textbox, een combobox, 2 buttens, 2 labels en een OpenFileDialog toe.
En Zet (en noem) ze zo als op het plaatje.
Screen:
Stap 6.
Klik dubbel op de Open file knop (button1), en vul in de code:
OpenFileDialog1.ShowDialog() Dim file As String = OpenFileDialog1.FileName TextBox1.Text = file
Stap 7.
Klik dubbel op de OpenFiledialog, en vul de code in
Dim file As String = OpenFileDialog1.FileName TextBox5.Text = file
Stap 8.
Klik 1 keer op de combobox en klik aan edit items
en vul in
.PNG .JPG .GIF .BMP .ico
Screen:
Stap 9.
Voeg nog een textbox toe en noem hem textbox5 (bij name) en zet de maximum en minimum op (van de form) 372; 129 en zet maximizebox en minimizebox op false.
Screen van plek textbox5:
Screen:
Stap 10.
Klik dubbel op de convert knop(button2) en vul in:
Dim type As String = ComboBox1.Text If TextBox5.Text = "" Then MsgBox("Geen bestand geselecteerd") ElseIf ComboBox1.Text = "" Then MsgBox("Geen file type geselecteerd") Else MsgBox(TextBox5.Text + " Je bestand word omgezet in een " + type + " Bestand") Dim oldFile As String = Mid(TextBox5.Text, 1, Len(TextBox5.Text) - 4) FileCopy(TextBox5.Text, oldFile + type)