[英]How to resize controls while resizing form in vb.net?
我正在使用帶有UI控件的vb.net應用程序。如果我調整窗體的大小,則UI控件的對齊方式會發生不正確的變化。 請指導我解決此問題。
Dim CWidth As Integer = Me.Width ' Current Width
Dim CHeight As Integer = Me.Height ' Current Height
Dim IWidth As Integer = Me.Width ' Initial Width
Dim IHeight As Integer = Me.Height ' Initial Height
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
IWidth = Me.Width
IHeight = Me.Height
End Sub
Private Sub Form4_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
Dim RW As Double = (Me.Width - CWidth ) / CWidth ' Ratio change of width
Dim RH As Double = (Me.Height - CHeight ) / CHeight ' Ratio change of height
For Each Ctrl As Control In Controls
Ctrl.Width += CInt(Ctrl.Width * RW)
Ctrl.Height += CInt(Ctrl.Height * RH)
Ctrl.Left += CInt(Ctrl.Left * RW)
Ctrl.Top += CInt(Ctrl.Top * RH)
Next
CWidth = Me.Width
CHeight = Me.Height
End Sub
請參考我上面的代碼並指導我。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.