Hızlı Konu Açma

Hızlı Konu Açmak için tıklayınız.

Son Mesajlar

Konulardaki Son Mesajlar

Reklam

Forumda Reklam Vermek İçin Bize Ulaşın

Yazıları Sese Çevirme

Mr.Onur

Fahri Üye
Fahri Üye
Fenerbahçe
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:
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​

ö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
 

Users Who Are Viewing This Konu (Users: 0, Guests: 1)

Üst