تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ما هو الكود لرفع وخفض الصوت (volume)
#1
كيفية رفع الصوت وخفضه في  مثلا :
my.computer.Audio.Play ("My.Resorces.sound")
ما هو الكود لرفع وخفض الصوت (volume)
الرد }}}
تم الشكر بواسطة:
#2
راجع هذا المثال واتمنى أن تستفيد منه :

كود :
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]
Don't Be The Perfect one
be the right one
الرد }}}
تم الشكر بواسطة: zinom , asemshahen5 , ابراهيم ايبو
#3
بالاضافه لمشاركة العضو الكريم  boudyonline

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


اللهم صلي علي نبي (الرحمه) محمد رسول الله وبارك علي اله وصحابته والتابعين  واحقن دماء امتنا واجعل بأسنا علي اعدائنا يا ارحم الراحمين
[b]امين [/b]



الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#4
أخي boudyonline شكر الله لك .. على هذه الإجابة .. وأنا سأجرب الكود ..
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#5
لم ينفع كود الزيادة والنقصان
الرد }}}
تم الشكر بواسطة:
#6
في البداية افتح خصائص المشروع وفي التبويب   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()


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 357 13-10-23, 01:47 AM
آخر رد: new_programer
  كيفية التحكم فى حجم الفورم من خلال الكود Ahmed.vb 4 510 11-10-23, 07:17 PM
آخر رد: bidaya
  اريد ارسال pdf عبر واتساب عن طريق ال API محتاج تعديل على الكود moh61 0 518 03-08-23, 03:41 PM
آخر رد: moh61
  اريد تغير حجم ال Panel عند التفيذ من داخل الكود moh61 2 403 23-07-23, 12:22 AM
آخر رد: أبووسم

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم