VB怎么让窗口改变大小时控件也按比例改变大小?
可以用窗体的Resize事件来实现，改变窗体大小时，控件大小跟窗体成比例，不过如果最小化的时候就会出错，所以还得把最小化的事件给去了，代码如下：Private Sub Form_Resize()If Me.WindowState <> 1 Then '如果不是最小化 Command1.Width = Me.Width \/ 5 '按钮宽度是窗体的1\/5 Command1.Height ...
VB 中如何使控件位置和大小自动适应窗体变化?
具体操作步骤如下：1. 在窗体上添加一个框架控件。2. 将需要自动适应窗体变化的控件（如按钮）拖放到框架内。3. 调整框架的大小和位置。当窗体大小变化时，框架内的控件也将自动调整大小和位置，从而实现随窗体变化的自适应。使用框架控件能简化控件布局的调整工作，提高代码的可维护性和灵活性。通过将...
VB 控件大小随窗体改变而改变
ScaleY = FormName.ScaleHeight \/ FormOldHeight '保存窗体高度缩放比例 On Error Resume Next For Each Obj In FormName StartPos = 1 For i = 0 To 4 '读取控件的原始位置与大小 TempPos = InStr(StartPos, Obj.Tag, "...
在VB中,如果窗体改变大小,控件也跟着改变,代码该怎么写?
'只要设置它的长和宽跟窗体形成关系就行了(在click、 mouseup ...事件里都可以。下面是在mousemove事件里写的，就是说鼠标移到窗体内就会发生改变。）下面是代码:Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label1.BorderStyle = 1 '它的边框要...
vb6.0怎么让窗体里的控件随着窗体的变化而改变大小?
'窗口大小发生改变时 Private Sub Form_Resize()On Error Resume Next '最小大小,防止比例失调 If Me.Width < 4800 Then Me.Width = 4800 If Me.Height < 3600 Then Me.Height = 3600 Dim cu As Control For Each cu In Me.Controls '调整大小 cu.Move cu.Left * Me.Width \/ OldW, cu...
vb语言中怎么使窗体和窗体里的控件同时放大缩小?
思路在form1的load和resize里设置每个控件的长宽，都用form1的长宽表示，比如command1.width=1\/20*me.width 这样当当窗体宽度改变后按钮的宽度始终是它的1\/20高度类同
vb如何让控件随显示器的变大而增大
vb.net 设定好控件的边距（Anchor属性）就可以随窗口的大小改变大小了。VB6 必须得自己计算了，通过代码修改长宽属性进行变化。
VB 中如何使控件位置和大小自动适应窗体变化?
可把有关按钮放在一个Frame框架内,这样当窗体改变大小时,不用去改变每个按钮的大小和位置了,只需要改变这个Frame的大小和位置就可以了
VB 怎么设置窗体的大小随着屏幕分辨率自动改变
自动改变难度不大，如：Private Sub Form_Load()Form1.Width = Screen.Width Form1.Height = Screen.Height End Sub 还有一种办法是设置，启动是最大化。但窗体大小的变更会影响窗体上各控件的布局，重新布局很繁很繁，窗体上每个控件的位置或大小都要重新定义。
vb中调整窗体大小
你可以这样做：思想是这样的，窗体刚打开时用两个变量记住文本框和窗体的大小比例，在改变窗体大小时，根据比例改变文本框的大小。代码如下：在窗体上只有一个textbox控件，text1 Dim h, w As Integer '记录窗体和控件的大小比例 Private Sub Form_Load()h = Form1.Height - Text1.Height w = ...
