[محمد ايمن]

(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")

ولله شرحمميز من حضرتك