امکان تبدیل متن به گفتار در vb هست؟؟فوری

[oldooz]

سلام دوستان
من میخوام توی ویژوال بیسیک یه عدد یا یه متنی رو بدم و اون متن یا عدد در خروجی صوتی کامپیوتر پخش بشه.
آیا امکانش هست؟
ممنون

 

[the_king]

کافیست که کنترل های Microsoft Agent Control را در لیست Components ویژوال بیسیک تیک بزنید (Ctrl + T) :

و کد زیر و یک دکمه Command1 و یک کنترل Agent1 را به فرم اضافه کنید. زمانی که روی دکمه کلیک کنید متن hello توسط مرلین خوانده می شود :

Private Sub Command1_Click()
    Agent1.Characters("Merlin").Speak "[B]hello[/B]"
End Sub

Private Sub Form_Load()
    Agent1.Characters.Load "Merlin"
    Agent1.Characters("Merlin").Show
End Sub