تقييم الموضوع :
  • 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 شكر الله لك .. على هذه الإجابة .. وأنا سأجرب الكود ..
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعده فى تعديل الكود لو سمحتوا نبيل فتحى 4 44 منذ 5 ساعة مضت
آخر رد: نبيل فتحى
Exclamation [VB.NET] تعديل على الكود mervandzz 2 31 22-10-17, 05:28 PM
آخر رد: mervandzz
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 7 919 22-10-17, 03:14 PM
آخر رد: رمضان محمد
  [VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتـي e-coder 0 43 13-10-17, 06:39 PM
آخر رد: e-coder
  [VB.NET] مطلوب التعديل علي الكود التالي محمد اسماعيل 2 65 11-10-17, 01:08 PM
آخر رد: محمد اسماعيل
  [VB.NET] التعديل على الكود - رقم التسلسلي dubai.eig 4 136 08-10-17, 11:30 PM
آخر رد: dubai.eig
  استشارة في الكود hikmat 1 59 28-09-17, 01:33 AM
آخر رد: wale90
  مساعدة في الكود hikmat 0 42 27-09-17, 10:08 AM
آخر رد: hikmat
  كيف اجعل البرنامج ينفذ الكود الى فى الtextbox aliomar333 1 111 23-09-17, 05:32 PM
آخر رد: محمود صالح
  [VB.NET] ممكن تعديل الكود التالي D-Z 0 67 21-09-17, 06:34 PM
آخر رد: D-Z

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


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