在vb點虐 中如何按窗體比例縮放控件大小

你設一下你控件的anchor和dock兩個屬性，可以達到你滿意的組合效果。包括位置和大小比例變化。

創(chuàng)新互聯(lián)是一家專注于網(wǎng)站建設、網(wǎng)站制作與策劃設計,河南網(wǎng)站建設哪家好?創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設十余年,網(wǎng)設計領域的專業(yè)建站公司;建站業(yè)務涵蓋:河南等地區(qū)。河南做網(wǎng)站價格咨詢:18980820575

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

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

顯示控件的位置坐標()

End Sub

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

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

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

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

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

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

顯示控件的位置坐標()

End Sub

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

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

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

Label3.Text = "控件的寬度大?。?" 控件自動大小調(diào)整.Width

Label4.Text = "控件的高度大小： " 控件自動大小調(diào)整.Height

End Sub

End Class

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

VB點虐 怎么實現(xiàn)運行時鼠標拖動改變控件的大小啊

控件是可以顯示在里面的，你只要加個label，把label的屬性設為visualble=fause就行。設置鼠標經(jīng)過頭像的mouseHover和mouseLeave事件，當mouseHover時label的屬性visualble=true，當mouseLeave時label的屬性visualble=fause即可。窗體的鼠標事件可以設置控件的cursor屬性，里面可以選擇許多種鼠標圖形。 只要是正常的Form都可以改變窗體大小，但是無邊框的窗體只能用函數(shù)改變或者設置屬性，在debug后是不能改變的。拖動窗體需要在窗體的load時間里面寫入當鼠標單擊不放時的事件即可，不難。