الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف ممكن ان يتم؟؟

بدأه Eng.S.IDk في 3 أبريل 2010 · 3 رد · 511 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

انا مصمم برنامج على ال vb واحتاج ان اضيف اصوات لهذا البرنامج من خلال تحريك الماوس .

على سبيل المثال هناك زر يدعى الدخول عندما تصل الماوس الى هذا الزر دون النقر يطلع صوت الدخول مثلا او اي صوت انا محددو

هل يمكن ان يتم هذا في الفيجوال 2005

#2

أخى هذا كود للمثال وفى المرفقات تطبيق عليه

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#

/index.php?showtopic=217699

WindowsTestVB.zip

 وممّا زادنـــي شرفــاً وتيهــاً   **  وكدت بأخمصي أطأ الثريّا

دخولي تحت قولك يا عبادي  **   وأن صيّرت أحمد لي نبيّـاً

#3

السلام عليكم ورحمة الله وبركاته ..

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

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#4

اولا كل الشكر والتحية لكم على هذه المعلومة الجديدة.

لكن اصبح لدي بعض الاسئلة

زبط معاي انو يظهر صوت بالنسبة للبرنامج اللي عاملو ..

بس المشاكل اللي واجهتها.

هلأ جربت انا الصوت اللي واضعوا في البرنامج اللي فوق على مشروعي وزبط معاي هلأ جيت انا سجلت صوت ووضعتو طلعلي ارور انو لازم الامتداد يكون .wav علما بأن ستجيل الصوت عندي امتداو .wma فهل يمكن ان شتغل علية ولا لازم يكون .wav>

المشكلة التانيه الي ان شالله يكون الها حل جربت بس ما زبط معاي .

هلأ انا بدي لما تصل الفارة المكان المحدد يشتغل الصوت لكن بمجرد ان ازيل الفارة يتوقف الصوت .

المشكلة اللي عندي انو لازم الصوت يضل مكمل ..هل يمكن يتم بهذه الطريقة.

وهل يمكن ان تتم هذه الخاصية عند تصميم صفحت نت "ليش مشروع عادي ".

هل الكود يختلف ام يبقى كمى هو "بالنسبة لاستعمل خاصية ال move mose"

مواضيع مشابهة