منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف تغير اتجاة الفورم - نسخة قابلة للطباعة

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

كيف تغير اتجاة الفورم - new_programer - 29-05-20

السلام عليكم
كل عام وانتم بخير

اريد وضع شاشة فوق الساعة جهة يمين الشاشة
وتكون بعرض صغير حوالي مثلا 200بيكسل

وعند مرور الماوس على الشاشة اريد ان تفتح أو تزيد العرض
600 بيكسل
لكن اريد الشاشة تكون ثابتة جهة اليمين  وتزيد فى اتجاة اليسار

حاولت باكثر من طريقه لكن حركة الفورم تكون من اليسار الى اليمين

اريد الحركة من اليمين الى اليسار
المشروع عبارة عن قائمة جانبيه منسدلة
مثل الصورة لكن اريد الاتجاة من اليمين

RE: كيف تغير اتجاة الفورم - new_programer - 30-05-20

انا اريد كود يجعل الفورم ثابت فى يمين الشاشة
وعند تكبير الفورم الفورم تتحرك إلى اليسار
عكس اتجاة اللى فى الصورة
كل المحاولات تكون الفورم  ثابت فى يسار الشاشة

وبتتحرك فى اتجاة اليمين

RE: كيف تغير اتجاة الفورم - alshandodi - 30-05-20

كود :
  If Me.Width < 350 Then
           While Me.Width < 350
               Me.Width += 2
           End While
           Exit Sub
       End If

       If Me.Width > 136 Then
           While Me.Width > 136
               Me.Width -= 2
           End While
           Exit Sub
       End If


RE: كيف تغير اتجاة الفورم - new_programer - 30-05-20

(30-05-20, 02:26 PM)alshandodi كتب :
كود :
  If Me.Width < 350 Then
           While Me.Width < 350
               Me.Width += 2
           End While
           Exit Sub
       End If

       If Me.Width > 136 Then
           While Me.Width > 136
               Me.Width -= 2
           End While
           Exit Sub
       End If

شكراً لك 
لكن الفورم بتكون ثابته فى شمال الشاشة

انا عايز الفورم ثابت فى يمين الشاشة