الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]

[إسلام 2006]

>> بطلب من عمنا اسلام 2006 :P
لانه يقول ان هذا ممكن ناس تسأل عليه .. فهو يعني مش هنقول انه بيكسل ينسخه ويضعه في نوت باد .. ويلصقه لمن يسأله عنه .. !! << كف xP
لا هو قال لي اني اضعه هنا عشان يستفيد منه الأعضاء جميعا ويعم الخير على المسلمين ^^"

لغة البرمجة : فيجوال بيسك ... بلاش فلسفة لا دوت نيت ولا دوت كوم xD

السؤال : ..
هنالك صورة تم برمجتها على انها تكون بلا فريم .. يعني لا يوجد لها شريط عنوان ...
امممم بالتالي كيف نقوم بتحريكها من مكانها ؟
هذا أمر سهل جدا .. سنقوم بوضع الأبعاد الثنائية كمتغيرات X , Y .. ومن ثم نقوم بطرح بعض الأشياء من بعضها ههه وشوية خرابيط كذا .. وفجأه نجد الفورم قد تحرك .. انها عملية النقر والسحب والافلات هع

كيف نكتب الكود اذا ؟؟ هذا ماسيخبرنا به عمكم اسلام 2006 ..

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


ونأسف للازعاج ..
وشكرا جزيلا لك اسلامو ^^"

:S

لمض كالعادة :P

بما انك تتفلسف كنت سأضع لك مثال متكامل برفع بروجيكت صغير متكامل لعمل المطلوب وزيادة لكني لن أفعل الان xDDDDD

سأضع لك الأكواد التي طبتها تحديدا فقط xP

    Private _mouseDown As Boolean = False
    Private _formMousePos As Point

    Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        _mouseDown = True
        _formMousePos = Me.PointToClient(Cursor.Position)
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
        _mouseDown = False
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        If _mouseDown Then
            Dim newPos As Point = Cursor.Position
            newPos.Offset(-_formMousePos.X, -_formMousePos.Y)
            Location = newPos
        End If
    End Sub

طبعا عليك باستخراج المطلوب منها بنفسك xPPP

اذا لم تفهم شيئا اسأل ^^