Me.Picture1.Height = Me.Height * 0.8
Me.Picture1.Width = Me.Width * 0.9
End Sub
Private Sub Form_Resize()
Me.Picture1.Height = Me.Height * 0.8
Me.Picture1.Width = Me.Width * 0.9
End Sub本回答被网友采纳
VB语言中怎么让控件按比例随窗口大小而改变,是按比例!
Private Sub Form_Load() Me.Picture1.Height = Me.Height * 0.8 Me.Picture1.Width = Me.Width * 0.9End SubPrivate Sub Form_Resize() Me.Picture1.Height = Me.Height * 0.8 Me.Picture1.Width = Me.Width * 0.9End Sub ...
VB怎么让窗口改变大小时控件也按比例改变大小?
可以用窗体的Resize事件来实现，改变窗体大小时，控件大小跟窗体成比例，不过如果最小化的时候就会出错，所以还得把最小化的事件给去了，代码如下：\\x0d\\x0aPrivate Sub Form_Resize()\\x0d\\x0aIf Me.WindowState 1 Then '如果不是最小化\\x0d\\x0aCommand1.Width = Me.Width \/ 5 '按钮宽...
vb6.0怎么让窗体里的控件随着窗体的变化而改变大小?
Dim OldH As Single '窗口大小发生改变时 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 * ...
在VB 程序中,控件的长宽跟随窗口form的大小跟随改变大小的代码是怎么编...
VB6.0中Form中有一个事件叫Resize()的事件，他相当于VB.NET中的SizeChange事件。依据窗体尺寸设置控件大小、位置，这就是分辨率思想。VB6.0例子：Private Sub Form1_ ReSize(){ Button1.Left=Int(Me.Width*0.1)'\/\/左边距窗体的10% Button1.Width=100 Button1.Top=Int(Me.Height*0.0...
vb的按钮怎么可以随着窗口的大小而自动调整位置
窗体调整大小会触发Resize()事件，包括最小化，注意该事件是在大小调整好以后触发的。在根据窗体尺寸调整控件位置时要处理一些特殊情况（比如最小化时窗体尺寸为0）：if me.width<300 or me.height<600 then 上面的数字可以自己定，逻辑就是窗体变的太小时不进行调整 ...
在VB中,如果窗体改变大小,控件也跟着改变,代码该怎么写?
'只要设置它的长和宽跟窗体形成关系就行了(在click、 mouseup ...事件里都可以。下面是在mousemove事件里写的，就是说鼠标移到窗体内就会发生改变。）下面是代码:Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label1.BorderStyle = 1 '它的边框要...
如何在VB.NET中使控件随窗口大小变化而改变
控件的Anchor属性,把Top, Bottom, Left, Right全部选中就可以了
VB 中如何使控件位置和大小自动适应窗体变化?
可把有关按钮放在一个Frame框架内,这样当窗体改变大小时,不用去改变每个按钮的大小和位置了,只需要改变这个Frame的大小和位置就可以了
vb.net 怎样将窗体和所有控件根据电脑分辨率固定?
Int(Me.Height \/ 初始化控件自动大小调整与窗口的高度比例)) '更改控件的大小 按第一次窗口的比例 进行调整 显示控件的位置坐标() End Sub Private Sub 显示控件的位置坐标() Label1.Text = "控件的上边距坐标： " & 控件自动大小调整.Top Label2.Text = "控件的左边距坐标： "...
VB怎样让文本框随窗口变大
1．比例式：当窗口大小发生改变的事件时，先取得目前的长宽；再取得改变后的长宽．求出改变比例，给回本文框做对应调整．Option Explicit Dim lx, ly As Long Private Sub Form_Load()With Me lx = .Width ly = .Height End With End Sub Private Sub Form_Resize()With Text1 .Width = ....
