Çok basit bir şekilde microsoftun text to speech kütüphanesini kullanarak yazdıklarımızı okutacağız...
References'tan "Microsoft Speech Object Library" seçin. Form içine 2 command butonu ve bir textbox yerşleştirin ve aşağıdaki kodu yapıştırın :
Dim konus As New SpeechLib.SpVoice
Private Sub Command1_Click()
konus.Speak Text1.Text
End Sub
Private Sub Command2_Click()
Text1.Text = ""
End Sub Okunma Sayısı: 713
Yayınlanma Tarihi: Blogun eski sürümü ile yazılmış, tarih kaydı bulunmuyor...
Anahtar Kelimeler: yaz, text, sub, speech, command, end, basic, visual, microsoft, konustur, için
Onaylı yorum bulunmuyor.
Yorum/Görüş Bildir