منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] تناقص البانل من الأيسر إلى الأيمن - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تناقص البانل من الأيسر إلى الأيمن (/showthread.php?tid=38528)

تناقص البانل من الأيسر إلى الأيمن - kebboud - 30-05-21

إخوتي الأعزاء
كيف يمكنني أن أجعل البانل يتناقص تدريجيا من جهته اليسرى إلى جهته اليمنى...يعني من الأيسر نحو الأيمن  
و شكرا مسبقا

RE: تناقص البانل من الأيسر إلى الأيمن - ADAM12 - 30-05-21

مرحبا أخي
تفضل و إن شاء الله أكون فهمت الاتجاهات صحيح

البانل تكون على يمين المستخدم ( يسار الشاشة ) 
و 770 الموجودة بالكود هي عرض الفورم الذي توجد به البانل

كود :
Do While Panel1.Location.X < 770
           Panel1.Location = New Point(Panel1.Location.X + 1, Panel1.Location.Y)
       Loop


RE: تناقص البانل من الأيسر إلى الأيمن - kebboud - 04-06-21

(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 ...لكن المشكلة أن هذا التناقص يحدث من يمين البانل نحو يساره...يعني من رأسه الأيمن نحو رأسه الأيسر...
الآن نريده أن يتناقص من يساره نحو يمينه..
شكرا أخي الكريم 

RE: تناقص البانل من الأيسر إلى الأيمن - ابراهيم ايبو - 04-06-21

السلام عليكم ورحمة الله وبركاته
اخي الكريم الفكرة هي ان نثبت تموضع البانل من جهة اليمين
المثال التالي هو ماتريد ان شاء الله

RE: تناقص البانل من الأيسر إلى الأيمن - معاند الحظ - 04-06-21

اخي انت تحتاج الى تعديل موقع البانل ايضا بعد انقاص عرضه 
فبهذه الطريقة سيبدو ان البانل يتناقص عرضه من اليسار لليمين باختصار السر في تعويض موقع البانل بنفس القيمة 
التي انفصتها منه وهذا يكون بزيادة قيمة الخاصية Left اذا كنت تريد ان يكون التناقص من اليسار لليمين 




كود :
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Panel1.Width -= 10
        Panel1.Left += 10
    End Sub


RE: تناقص البانل من الأيسر إلى الأيمن - kebboud - 04-06-21

(04-06-21, 12:47 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم الفكرة هي ان نثبت تموضع البانل من جهة اليمين
المثال التالي هو ماتريد ان شاء الله


السلام عليكم أخي الكريم 
بالضبط هذا ما أريده ...
بارك الله فيك و أدام علينا و عليكم نعمه الظاهرة و الباطنة و جعل فيكم منافع للناس..

RE: تناقص البانل من الأيسر إلى الأيمن - ابراهيم ايبو - 04-06-21

وبارك الله فيك ولك اخي الكريم


RE: تناقص البانل من الأيسر إلى الأيمن - kebboud - 04-06-21

(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


السلام عليكم أخي المبجل المفخم
هذا بالضبط ما أريده ..حفظك الله لنا نبراسا نسير على ضوئه في ظلمات البرمجة...
شكرا مسبقا
Heart

RE: تناقص البانل من الأيسر إلى الأيمن - معاند الحظ - 04-06-21

(04-06-21, 12:41 PM)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


السلام عليكم أخي المبجل المفخم
هذا بالضبط ما أريده ..حفظك الله لنا نبراسا نسير على ضوئه في ظلمات البرمجة...
شكرا مسبقا
Heart

وعليك السلام ورحمة الله وبركاته
بارك الله فيك وفي اهلك واحبابك ومشكور على كلماتك الراقية