vb.net控件位置跟隨圖片框大小變化

以下代碼測試成功，圖片大小和位置改變后，標簽控件依然在這個點上。

創(chuàng)新互聯(lián)公司2013年開創(chuàng)至今，先為蠡縣等服務建站，蠡縣等地企業(yè)，進行企業(yè)商務咨詢服務。為蠡縣企業(yè)網(wǎng)站制作PC+手機+微官網(wǎng)三網(wǎng)同步一站式服務解決您的所有建站問題。

Dim?px,?py,?lx,?ly?As?Integer

Private?Sub?PictureBox1_Resize(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?PictureBox1.Resize

If?px??0?And?py??0?Then

Label1.Location?=?New?Point(PictureBox1.Size.Width?/?px?*?lx,?PictureBox1.Size.Height?/?py?*?ly)

End?If

End?Sub

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

px?=?PictureBox1.Size.Width

py?=?PictureBox1.Size.Height

lx?=?Label1.Location.X

ly?=?Label1.Location.Y

End?Sub

vb.net 如何使得控件隨著窗體大小 的改變而改變呢，大家?guī)兔o想想，最好有代碼的哦

Public Class Form1

Dim 初始化控件自動大小調整與窗口的寬度比例 As Integer

Dim 初始化控件自動大小調整與窗口的高度比例 As Integer

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

初始化控件自動大小調整與窗口的寬度比例 = Me.Width / 控件自動大小調整.Width

初始化控件自動大小調整與窗口的高度比例 = Me.Height / 控件自動大小調整.Height

顯示控件的位置坐標()

End Sub

Private Sub Form1_ResizeEnd(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ResizeEnd

' Form1_ResizeEnd? 這個事件是 窗口大小變化完成后 再進行操作的

控件自動大小調整.Location = New Point(控件自動大小調整.Left, 控件自動大小調整.Top)

'設置控件的初始左位置坐標? 與? 上位置坐標

控件自動大小調整.Size = New Point(Int(Me.Width / 初始化控件自動大小調整與窗口的寬度比例), Int(Me.Height / 初始化控件自動大小調整與窗口的高度比例))

'更改控件的大小? 按第一次窗口的比例 進行調整

顯示控件的位置坐標()

End Sub

Private Sub 顯示控件的位置坐標()

Label1.Text = "控件的上邊距坐標： " 控件自動大小調整.Top

Label2.Text = "控件的左邊距坐標： " 控件自動大小調整.Left

Label3.Text = "控件的寬度大小： " 控件自動大小調整.Width

Label4.Text = "控件的高度大小： " 控件自動大小調整.Height

End Sub

End Class

還有好多方法? 慢慢研究吧兄弟 希望能幫到你

VB怎么讓窗口改變大小時控件也按比例改變大小？

可以用窗體的Resize事件來實現(xiàn)，改變窗體大小時，控件大小跟窗體成比例，不過如果最小化的時候就會出錯，所以還得把最小化的事件給去了，代碼如下：\x0d\x0aPrivate Sub Form_Resize()\x0d\x0aIf Me.WindowState 1 Then '如果不是最小化\x0d\x0aCommand1.Width = Me.Width / 5 '按鈕寬度是窗體的1/5\x0d\x0aCommand1.Height = Me.Height / 5 '按鈕高度是窗體的1/5\x0d\x0aEnd If\x0d\x0aEnd Sub\x0d\x0a參數(shù)可以自己設定，其它的也是如此，細節(jié)還得自己弄了，如果想讓控件居中可以這樣：\x0d\x0aPrivate Sub Form_Resize()\x0d\x0aIf Me.WindowState 1 Then '如果不是最小化\x0d\x0aCommand1.Width = Me.Width / 5 '按鈕寬度是窗體的1/5\x0d\x0aCommand1.Height = Me.Height / 5 '按鈕高度是窗體的1/5\x0d\x0aCommand1.Left = (Me.Width - Command1.Width) / 2 '按鈕左邊\x0d\x0aCommand1.Top = (Me.Height - Command1.Height) / 2 '按鈕頂邊\x0d\x0aEnd If\x0d\x0aEnd Sub\x0d\x0a這樣就可以隨窗體改變而改變了。

VB中如何設置窗體內控件大小隨窗體大小改變而改變？

先在Form_Load中記錄控件的相對位置及大小比例，然后在Form_Resize中按比例設置控件的位置及大小即可：

Dim ll As Single, tt As Single, ww As Single, hh As Single

Private Sub Form_Load()

ll = Text1.Left / Me.ScaleWidth

tt = Text1.Top / Me.ScaleHeight

ww = Text1.Width / Me.ScaleWidth

hh = Text1.Height / Me.ScaleHeight

End Sub

Private Sub Form_Resize()

Text1.Left = Me.ScaleWidth * ll

Text1.Top = Me.ScaleHeight * tt

Text1.Width = Me.ScaleWidth * ww

Text1.Height = Me.ScaleHeight * hh

End Sub

如果控件比較多的話，就要用數(shù)組了。

當前名稱：vb.net控件跟隨大小 vb怎么使控件隨窗體大小變化
鏈接地址：http://www.chinadenli.net/article24/dddghje.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供Google、微信公眾號、云服務器、網(wǎng)站設計公司、關鍵詞優(yōu)化、外貿網(wǎng)站建設

廣告

聲明：本網(wǎng)站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)