VB.NET - 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

7 comments:

  1. Sao a đang fix lỗi đường truyền để có thể thêm video vào thì nó báo lỗi nhỉ :? không hiểu vì sao nữa. A tìm hiểu kỷ lắm r đó, chắc phải học chút code regex nữa may ra mới ok hoặc tích hợp form google vào chương trình quá :S

    ReplyDelete
    Replies
    1. đúng r` đó a, code đăng video phải hạm regex như js ở khung bình luận ấy, vứt link vào là nó hiện lên ấy, không biết có chỉnh sữa giao diện không nhỉ :s

      Delete
    2. Nếu có thời gian học về hàm đó thì tốt đó e, nhưng có 1 điều đó là hàm đó hơi rắc rối với 1 số mem đó nhé :D

      Delete
  2. Thấy bố cục khi để full màn hình hơi rộng :s (hd m` cách fix nhé )

    ReplyDelete
    Replies
    1. Cái này thì mình tùy biến kéo bố cục lại bạn nhé, để phù hợp với cách nhìn của bản thân là ok.

      Delete

FOLLOWERS

Exchange Link

TỔNG LƯỚT TRUY CẬP