vorrei chiedere a qualcuno se mi può spiegare perchè riesco a caricare il file ma non riesco a farlo leggere dalla sintesi vocale
sono un neofita di 66 anni abbiate pazienzacodice:Imports System.IO.File Imports System.Speech Public Class Form1 Dim Parla As New System.Speech.Synthesis.SpeechSynthesizer Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim disco As System.IO.File Dim leggi As System.IO.StreamReader Dim riga As String Dim posizione As String posizione = TextBox1.Text If posizione = "" Then MsgBox("non hai caricato il file") End If leggi = IO.File.OpenText(posizione) While leggi.Peek <> -1 riga = leggi.ReadLine() listbox1.Items.Add(riga) End While End Sub Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Parla.Speak(ListBox1.Text) End Sub End Class
piero

Rispondi quotando