Visual Basic , Yazıları sese çevirmek

[dogukan_62]

Türkiye'de ilk Mobil & PC Aynı Anda Metin2 Oyna. Triarchonline kalıcı ve uzun ömürlü yapısı ile 24 Temmuz'da açılıyor. | 1-99 Mobil Metin2 Triarch HEMEN TIKLA!

Dim speech As SpVoice

Private Sub Command1_Click()
speech.Speak Text1
End Sub

Private Sub Form_Load()
Set speech = New SpVoice
End Sub

1 Adet Buton
1 Adet Text
Project > References sekmesinden microsoft speech object library

 

[Karcemackers]

Paylasım icin tesekkurler.