Alaa Malk قام بنشر فبراير 7 مشاركة قام بنشر فبراير 7 (معدل) السلام عليكم .. احتاج مساعدة في حزمة الصوت باللغة العربية كيف احصل على هذه الحزمة ؟؟ وذلك لجعل البرنامج ينطق ارقام الدور باللغة العربية بصوت انثى او ذكر THE FUNCTION I USE Sub Speak(Msg As String, Optional Gender As String = "FEMALE") Dim Vox As Object ' SpeechLib.SpVoice Set Vox = CreateObject("SAPI.SpVoice") ' New SpeechLib.SpVoice Set Vox.Voice = Vox.GetVoices("Gender = " & Gender).Item(0) Vox.Speak Msg End Sub مع الاحترام ,, تم تعديل فبراير 7 بواسطه Alaa Malk رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.