Ciao a tutti oggi vi spiegherò come creare un convertitore di file audio in visual basic 2008 o 2010. Iniziamo a creare il progetto col nome che vogliamo poi posizioniamo :
3 Label
2 Button
1 TextBox
1ComboBox
OpenFileDialog1
Ora rinominiamo le label in : nome del programma, posizione del file e tipo di formato da convertire. Una volta fatto rinominate i button in : converti e apri ottenendo un lavoro così :
Una volta ottenuto tutto ciò iniziamo a programmare :
Nel button converti inseriamo :
If TextBox1.Text = "" Then
MsgBox("Please select the file you with to convert", MsgBoxStyle.Critical, "Error")
Else : Dim type As String = ComboBox1.Text
MsgBox("The file has sucsessfully been converted into a " & type & " file.", MsgBoxStyle.Information, "Sucsess")
Dim oldFile As String = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 4)
FileCopy(TextBox1.Text, oldFile + type)
End If
Nel button apri inseriamo :
OpenFileDialog1.ShowDialog()
Nel form ( doppio click nello spazio bianco o colorato ) inseriamo :
ComboBox1.SelectedItem = ".MP3"
e per finire nell'OpenFileDialog1 inseriamo :
TextBox1.Text = OpenFileDialog1.FileName
A questo punto non manca altro che sistemare le utile cose cioè quelle più facili però prima di fare questo nella ComboBox dobbiamo inserire il formato cioè .mp3 in questo modo :
[video]http://img709.imageshack.us/img709/9746/clip0059.mp4[/video] ( piccolo video su come fare per chi non lo sa )
Dopo aver fatto questo arriva la parte finale cioè quella di bloccare i lati del form, l'ingrandimento e cambiare icona in alto alla finestra. Fer farlo fate così :
FormBorderStyle : FixedDialog ( in questo modo i bordi del form non li puoi allargare una volta eseguito il debug )
MaximixeBox : False ( in questo modo non puoi ingrandire il form una volta eseguito il debug )
Per inserire l'icona cercate nella barra delle proprietà l'icona standard di vb piccolina e sostituitela.
A questo punto manca solo andare in Progetto ---> proprietà di "nome del progetto che hai inserito prima" e da li selezioniamo l'icona per il debug ( quella finale che sostituisce la finestrella bianca )
Per la sostituzione delle icone devi usarne una in formato .ico!
Se volete provarlo il download è
Scansione virus total è
La guida è al 10000 % mia e se la postate in altri forum vi secco le mani
Per ogni problema o altro ditemi pure :soso:
3 Label
2 Button
1 TextBox
1ComboBox
OpenFileDialog1
Ora rinominiamo le label in : nome del programma, posizione del file e tipo di formato da convertire. Una volta fatto rinominate i button in : converti e apri ottenendo un lavoro così :
Una volta ottenuto tutto ciò iniziamo a programmare :
Nel button converti inseriamo :
If TextBox1.Text = "" Then
MsgBox("Please select the file you with to convert", MsgBoxStyle.Critical, "Error")
Else : Dim type As String = ComboBox1.Text
MsgBox("The file has sucsessfully been converted into a " & type & " file.", MsgBoxStyle.Information, "Sucsess")
Dim oldFile As String = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 4)
FileCopy(TextBox1.Text, oldFile + type)
End If
Nel button apri inseriamo :
OpenFileDialog1.ShowDialog()
Nel form ( doppio click nello spazio bianco o colorato ) inseriamo :
ComboBox1.SelectedItem = ".MP3"
e per finire nell'OpenFileDialog1 inseriamo :
TextBox1.Text = OpenFileDialog1.FileName
A questo punto non manca altro che sistemare le utile cose cioè quelle più facili però prima di fare questo nella ComboBox dobbiamo inserire il formato cioè .mp3 in questo modo :
[video]http://img709.imageshack.us/img709/9746/clip0059.mp4[/video] ( piccolo video su come fare per chi non lo sa )
Dopo aver fatto questo arriva la parte finale cioè quella di bloccare i lati del form, l'ingrandimento e cambiare icona in alto alla finestra. Fer farlo fate così :
FormBorderStyle : FixedDialog ( in questo modo i bordi del form non li puoi allargare una volta eseguito il debug )
MaximixeBox : False ( in questo modo non puoi ingrandire il form una volta eseguito il debug )
Per inserire l'icona cercate nella barra delle proprietà l'icona standard di vb piccolina e sostituitela.
A questo punto manca solo andare in Progetto ---> proprietà di "nome del progetto che hai inserito prima" e da li selezioniamo l'icona per il debug ( quella finale che sostituisce la finestrella bianca )
Per la sostituzione delle icone devi usarne una in formato .ico!
Se volete provarlo il download è
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
Scansione virus total è
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
La guida è al 10000 % mia e se la postate in altri forum vi secco le mani
Per ogni problema o altro ditemi pure :soso:
