vb6.0怎么让窗体里的控件随着窗体的变化而改变大小？

发布网友 发布时间：2022-04-22 17:55

我来回答

共4个回答

热心网友 时间：2023-11-14 14:42

'按比例调整控件大小代码...

'声明变量
Dim OldW As Single
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 * Me.Width / OldW, cu.Top * Me.Height / OldH, cu.Width * Me.Width / OldW, cu.Height * Me.Height / OldH
Next
'赋值
OldW = Me.Width
OldH = Me.Height
End Sub

热心网友 时间：2023-11-14 14:43

在窗体Form_Resize()事件中,用如下代码:控件名.move Left,Top[,Width][,Height]前两个是必选参数"left和top"例如,我想让文本控件,随窗体变化,让其边框为100缇(1像素=1缇*15),代码如下,Text1.Move 100,100,Me.ScaleWidth-200,Me.ScaleHeight-200 即可.
其乎让控件随窗体变化而变化,控件的Move属性都能实现.

热心网友 时间：2023-11-14 14:43

先将整个布局用很多Panel布局好(Align), 然后将控件放在Panel中,一般Dock在Panel中,这样窗体大小变了,Panel就会跟着调整其变化,Panel变了,控件就会跟着调整其变化.

热心网友 时间：2023-11-14 14:44

private sub form_load()
dim ioldmode as integer
ioldmode=me.scalemode
me.scalemode=vbpixel
me.width=screen.width
me.height=screen.height
me.scalemode=ioldmode
end sub
这个是窗口最大化的代码,控件要写在form_resize()中,在窗口改变大小时调整自己的位置.原理和上面的代码是一样的.