تقييم الموضوع :
  • 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]
الرد
تم الشكر بواسطة: zinom
#3
بالاضافه لمشاركة العضو الكريم  boudyonline

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


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



الرد
تم الشكر بواسطة:
#4
أخي boudyonline شكر الله لك .. على هذه الإجابة .. وأنا سأجرب الكود ..
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في الكود salahmax12 4 122 08-11-18, 08:36 PM
آخر رد: salahmax12
  محتاج مساعدة فى كتابة الكود احمد خطاب 6 115 06-11-18, 09:21 PM
آخر رد: احمد خطاب
  سؤال في الكود مهم لو سمحتم احمد خطاب 14 221 05-11-18, 06:57 PM
آخر رد: احمد خطاب
  [سؤال] طلب تعديل علي رابط موقع داخل الكود ScreamVoice 2 73 04-11-18, 01:22 PM
آخر رد: ScreamVoice
  هناك خطأ فى هذا الكود خالد كامل1 4 108 29-10-18, 06:02 PM
آخر رد: elgokr
  ماهو الكود المُستخدم في تشغيل البرنامج برقم الهارديسك؟ Hazem1 9 235 21-10-18, 01:56 PM
آخر رد: عبد العزيز البسكري
  [سؤال] ارجو المساعدة في تصحيح هذا الكود لزر الحفظ gharib 0 88 19-10-18, 12:39 PM
آخر رد: gharib
Smile ممكن شرح هدا الكود الزوي 1 97 18-10-18, 02:17 AM
آخر رد: عبد العزيز البسكري
  [سؤال] سؤال عام حول الكود في الفيجوال ستوديو Simo1991 2 115 11-10-18, 03:30 PM
آخر رد: Simo1991
  ممكن تحويل هذا الكود للسى شارب لو سمحتم ابو روضة 9 263 06-10-18, 02:07 AM
آخر رد: ابو روضة

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


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