منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

كيفية رفع الصوت وخفضه في مثلا :
my.computer.Audio.Play ("My.Resorces.sound")
ما هو الكود لرفع وخفض الصوت (volume)

راجع هذا المثال واتمنى أن تستفيد منه :

كود :

Option Strict On

Imports System.Runtime.InteropServices

Public Class Form1

    Private Const APPCOMMAND_VOLUME_MUTE As Integer = &H80000

    Private Const APPCOMMAND_VOLUME_UP As Integer = &HA0000

    Private Const APPCOMMAND_VOLUME_DOWN As Integer = &H90000

    Private Const WM_APPCOMMAND As Integer = &H319

    <DllImport("user32.dll")> Public Shared Function SendMessageW(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr

    End Function

    Dim HScroll3 As Integer = 0

    Dim Count As Integer = 0

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(APPCOMMAND_VOLUME_MUTE))

    End Sub

    Private Sub HScrollBar3_Scroll(sender As Object, e As ScrollEventArgs) Handles HScrollBar3.Scroll

        If Count = 1 Then

            If HScrollBar3.Value > HScroll3 Then

                SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(APPCOMMAND_VOLUME_UP))

            End If

            If HScrollBar3.Value < HScroll3 Then

                SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, New IntPtr(APPCOMMAND_VOLUME_DOWN))

            End If

        End If

        HScroll3 = HScrollBar3.Value

        Count = 1

    End Sub

End Class

بالاضافه لمشاركة العضو الكريم boudyonline

شوف الفديو ده هيساعدك

في الفديو استخدم دوال ال api

للتحكم في مستوي الصوت

أخي boudyonline شكر الله لك .. على هذه الإجابة .. وأنا سأجرب الكود ..

لم ينفع كود الزيادة والنقصان

في البداية افتح خصائص المشروع وفي التبويب Settings ضع متغير من نوع Integer وحدد له قيمة افتراضية ولتكن 50
وعلى الفورم استخدم كومبوبوكس لنفرض اسمه cb لتغيير مستوى الصوت املاء عناصر 10 ثم 20 وهكذا حتى 100
ثم في حدث التحميل للفورم اربط الكومبوبوكس باعدادات الصوت هكذا

كود :

cb.Text = My.Settings.Volume

ثم في حدث التايمر مثلا اربط اعدادات الصوت بالكومبوبوكس وبمشغل الصوت ثم اخفظ الاعدادات

كود :

player.settings.volume = cb.SelectedItem

       My.Settings.Volume = cb.SelectedItem

       My.Settings.Save()

[attachment=23661 كتب :abu ammar pid='153528' dateline='1576355431']في البداية افتح خصائص المشروع وفي التبويب Settings ضع متغير من نوع Integer وحدد له قيمة افتراضية ولتكن 50
وعلى الفورم استخدم كومبوبوكس لنفرض اسمه cb لتغيير مستوى الصوت املاء عناصر 10 ثم 20 وهكذا حتى 100
ثم في حدث التحميل للفورم اربط الكومبوبوكس باعدادات الصوت هكذا

كود :

cb.Text = My.Settings.Volume

ثم في حدث التايمر مثلا اربط اعدادات الصوت بالكومبوبوكس وبمشغل الصوت ثم اخفظ الاعدادات

كود :

player.settings.volume = cb.SelectedItem My.Settings.Volume = cb.SelectedItem My.Settings.Save()

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

visualist2015

boudyonline

zinom

visualist2015

أمجد وضاح

abu ammar