منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف يتم تحريك الصور Image على سطح الفورم عن طريق الماوس ؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : كيف يتم تحريك الصور Image على سطح الفورم عن طريق الماوس ؟؟ (/showthread.php?tid=8595)



كيف يتم تحريك الصور Image على سطح الفورم عن طريق الماوس ؟؟ - softmail8 - 22-04-13

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


كيف يتم تحريك الصور Image على سطح الفورم عن طريق الماوس ؟؟ - @@أبورائد@@ - 22-04-13

ضع أداة 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



كيف يتم تحريك الصور Image على سطح الفورم عن طريق الماوس ؟؟ - softmail8 - 23-04-13

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