- Katılım
- 3 Şubat 2014
- Mesajlar
- 1,744
- Tepkime puanı
- 0
- Puanları
- 0
Yazıları Sese Çevirme Windows un özel ve güzel kullanışlı yazı okuma apisini kullanmak istemezmisiniz?
Kod:
ö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
Kod:
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
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
ö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