Visual Basic , Yazıları sese çevirmek

[dogukan_62]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. 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.