Xin chào các bạn minh đang làm DA chuyên đề về "mô phỏng thuật toán sắp xếp" bang vb.net Nhưng vẫn bị lỗi ở chổ Hoán vi hai buton 1. Tạo một mảng buton 2.Hoán vị Bất kì hai vị trí cho nhau==>Hai button di chuyen đổi cho cho nhau Hàm hoán vi mình viết đây có ai có ý tưởng góp ý gúp nha : Sub hoanvilabel(ByVal x As Button, ByVal y As Button) For l = 0 To 100 x.Left = x.Left + 1 y.Left = y.Left + 1 Next Dim e1 As Integer = P2.Y - P1.Y Dim e2 As Integer = P1.Y - P2.Y If P1.Y < P2.Y Then For n = 0 To e1 x.Top = x.Top + 1 y.Top = y.Top - 1 Next Else For n = 0 To e2 x.Top = x.Top + 1 x.Top = y.Top - 1 Next End If For l = 0 To 100 x.Left = x.Left - 1 y.Left = y.Left - 1 Next End Sub
