如何在vb窗口最大化的时候，里面的控件一起变化？ - 编程论坛

#2

Srin2005-07-04 00:19

是不是在窗口最大化的时候，加个事件。让他里边的控件也一起移动就好了。。
我是这样想的，但没有试验过。

#3

slore2005-07-04 19:20

计算比例,移动位置和大小

#4

840090302005-07-05 22:56

这么麻烦

有没有简单一点

#5

vb20052005-07-06 17:48

我觉得也只有计算一下比例，把控件的width,Height属性按照比例调整．其实也不复杂啊

期待有更好的方法．

#6

840090302005-07-06 20:32

不是复杂的问题

如果程序控件多要逐个计算

太麻烦

#7

萧三少2005-07-08 10:01

Form改变大小时同时改变其内Control之大小

这个程式只是个范例，但在某些物件上不能使用，例如:Line，因为它没有Top, Left Width, Height所以在本程式中没有作用，不过呢，像这一类的东西可自己用另外程式去控制。

Option Explicit Private InitWidth As Long ' Form 的原始大小 Private InitHeight As Long

Private Sub Form_Load() InitWidth = ScaleWidth InitHeight = ScaleHeight Dim Ctl As Control ' 记录每个 Control 的原始位置、大小、字型大小, 放在 Tag 属性中 On Error Resume Next '确保left, top, width, height, Tag属性没有全有的Control For Each Ctl In Me '也能正常执行 Ctl.Tag = Ctl.Left & " " & Ctl.Top & " " & Ctl.Width & " " & Ctl.Height & " " Ctl.Tag = Ctl.Tag & Ctl.FontSize & " " Next Ctl On Error GoTo 0 End Sub

Private Sub Form_Resize() Dim D(4) As Double Dim I As Long Dim TempPos As Long Dim StartPos As Long Dim Ctl As Control Dim TempVisible As Boolean Dim ScaleX As Double Dim ScaleY As Double

ScaleX = ScaleWidth / InitWidth ScaleY = ScaleHeight / InitHeight On Error Resume Next For Each Ctl In Me TempVisible = Ctl.Visible Ctl.Visible = False StartPos = 1 ' 读取 Control 的原始位置、大小、字型大小 For I = 0 To 4 TempPos = InStr(StartPos, Ctl.Tag, " ", vbTextCompare) If TempPos > 0 Then D(I) = Mid(Ctl.Tag, StartPos, TempPos - StartPos) StartPos = TempPos + 1 Else D(I) = 0 End If ' 根据比例设定 Control 的位置、大小、字型大小 Ctl.Move D(0) * ScaleX, D(1) * ScaleY, D(2) * ScaleX, D(3) * ScaleY 'Ctl.Width = D(2) * ScaleX 'Ctl.Height = D(3) * ScaleY If ScaleX < ScaleY Then Ctl.FontSize = D(4) * ScaleX Else Ctl.FontSize = D(4) * ScaleY End If Next I Ctl.Visible = TempVisible Next Ctl On Error GoTo 0 End Sub

#8

pipi_song2006-08-29 10:50

这个好啊！我也正需要这个!楼上的方法有人试过吗？楼主没有总结阿?

#9

jiangdongbing2006-08-29 14:02

确实很好感谢萧三少我也需要这个

#10

pipi_song2006-08-29 19:01

我试了，确实可以用！但是还有一个问题是：窗口如果有背景图片的话，背景图片不能随窗口的最大化拉伸，不知道能不能解决！
还是很感谢萧三少！！

#11

Mandy_k2013-01-14 23:40

不知道7楼的大虾给的程序如何~~~

#12

binaju2013-08-10 05:07

回复 10楼 pipi_song

'Form改变大小时同时改变其内Control之大小这个程式只是个范例，但在某些物件上不能使用，例如:Line，因为它没有Top, Left Width, Height所以在本程式中没有作用，不过呢，像这一类的东西可自己用另外程式去控制。

Option Explicit
Private InitWidth As Long ' Form 的原始大小
Private InitHeight As Long

Private Sub Form_Load()
InitWidth = ScaleWidth
InitHeight = ScaleHeight
Dim Ctl As Control ' 记录每个 Control 的原始位置、大小、字型大小, 放在 Tag 属性中
On Error Resume Next '确保left, top, width, height, Tag属性没有全有的Control
For Each Ctl In Me '也能正常执行
Ctl.Tag = Ctl.Left & " " & Ctl.Top & " " & Ctl.Width & " " & Ctl.Height & " "
Ctl.Tag = Ctl.Tag & Ctl.FontSize & " "
Next Ctl
On Error GoTo 0
End Sub

Private Sub Form_Resize()
Dim D(4) As Double
Dim I As Long
Dim TempPos As Long
Dim StartPos As Long
Dim Ctl As Control
Dim TempVisible As Boolean
Dim ScaleX As Double
Dim ScaleY As Double

ScaleX = ScaleWidth / InitWidth
ScaleY = ScaleHeight / InitHeight
On Error Resume Next
For Each Ctl In Me
TempVisible = Ctl.Visible
Ctl.Visible = False
StartPos = 1 ' 读取 Control 的原始位置、大小、字型大小
For I = 0 To 4
TempPos = InStr(StartPos, Ctl.Tag, " ", vbTextCompare)
If TempPos > 0 Then
D(I) = Mid(Ctl.Tag, StartPos, TempPos - StartPos)
StartPos = TempPos + 1
Else
D(I) = 0
End If ' 根据比例设定 Control 的位置、大小、字型大小
Ctl.Move D(0) * ScaleX, D(1) * ScaleY, D(2) * ScaleX, D(3) * ScaleY '
Ctl.Width = D(2) * ScaleX '
Ctl.Height = D(3) * ScaleY
If ScaleX < ScaleY Then
Ctl.FontSize = D(4) * ScaleX
Else
Ctl.FontSize = D(4) * ScaleY
End If
Next I
Ctl.Visible = TempVisible
Next Ctl
On Error GoTo 0
Me.PaintPicture Me.Picture, 0, 0, ScaleWidth, ScaleHeight '窗体重画
End Sub
'增加倒数第二行窗体重画即可，但注意窗体属性中 autoredraw值设为true

#13

kone5192013-11-13 21:39

combox控件不能跟着最大化，求解！

#14

adrian932014-12-31 11:59

ScaleX = ScaleWidth / InitWidth
ScaleY = ScaleHeight / InitHeight
各位大神，请问一下我用这个界面中InitHeight和InitWidth为什么等于零？

#15

adrian932014-12-31 12:01

回复 12楼 binaju

ScaleX = ScaleWidth / InitWidth
ScaleY = ScaleHeight / InitHeight
麻烦你啦，请问一下我用的界面中InitHeight和InitWidth为什么等于零？