سؤال بسيط جداً لكنني نسيته كان بالمنتدى هنا سورس كود

مرحبا اخي

أولا لا اعلم لماذا وضعت السؤال بقسم ADO.NET

ثانيا لعمل ذلك افتح مشروع جديد بالفيجوال بيسك

ثم ضع على الفورم اداة picture box

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

غير لون خلفية الأداة الى Transparent

اجعل لون خلفية الفورم مثلا الى red

اذهب الى الخاصية transparencyKey التابعة للفورم و غيرها الى نفس اللون وهو red في مثالنا

غير خاصية FormBorderStyle للفورم الى None

حسنا هذا جيد الى حد الأن و لكن يتبقى علينا أن نجعل الفورم متحرك

و لعمل ذلك نكتب الكود التالي

Public Class Form1

	Dim oldX, oldY As Integer
	Dim isMoving As Boolean




	Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
    	If e.Button = Windows.Forms.MouseButtons.Left Then
        	oldX = e.X
        	oldY = e.Y
        	isMoving = True
    	End If
	End Sub

	Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
    	If isMoving Then
        	Me.Left += (e.X - oldX)
        	Me.Top += (e.Y - oldY)
    	End If
	End Sub

	Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
    	isMoving = False
	End Sub
End Class

ارجو ان أكون قد افدتك بما تريد

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

يمكنك عمل مربع صوره من ثم اضبط ال TransparentKey للفورم بالخلفيه حق الصوره ولاتنسى ضبط خلفيه الفورم بنفس اللون .. عندما تشغل البرنامج سيتم امتصاص لون الخلفيه وستظهر الصوره فقط ... علما قم بضبط ال FormBorderStyle الى None لإزالة إطار الفورم من ثم في حدث ال MouseMove قم بتغيير إحداثيات الصوره إلى ال e.X و ال e.Y

allnsh 3 كتب:

جاري تجربة الطريقة ,,,'''''',,,,,مشكوووور للأهتمام

لا شكر على واجب أخي