وعليكم السلام ورحمة الله وبركاته
ان كنت تقصد من نفس الويندوز فأكيد انظر لمجلد الـ media في مجلد windows واختر منها ماتريد
شوف مثال بسيط:
PHP كود :
Imports System.IO Public Class Form1 Dim lst As New List(Of String) Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click lst.Clear() ListBox1.Items.Clear() Dim dir As New DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.Windows) & "\media\") '& "\media" For Each fl As FileInfo In dir.GetFiles() lst.Add(fl.FullName) ListBox1.Items.Add(fl.Name) Next End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged Dim fn As String = lst(ListBox1.SelectedIndex) My.Computer.Audio.Play(fn, AudioPlayMode.Background) End Sub End Class
يقوم بسرد الملفات الصوتية في مجلد الميديا وكتبت كود يضع المسار الكامل في قائمة نصية بينما الاسم فقط في ليست بوكس.
اذا كنت تقصد الصوت الذي يصدر عند استخدام الامر Beep فهذا يمكن تغييره فهو موجود على المسار C:\Windows\Media
واظن ان اسمه Windows Background.wav واذا لم تكن تحب هذا الصوت وتريد تغييره فيمكنك استبداله باي ملف اخر بشرط ان يكون من نوع wav وله نفس الاسم
لكن لو اردت فاني افضل ان تستخدم الكود التالي لاصدار صوت وهو يعمل على الملفات التي من نوع wav ايضا:
26-05-20, 06:25 AM (آخر تعديل لهذه المشاركة : 26-05-20, 06:30 AM {2} بواسطة محمد ايمن.)
(26-05-20, 06:21 AM)سعود كتب : وعليكم السلام ورحمة الله وبركاته
ان كنت تقصد من نفس الويندوز فأكيد انظر لمجلد الـ media في مجلد windows واختر منها ماتريد
شوف مثال بسيط:
PHP كود :
Imports System.IO Public Class Form1 Dim lst As New List(Of String) Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click lst.Clear() ListBox1.Items.Clear() Dim dir As New DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.Windows) & "\media\") '& "\media" For Each fl As FileInfo In dir.GetFiles() lst.Add(fl.FullName) ListBox1.Items.Add(fl.Name) Next End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged Dim fn As String = lst(ListBox1.SelectedIndex) My.Computer.Audio.Play(fn, AudioPlayMode.Background) End Sub End Class
يقوم بسرد الملفات الصوتية في مجلد الميديا وكتبت كود يضع المسار الكامل في قائمة نصية بينما الاسم فقط في ليست بوكس.
ولله معرف كيف اشكرك
(26-05-20, 06:25 AM)معاند الحظ كتب : وعليك السلام ورحمة الله وبركاته
اذا كنت تقصد الصوت الذي يصدر عند استخدام الامر Beep فهذا يمكن تغييره فهو موجود على المسار C:\Windows\Media
واظن ان اسمه Windows Background.wav واذا لم تكن تحب هذا الصوت وتريد تغييره فيمكنك استبداله باي ملف اخر بشرط ان يكون من نوع wav وله نفس الاسم
لكن لو اردت فاني افضل ان تستخدم الكود التالي لاصدار صوت وهو يعمل على الملفات التي من نوع wav ايضا:
(26-05-20, 06:21 AM)سعود كتب : وعليكم السلام ورحمة الله وبركاته
ان كنت تقصد من نفس الويندوز فأكيد انظر لمجلد الـ media في مجلد windows واختر منها ماتريد
شوف مثال بسيط:
PHP كود :
Imports System.IO Public Class Form1 Dim lst As New List(Of String) Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click lst.Clear() ListBox1.Items.Clear() Dim dir As New DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.Windows) & "\media\") '& "\media" For Each fl As FileInfo In dir.GetFiles() lst.Add(fl.FullName) ListBox1.Items.Add(fl.Name) Next End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged Dim fn As String = lst(ListBox1.SelectedIndex) My.Computer.Audio.Play(fn, AudioPlayMode.Background) End Sub End Class
يقوم بسرد الملفات الصوتية في مجلد الميديا وكتبت كود يضع المسار الكامل في قائمة نصية بينما الاسم فقط في ليست بوكس.
ولله معرف كيف اشكرك
(26-05-20, 06:25 AM)معاند الحظ كتب : وعليك السلام ورحمة الله وبركاته
اذا كنت تقصد الصوت الذي يصدر عند استخدام الامر Beep فهذا يمكن تغييره فهو موجود على المسار C:\Windows\Media
واظن ان اسمه Windows Background.wav واذا لم تكن تحب هذا الصوت وتريد تغييره فيمكنك استبداله باي ملف اخر بشرط ان يكون من نوع wav وله نفس الاسم
لكن لو اردت فاني افضل ان تستخدم الكود التالي لاصدار صوت وهو يعمل على الملفات التي من نوع wav ايضا:
كود :
My.Computer.Audio.Play("file path")
ولله شرحمميز من حضرتك
فيه امتدادت ماتشتغل .
المهم انك عرفت الكود اختر اي صوت تريد ولو تريد تضع صوتك تستطيع.
ولا شكر على واجب
(26-05-20, 06:21 AM)سعود كتب : وعليكم السلام ورحمة الله وبركاته
ان كنت تقصد من نفس الويندوز فأكيد انظر لمجلد الـ media في مجلد windows واختر منها ماتريد
شوف مثال بسيط:
PHP كود :
Imports System.IO Public Class Form1 Dim lst As New List(Of String) Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click lst.Clear() ListBox1.Items.Clear() Dim dir As New DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.Windows) & "\media\") '& "\media" For Each fl As FileInfo In dir.GetFiles() lst.Add(fl.FullName) ListBox1.Items.Add(fl.Name) Next End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged Dim fn As String = lst(ListBox1.SelectedIndex) My.Computer.Audio.Play(fn, AudioPlayMode.Background) End Sub End Class
يقوم بسرد الملفات الصوتية في مجلد الميديا وكتبت كود يضع المسار الكامل في قائمة نصية بينما الاسم فقط في ليست بوكس.
ولله معرف كيف اشكرك
(26-05-20, 06:25 AM)معاند الحظ كتب : وعليك السلام ورحمة الله وبركاته
اذا كنت تقصد الصوت الذي يصدر عند استخدام الامر Beep فهذا يمكن تغييره فهو موجود على المسار C:\Windows\Media
واظن ان اسمه Windows Background.wav واذا لم تكن تحب هذا الصوت وتريد تغييره فيمكنك استبداله باي ملف اخر بشرط ان يكون من نوع wav وله نفس الاسم
لكن لو اردت فاني افضل ان تستخدم الكود التالي لاصدار صوت وهو يعمل على الملفات التي من نوع wav ايضا:
كود :
My.Computer.Audio.Play("file path")
ولله شرحمميز من حضرتك
فيه امتدادت ماتشتغل .
المهم انك عرفت الكود اختر اي صوت تريد ولو تريد تضع صوتك تستطيع.
ولا شكر على واجب
طبعا الامتداد اللي يعمل هو wav وان يكون الملف صوت فقط يعني لو كان الملف فيديو وبامتداد wav لن يعمل على ما اعتقد
اما اضافة صوت وتشغيله فكما في المثال
فلنفرض ان لديك ملف صوت اسمه sound1.wav قمت بحفظه على القسم c:\ ليكون مسار الملف هكذا C:\sound1.wav
الان استبدل النص "file path" في الكود السابق بـ C:\sound1.wav ليكون الكود كالتالي:
(26-05-20, 06:46 AM)معاند الحظ كتب : طبعا الامتداد اللي يعمل هو wav وان يكون الملف صوت فقط يعني لو كان الملف فيديو وبامتداد wav لن يعمل على ما اعتقد
اما اضافة صوت وتشغيله فكما في المثال
فلنفرض ان لديك ملف صوت اسمه sound1.wav قمت بحفظه على القسم c:\ ليكون مسار الملف هكذا C:\sound1.wav
الان استبدل النص "file path" في الكود السابق بـ C:\sound1.wav ليكون الكود كالتالي:
كود :
My.Computer.Audio.Play("C:\sound1.wav")
شرح مبسط من الي فهمتو الويندوز فأكيد انظر لمجلد الـ media في مجلد windows واختر منها ماتريد
الكود My.Computer.Audio.PlaySystemSound(System.Media.SystemSounds.Exclamation) غير في الكود اسم الصوت مثل Exclamationخليه اي اسم تاني من مجلد مديه الموجود في الوندوز لو عيز تحط انت صوت من عندك سجل صوت بس لزم يكون ب صيغت wavلكي يعمل وحطو في مجلد الويندوز زي ال اصوات ال تنيه وحط اسمو في الكد او غير المسار في الكود مثل System.Media.SystemSounds خليه المسار الي فيه الصوت طبعا الامتداد اللي يعمل هو wav وان يكون الملف صوت فقط يعني لو كان الملف فيديو وبامتداد wav لن يعمل على ما اعتقد ------------------------- اما اضافة صوت وتشغيله فكما في المثال
فلنفرض ان لديك ملف صوت اسمه sound1.wav قمت بحفظه على القسم c:\ ليكون مسار الملف هكذا C:\sound1.wav الان استبدل النص "file path" في الكود السابق بـ C:\sound1.wav ليكون الكود كالتالي: