[ahmedhhh2]

السلام عليكم عندي ثلاث Button  اريد اخفاء Button2 و يتم ترحيل Button1 بجوار Button3
استخدم هذا الكود لاخقاء Button2.Visible = false


قبل الاخفاء يظهر هكذا 
Button1 Button2 Button3
لاكن عند الاخفاء يظهر بهذا الشكل
Button1            Button3
واريد عند اظهاره يعود كما كان 

وشكرا لكم جميعا

[SaedAmer]

وعليكم السلام
مرفق مثال في الاسفل

كود :

Public Class Form1

   Dim xx1, xx2 As New Point

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       xx1 = Button2.Location
       xx2 = Button3.Location

   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       If Button2.Visible = True Then


           Button2.Visible = False
           Button3.Location = New Point(xx1)

       Else

           Button2.Visible = True
           Button3.Location = New Point(xx2)

       End If

   End Sub
End Class

[ahmedhhh2]

جزاك الله خير ويسر الله امرك شكرا

[Taha Okla]

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

قم باستخدام الاداة (FlowLayoutPanel1) وضع عليها الازرار الثلاثة
فاذا اعطيت احد الازرار امر اخفاء فان الاداة ستعتبر هذا الزر غير موجود وتقرب الزر الذي يله مكانه وهكذا ..
وهاك اكثر من طريقة لترتيب الادوات عليها من خلال الخاصية (FlowDirection) 
وبدون الحاجة لأكواد ..

[ahmedhhh2]

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