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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مطلوب مبرمج محترف يقوم بكتابة الكود التالي mohamedgadain61 0 0 17-02-18, 05:01 PM
آخر رد: mohamedgadain61
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 14 1,476 12-02-18, 06:37 PM
آخر رد: رمضان محمد
  [VB.NET] ما هو الكود الذي ينفذ زر امر علي نموذج اخر بزر امر السيد الجوهري 1 0 08-02-18, 08:10 PM
آخر رد: محمد كريّم
  [VB.NET] مساعدة فى تركيب الكود MOSTAFA.KAMEL 21 1 05-02-18, 04:39 PM
آخر رد: MOSTAFA.KAMEL
  [VB.NET] كيفية عمل برنامج صغير لرفع صورة من جهازي وتحويلها الي رابط e-coder 3 0 04-02-18, 01:23 AM
آخر رد: Basil Abdallah
  الكود مع انه بسيط لكن هلكني وما زبط nooralcown 3 0 03-02-18, 11:54 PM
آخر رد: محمود صالح
  [كود] ارجو المساعدة في تعديل الكود saad mahyoub 0 0 31-01-18, 10:54 PM
آخر رد: saad mahyoub
  [نقاش] عندي مشكلة فى الكود الموجود داخل الموضوع وسام عبدالله الدمرداش 2 1 29-01-18, 03:41 PM
آخر رد: وسام عبدالله الدمرداش
  [VB.NET] هذا الكود لجعل الزر شكل بيضاوي كيف اغيرة الي شكل اخر وليكن دائرة السيد الجوهري 5 78 26-01-18, 10:42 PM
آخر رد: Basil Abdallah
  المساعده في تحويل الكود VB.NET 3 69 20-01-18, 09:12 PM
آخر رد: HASAN6.0

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


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