انا مصمم برنامج على ال vb واحتاج ان اضيف اصوات لهذا البرنامج من خلال تحريك الماوس .
على سبيل المثال هناك زر يدعى الدخول عندما تصل الماوس الى هذا الزر دون النقر يطلع صوت الدخول مثلا او اي صوت انا محددو
هل يمكن ان يتم هذا في الفيجوال 2005
انا مصمم برنامج على ال vb واحتاج ان اضيف اصوات لهذا البرنامج من خلال تحريك الماوس .
على سبيل المثال هناك زر يدعى الدخول عندما تصل الماوس الى هذا الزر دون النقر يطلع صوت الدخول مثلا او اي صوت انا محددو
هل يمكن ان يتم هذا في الفيجوال 2005
أخى هذا كود للمثال وفى المرفقات تطبيق عليه
Imports Microsoft.VisualBasic
Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Runtime.InteropServices
Namespace WindowsTest
Partial Public Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
<DllImport("winmm.dll")> _
Private Shared Function PlaySound(ByVal filename As String, ByVal modul As Integer, ByVal flags As Integer) As Boolean
End Function
Public SND_SYNC As Integer = &H0000
Public SND_ASYNC As Integer = &H0001
Public SND_NODEFAULT As Integer = &H0002
Public SND_MEMORY As Integer = &H0004
Public SND_LOOP As Integer = &H0008
Public SND_NOSTOP As Integer = &H0010
Public SND_NOWAIT As Integer = &H00002000
Public SND_ALIAS As Integer = &H00010000
Public SND_ALIAS_ID As Integer = &H00110000
Public SND_FILENAME As Integer = &H00020000
Public SND_RESOURCE As Integer = &H00040004
Public SND_PURGE As Integer = &H0040
Public SND_APPLICATION As Integer = &H0080
Private Sub btnTest_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles btnTest.MouseMove
PlaySound(Application.StartupPath & "/test.wav", 0, SND_ASYNC)
End Sub
End Class
End Namespaceوهذا موضوع مشابه فى ال C#
وممّا زادنـــي شرفــاً وتيهــاً ** وكدت بأخمصي أطأ الثريّا
دخولي تحت قولك يا عبادي ** وأن صيّرت أحمد لي نبيّـاً
السلام عليكم ورحمة الله وبركاته ..
Public Class Form1
Dim Path As String = Application.StartupPath & "\"
Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
My.Computer.Audio.Play(Path & "sound.wav")
End Sub
End Classسبحآن الله وبحمده .. سبحآن الله العظيم .. ,
اولا كل الشكر والتحية لكم على هذه المعلومة الجديدة.
لكن اصبح لدي بعض الاسئلة
زبط معاي انو يظهر صوت بالنسبة للبرنامج اللي عاملو ..
بس المشاكل اللي واجهتها.
هلأ جربت انا الصوت اللي واضعوا في البرنامج اللي فوق على مشروعي وزبط معاي هلأ جيت انا سجلت صوت ووضعتو طلعلي ارور انو لازم الامتداد يكون .wav علما بأن ستجيل الصوت عندي امتداو .wma فهل يمكن ان شتغل علية ولا لازم يكون .wav>
المشكلة التانيه الي ان شالله يكون الها حل جربت بس ما زبط معاي .
هلأ انا بدي لما تصل الفارة المكان المحدد يشتغل الصوت لكن بمجرد ان ازيل الفارة يتوقف الصوت .
المشكلة اللي عندي انو لازم الصوت يضل مكمل ..هل يمكن يتم بهذه الطريقة.
وهل يمكن ان تتم هذه الخاصية عند تصميم صفحت نت "ليش مشروع عادي ".
هل الكود يختلف ام يبقى كمى هو "بالنسبة لاستعمل خاصية ال move mose"