هل ممكن ان ينفع ؟؟؟

السلام عليكم...

نعم يمكن ذلك.

ضع الكود التالي في قسم التصريحات العام للنافذة:

Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function GetCapture Lib "user32" () As Long

في إجراء الحدث MouseMove للزر اكتب الكود التالي:

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    With Command1
        If (X < 0) Or (Y < 0) Or (X > ScaleX(.Width, Me.ScaleMode, vbTwips)) Or (Y > ScaleY(.Height, Me.ScaleMode, vbTwips)) Then
            ' MouseLeave مغادرة مؤشر الفأرة:
            Call ReleaseCapture
        ElseIf GetCapture() <> .hwnd Then
            ' MouseEnter دخول مؤشر الفأرة:
            Call SetCapture(.hwnd)
            ' ضع هنا أمر تشغيل الصوت
        'Else
            ' Normal MouseMove
            ' ...
        End If
    End With
End Sub

طبعاً أمر تشغيل الصوت يعتمد على الطريقة التي تستعملها في برنامجك، ربما باستعمال MediaPlayer أو Real Player أو MCI Control أو ربما الدالة sndPlaySound.

كل زر تريد أن تطبق عليه نفس الأمر ستحتاج أن تكتب له نفس الكود في الإجراء MouseMove الخاص به، طبعاً مع تغيير Command1 إلى Command2 أو Command3 ... إلخ (حسب اسم الزر).

نرجو الاستفادة و السلام.

اقتباس

Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove

With Button1

If (x < 0) Or (Y < 0) Or (x > ScaleX(.Width, Me.ScaleMode, vbTwips)) Or (Y > ScaleY(.Height, Me.ScaleMode, vbTwips)) Then

RaiseEvent MouseEnter()

Call SetCapture(.hwnd)

Else

End If

' MouseLeave :

End With

End Sub

هذا هو الكود الذي وضعته داخل برنامجي ، طبعا قمت وضع التعريفات ، عرّفتها على شكل جلوبل

ووضعت هذا الكود كما ترى اخي في فنكشن الماوس موف

لكن يعطيني أخطاء تعريفية مثل : ScaleY , vbTwips , MouseEnter ,hwnd

طبعا الأخطاء عليهم لأنهم غير معرّفين ، فوين أعرفهم ...

ومشكور جدا أخي ، غلبناك معنا

لكن الأمر ضروري جداً

Eng.S.IDk كتب:

هذا هو الكود الذي وضعته داخل برنامجي ، طبعا قمت وضع التعريفات ، عرّفتها على شكل جلوبل

ووضعت هذا الكود كما ترى اخي في فنكشن الماوس موف

لكن يعطيني أخطاء تعريفية مثل : ScaleY , vbTwips , MouseEnter ,hwnd

طبعا الأخطاء عليهم لأنهم غير معرّفين ، فوين أعرفهم ...

ومشكور جدا أخي ، غلبناك معنا

لكن الأمر ضروري جداً

أخي يبدو أنك تعمل على الدوت نت . وليس على الفيجوال 6

اطرح موضوعك في الفيجوال دوت نت .

تحياتي

اقتباس

أخي يبدو أنك تعمل على الدوت نت . وليس على الفيجوال 6

انا بشتغل ع v.b 2005

2005 visual studio

نفسو دت نت

Eng.S.IDk كتب:

انا بشتغل ع v.b 2005

2005 visual studio

نفسو دت نت

نعم اخي الكريم الدوت نت . اصداراته

vb2003

vb2005

vb2008

وحاليا

vb2010

فالكود السابق هنا كتب من اجل الفيجوال بيسك 6 وليس للدوت نت .

لذا اطرح سؤالك في قسم فيجوال دوت نت . هنا

/index.php?showforum=62

تحياتي