السلام عليكم عندي ثلاث Button اريد اخفاء Button2 و يتم ترحيل Button1 بجوار Button3
استخدم هذا الكود لاخقاء Button2.Visible = false
قبل الاخفاء يظهر هكذا
Button1 Button2 Button3
لاكن عند الاخفاء يظهر بهذا الشكل
Button1 Button3
واريد عند اظهاره يعود كما كان
وشكرا لكم جميعا
وعليكم السلام
مرفق مثال في الاسفل
كود :
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
جزاك الله خير ويسر الله امرك شكرا
وعليكم السلام ورحمة الله وبركاته
قم باستخدام الاداة (FlowLayoutPanel1) وضع عليها الازرار الثلاثة
فاذا اعطيت احد الازرار امر اخفاء فان الاداة ستعتبر هذا الزر غير موجود وتقرب الزر الذي يله مكانه وهكذا ..
وهاك اكثر من طريقة لترتيب الادوات عليها من خلال الخاصية (FlowDirection)
وبدون الحاجة لأكواد ..
ما شاء الله تم تجريب الاداة اكثر من رائع جزاك الله خير وبارك الله فيك