منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

السادة الكرام
السلام عليكم ورحمة وبركاته
كيف يتم تحريك الصور Image على سطح الفورم عن طريق الماوس ؟؟
نامل الله ثم من الجميع المساعدة
ولكم مني فائق الاحترام

ضع أداة Image وفيها صورة

كود :

Dim mouseX As Integer, mouseY As Integer

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    mouseX = X

    mouseY = Y

End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = vbLeftButton Then

         Image1.Left = Image1.Left + X - mouseX

         Image1.Top = Image1.Top + Y - mouseY

    End If

End Sub

استاذي العزيز : ابو رائد
السلام عليكم ورحمة وبركاته
لكم مني الف شكر وتقدير على تقدم الدعم الفني لنا والله يحفظكم ويرعاكم ويجعل الجنة داركم الاخير
ولكم مني فائق الاحترام

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

softmail8

@@أبورائد@@

softmail8