منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] ما هو الكود لرفع وخفض الصوت (volume) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] ما هو الكود لرفع وخفض الصوت (volume) (/showthread.php?tid=14219)

ما هو الكود لرفع وخفض الصوت (volume) - visualist2015 - 24-12-15

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

RE: ما هو الكود لرفع وخفض الصوت (volume) - boudyonline - 24-12-15

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

كود :
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
[صورة مرفقة: 254072]

RE: ما هو الكود لرفع وخفض الصوت (volume) - zinom - 25-12-15

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

شوف الفديو ده هيساعدك  
في الفديو استخدم دوال ال api 
للتحكم في مستوي الصوت




RE: ما هو الكود لرفع وخفض الصوت (volume) - visualist2015 - 25-12-15

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

RE: ما هو الكود لرفع وخفض الصوت (volume) - أمجد وضاح - 14-12-19

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

RE: ما هو الكود لرفع وخفض الصوت (volume) - abu ammar - 15-12-19

في البداية افتح خصائص المشروع وفي التبويب   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()