[سعود]

اعمل الان على مثال للترفيه فاحببت معرفة كود لنقل زر امر من مكان ما الى داخل Panel فكتبت الكود التالي:

كود :

p1.Controls.Add(sender)

بنفس حدث هذا الزر Click
لكن اختفى الزر ... لايكون زعل علي بس
وش الحل!
حفظكم الله.

[@@أبورائد@@]

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





تفضل على السريع

PHP كود :

Me.Button1.Parent = Panel1
Me.Button1.Location = New Point(0, 0) 


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

[سعود]

بارك الله فيك اخي ابو رائد
كان الناقص هذه العبارة

كود :

sender.location = New Point(0, 0)

[سعود]

طيب لو اردنا حفظ مكان الزر الحالي قبل نقله لكي نرجعه فيما لو ان شرط ما لم يتحقق مثلا ان النص الظاهر بالزر ليست القيمة المطلوبة

[@@أبورائد@@]

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






عند انتقال أداة من أداة حاوية مثل Form أوPanel إلى أداة حاوية أخرى مثل Panel وGroupBox فإنه سينتقل بكل خصائصه، وطبعا خاصية Location لن تتغير ولكن إذا كان الموقع Location خارج نطاق الرؤية يسبب التباس على المبرمج أن الأداة لم تنتقل، بالرغم من انتقاها فعلياً.

بالنسبة لحفظ الموقع السابق للإنتقال قم بتعريف متغير ولكن كـ Point وليس Location مثل

كود :

Dim loc As Point
loc = Button1.Location

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