你設(shè)一下你控件的anchor和dock兩個屬性,可以達(dá)到你滿意的組合效果。包括位置和大小比例變化。
創(chuàng)新互聯(lián)堅(jiān)持“要么做到,要么別承諾”的工作理念,服務(wù)領(lǐng)域包括:網(wǎng)站建設(shè)、成都網(wǎng)站設(shè)計(jì)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù),滿足客戶于互聯(lián)網(wǎng)時代的虞城網(wǎng)站設(shè)計(jì)、移動媒體設(shè)計(jì)的需求,幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴!
Public Class Form1
Dim 初始化控件自動大小調(diào)整與窗口的寬度比例 As Integer
Dim 初始化控件自動大小調(diào)整與窗口的高度比例 As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
初始化控件自動大小調(diào)整與窗口的寬度比例 = Me.Width / 控件自動大小調(diào)整.Width
初始化控件自動大小調(diào)整與窗口的高度比例 = Me.Height / 控件自動大小調(diào)整.Height
顯示控件的位置坐標(biāo)()
End Sub
Private Sub Form1_ResizeEnd(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ResizeEnd
' Form1_ResizeEnd? 這個事件是 窗口大小變化完成后 再進(jìn)行操作的
控件自動大小調(diào)整.Location = New Point(控件自動大小調(diào)整.Left, 控件自動大小調(diào)整.Top)
'設(shè)置控件的初始左位置坐標(biāo)? 與? 上位置坐標(biāo)
控件自動大小調(diào)整.Size = New Point(Int(Me.Width / 初始化控件自動大小調(diào)整與窗口的寬度比例), Int(Me.Height / 初始化控件自動大小調(diào)整與窗口的高度比例))
'更改控件的大小? 按第一次窗口的比例 進(jìn)行調(diào)整
顯示控件的位置坐標(biāo)()
End Sub
Private Sub 顯示控件的位置坐標(biāo)()
Label1.Text = "控件的上邊距坐標(biāo): " 控件自動大小調(diào)整.Top
Label2.Text = "控件的左邊距坐標(biāo): " 控件自動大小調(diào)整.Left
Label3.Text = "控件的寬度大?。?" 控件自動大小調(diào)整.Width
Label4.Text = "控件的高度大?。?" 控件自動大小調(diào)整.Height
End Sub
End Class
還有好多方法? 慢慢研究吧兄弟 希望能幫到你
可以算出縮放前后的height 和width 的比例,再利用這比例對控件的大小和位置進(jìn)行變化。