önce form a project/references ten "Microsoft Speech Object Library" eklemelisiniz!!!
Yoksa çalışmaz!!!
Sonra 1 adet text box ve bir adet command buton ekleyin
Hepsi bu Yazıları ingilizce olarak sizlere okuyuversin programınız
Kodlar....
Yoksa çalışmaz!!!
Sonra 1 adet text box ve bir adet command buton ekleyin
Hepsi bu Yazıları ingilizce olarak sizlere okuyuversin programınız
Kodlar....
Dim speech As SpVoice '<== SpVoice microsoft speech object library sayesinde çalışır
Private Sub Command1_Click()
speech.Speak Text1 'Burada Text1 in içindeki yazıları okumasını sağlamak için gereken kod
End Sub
Private Sub Form_Load()
Set speech = New SpVoice ' Burada da speech nesnesine yeni bir değişkenle eşitliyoruz
End Sub
![wink.gif](http://www.masterhack.com/images/smilies/wink.gif)
Private Sub Command1_Click()
speech.Speak Text1 'Burada Text1 in içindeki yazıları okumasını sağlamak için gereken kod
End Sub
Private Sub Form_Load()
Set speech = New SpVoice ' Burada da speech nesnesine yeni bir değişkenle eşitliyoruz
End Sub