vb.net控件大小,vb窗体大小

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

vb.net 如何使得控件随着窗体大小的改变而改变呢，大家帮忙给想想，最好有代码的哦

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

还有好多方法慢慢研究吧兄弟希望能帮到你

相关问答

Q1: VB.net怎么实现运行时鼠标拖动改变控件的大小啊

控件是可以显示在里面的，你只要加个label，把label的属性设为visualble=fause就行。设置鼠标经过头像的mouseHover和mouseLeave事件，当mouseHover时label的属性visualble=true，当mouseLeave时label的属性visualble=fause即可。窗体的鼠标事件可以设置控件的cursor属性，里面可以选择许多种鼠标图形。只要是正常的Form都可以改变窗体大小，但是无边框的窗体只能用函数改变或者设置属性，在debug后是不能改变的。拖动窗体需要在窗体的load时间里面写入当鼠标单击不放时的事件即可，不难。

Q2: 如何修改vb中控件的尺寸

修改VB中控件的尺寸方法：

1）鼠标选中需要修改尺寸的控件-鼠标移到该控件的右下角，左键按住鼠标-鼠标图案由单箭头变为双线箭头，鼠标往右往下拉动控件到需要尺寸放开左键，控件尺寸就修改成新尺寸。

2）在该控件的属性窗口修改，对控件的Height和Width值修改。

Q3: vb.net如何实现运行时改变控件的大小？

陈恩点在此为你解答如有错误请见谅：

思路是这样的：

先判断鼠标位置（MouseMove事件）

如果在边缘，同时鼠标左键是按下的

窗体增加增加数为鼠标移动数

Q4: 在vb.net中如何按窗体比例缩放控件大小

你设一下你控件的anchor和dock两个属性，可以达到你满意的组合效果。包括位置和大小比例变化。