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
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
Trả lờiXóađú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
XóaNế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
XóaThấy bố cục khi để full màn hình hơi rộng :s (hd m` cách fix nhé )
Trả lờiXóaCá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.
Xóa(y) thanks ban
XóaNice
Trả lờiXóa