[VB] Dynamically Resize and Reposition All Controls when Form is Resized, Including Font Sizes

Hi mọi người, sau một hồi tìm kiếm về thủ thuật tự động điều chỉnh kích thước giao diện trên chương trình và điều chỉnh phù hớp với kích thước mà bản tùy chỉnh với chương trình bạn phát triển. Và các bạn nên tùy biển để phù hợp với bản thân nhé.

Chúng ta bắt đầu nhé.
Đầu tiên bạn thêm một điều kiện để gọi dữ liệu cập nhật.

"Dim rs as New Resizer"

Ở phần rs và Resizer bạn có thể thay thế tên gì cũng được, để bạn dễ nhớ.

Tiếp theo ở Form_load bạn thêm điều kiện này vào

"rs.FindAllControls(Me)"

Tiếp đó ở Form_Resize bạn thêm điều kiện sau:

"rs.ResizeAllControls(Me)"

Và code hoàn chỉnh sẽ là như thế này :

Public Class Form1

    Dim rs As New Resizer



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

        rs.FindAllControls(Me)



    End Sub



    Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize

        rs.ResizeAllControls(Me)

    End Sub

End Class

Và bạn thêm một mã lớp này vào sao End Class của chương trình nữa là hoàn thành nhé.
https://pastebin.com/KnLEnBPn

Vậy là xong, bây giờ việc còn lại của các bạn là kiểm tra chương trình hoạt động có ok không và cần thêm bớt chỉnh sữa ở mục nào nhé.

Nguồn : Codeproject / https://url.hungvb.com/?i=cHJva



Thời gian : 30/04/2022 20:51:04