(30-05-21, 06:42 PM)ADAM12 كتب : مرحبا أخي
تفضل و إن شاء الله أكون فهمت الاتجاهات صحيح
البانل تكون على يمين المستخدم ( يسار الشاشة )
و 770 الموجودة بالكود هي عرض الفورم الذي توجد به البانل
كود :
Do While Panel1.Location.X < 770
Panel1.Location = New Point(Panel1.Location.X + 1, Panel1.Location.Y)
Loop
السلام عليكم أخي الكريم أنا لا أقصد مكان تواجد البانل في الفورم...سأشرح.. إفترض أنه عندنا بانل في يسار الفورم ...و هذا البانل طوله 200...نريد أن نجعل طوله يتناقص تدريجيا من 200 ثم 190 ثم 180 ثم 170 ثم 160 ثم 150 ...حتى يصل 0 ...لكن المشكلة أن هذا التناقص يحدث من يمين البانل نحو يساره...يعني من رأسه الأيمن نحو رأسه الأيسر... الآن نريده أن يتناقص من يساره نحو يمينه.. شكرا أخي الكريم
04-06-21, 12:56 AM (آخر تعديل لهذه المشاركة : 04-06-21, 01:01 AM {2} بواسطة معاند الحظ.)
اخي انت تحتاج الى تعديل موقع البانل ايضا بعد انقاص عرضه
فبهذه الطريقة سيبدو ان البانل يتناقص عرضه من اليسار لليمين باختصار السر في تعويض موقع البانل بنفس القيمة
التي انفصتها منه وهذا يكون بزيادة قيمة الخاصية Left اذا كنت تريد ان يكون التناقص من اليسار لليمين
كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Panel1.Width -= 10
Panel1.Left += 10
End Sub
(04-06-21, 12:47 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم الفكرة هي ان نثبت تموضع البانل من جهة اليمين
المثال التالي هو ماتريد ان شاء الله
السلام عليكم أخي الكريم بالضبط هذا ما أريده ... بارك الله فيك و أدام علينا و عليكم نعمه الظاهرة و الباطنة و جعل فيكم منافع للناس..
04-06-21, 12:41 PM (آخر تعديل لهذه المشاركة : 04-06-21, 12:42 PM {2} بواسطة kebboud.)
(04-06-21, 12:56 AM)معاند الحظ كتب : اخي انت تحتاج الى تعديل موقع البانل ايضا بعد انقاص عرضه
فبهذه الطريقة سيبدو ان البانل يتناقص عرضه من اليسار لليمين باختصار السر في تعويض موقع البانل بنفس القيمة
التي انفصتها منه وهذا يكون بزيادة قيمة الخاصية Left اذا كنت تريد ان يكون التناقص من اليسار لليمين
كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Panel1.Width -= 10
Panel1.Left += 10
End Sub
السلام عليكم أخي المبجل المفخم هذا بالضبط ما أريده ..حفظك الله لنا نبراسا نسير على ضوئه في ظلمات البرمجة... شكرا مسبقا
(04-06-21, 12:56 AM)معاند الحظ كتب : اخي انت تحتاج الى تعديل موقع البانل ايضا بعد انقاص عرضه
فبهذه الطريقة سيبدو ان البانل يتناقص عرضه من اليسار لليمين باختصار السر في تعويض موقع البانل بنفس القيمة
التي انفصتها منه وهذا يكون بزيادة قيمة الخاصية Left اذا كنت تريد ان يكون التناقص من اليسار لليمين
كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Panel1.Width -= 10
Panel1.Left += 10
End Sub
السلام عليكم أخي المبجل المفخم هذا بالضبط ما أريده ..حفظك الله لنا نبراسا نسير على ضوئه في ظلمات البرمجة... شكرا مسبقا
وعليك السلام ورحمة الله وبركاته
بارك الله فيك وفي اهلك واحبابك ومشكور على كلماتك الراقية