Public Class Form1
創新互聯2013年開創至今,公司以網站設計制作、成都網站設計、系統開發、網絡推廣、文化傳媒、企業宣傳、平面廣告設計等為主要業務,適用行業近百種。服務企業客戶成百上千,涉及國內多個省份客戶。擁有多年網站建設開發經驗。為企業提供專業的網站建設、創意設計、宣傳推廣等服務。 通過專業的設計、獨特的風格,為不同客戶提供各種風格的特色服務。
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
還有好多方法? 慢慢研究吧兄弟 希望能幫到你
兩種方法,一種是固定窗口大小,一種是控件在窗口大小改變時,自動按窗口位置進行改變;
以上為個人看法,手打很辛苦,希望采納,謝謝您的支持。
謝謝您的支持,有任何疑問歡迎您再次通過此渠道提問,讓大家共同解決,共同進步!
以上回答僅為“百度規則”,沒有任何違法行為,請樓主采納,謝謝!
以下代碼測試成功,圖片大小和位置改變后,標簽控件依然在這個點上。
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控件變化 vbnet常用控件介紹
當前地址:http://vcdvsql.cn/article0/doscooo.html
成都網站建設公司_創新互聯,為您提供商城網站、外貿網站建設、網站設計、ChatGPT、微信小程序、網站導航
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯