Question

哪位大哥教给我VB最大化FORM按比例扩大TEXT等的方法

VB中有:

form1
text1
text2
label1

现在将form1最大化时，希望TEXT1和text2和label用计算的方法按比例扩大，以适合我希望的要求，代码怎么写才能实现这些效果？

Answer 1

Option Explicit
Private FormOldWidth As Long
'保存窗体的原袜碧始宽度
Private FormOldHeight As Long
'保存窗体的原始高度

'在调用ResizeForm前先芦拆调用本函数
Public Sub ResizeInit(FormName As Form)
Dim Obj As Control
FormOldWidth = FormName.ScaleWidth
FormOldHeight = FormName.ScaleHeight
On Error Resume Next
For Each Obj In FormName
Obj.Tag = Obj.Left & " " & Obj.Top & " " _
& Obj.Width & " " & Obj.Height & " "
Next Obj
On Error GoTo 0
End Sub

'陪好枣按比例改变表单内各元件的大小，在调用ReSizeForm前先调用ReSizeInit函数
Public Sub ResizeForm(FormName As Form)
Dim Pos(4) As Double
Dim I As Long, TempPos As Long, StartPos As Long
Dim Obj As Control
Dim ScaleX As Double, ScaleY As Double

ScaleX = FormName.ScaleWidth / FormOldWidth
'保存窗体宽度缩放比例
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, " ", vbTextCompare)
If TempPos > 0 Then
Pos(I) = Mid(Obj.Tag, StartPos, TempPos - StartPos)
StartPos = TempPos + 1
Else
Pos(I) = 0
End If
'根据控件的原始位置及窗体改变大小的比例对控件重新定位与改变大小
Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, _
Pos(2) * ScaleX, Pos(3) * ScaleY
Next I
Next Obj
On Error GoTo 0
End Sub

Private Sub Form_Load()
Call ResizeInit(Me) '在程序装入时必须加入
End Sub

Private Sub Form_Resize()
Call ResizeForm(Me) '确保窗体改变时控件随之改变
End Sub

Answer 2

窗体的resize事件中写代码
在窗体加载的时候就算好比例值

定义全局变量w 跟 h 就物迟中是高和宽的比值

w=text1.width / form1.width
h=text1.height / form1.height

在窗体的resize事件中代码
Private Sub Form_Resize()
text1.width=form1.width * w
text1.height=form1.hight * h
End Sub

text2的做法一样 自旦让己研究下‘‘罩山

Answer 3

其实迹冲拍只要在form_resize事件中使用move方法就可以了..

按比例规划你的控件.让它们保持姿羡一致..

试试我的代码:

Private Sub Form_Load()
Label1 = "这是一个测试文本:"
Label1.AutoSize = True
Text2.Text = "我也判宴会保持在这个位置的!"
End Sub

Private Sub Form_Resize()
Text1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight - 300
Label1.Move 0, Me.ScaleHeight - 220
Text2.Move Label1.Width + 50, Me.ScaleHeight - 280, Me.ScaleWidth - Label1.Width - 50, 280
End Sub