【请教】怎么把控件和控件里面的文字同时随窗口变化？【vb吧】

我百度到专家答疑网上面的一个解答：'下面代码使得窗体大小变化时窗体内各控件大小和位置按窗体变化比例变化，测试过后控件是变化了，加上什么代码也能把文字也随之变化呢？
------------------------------------------------------
Option Explicit
Private Type mForm
height As Single
width As Single
End Type
Private Type mControl
top As Single
left As Single
height As Single
width As Single
End Type
Private myForm As mForm, myControls() As mControl
----------------------------------------------------
Private Sub Form_Load()
myForm.height = Me.height
myForm.width = Me.width
ReDim myControls(Controls.Count - 1)
Dim i As Long
For i = 0 To Controls.Count - 1
myControls(i).top = Controls(i).top
myControls(i).left = Controls(i).left
myControls(i).height = Controls(i).height
myControls(i).width = Controls(i).width
Next i
End Sub
----------------------------------------------------
Private Sub Form_Resize()
Dim hRatio As Single, wRatio As Single
hRatio = Me.height / myForm.height
wRatio = Me.width / myForm.width
Dim i As Long
For i = 0 To Controls.Count - 1
Controls(i).top = myControls(i).top * hRatio
Controls(i).height = myControls(i).height * hRatio
Controls(i).left = myControls(i).left * wRatio
Controls(i).width = myControls(i).width * wRatio
Next i
On Error Resume Next
End Sub
---------------------------------------------------
求教吧里的老师们。

加入了line这个空间，原来的代码出现了实时作物'438：对象不支持该属性或方法。
可以有什么办法把line这个空间忽略或者增加哪条代码弄好吗？'

感觉有点像我几年前写过的，不过仔细一看，比我的少了字体变化。
你的问题很简单，你自己就可以解决的，控件的位置变化是Left Top，大小是Width Height，很明显只要加一个Font.Size就可以控制字体大小了，对Line控件要单独对用X1 X2 Y1 Y2 属性。

@yjryym
是在里面加入
myControls(i).Font.Size = Controls(i).Font.Size?
对Line控件对用X1 X2 Y1 Y2 属性，它们不能像其它控件有宽和高啊，那么改用什么代码呢？

人工置顶。急用。其他的吧友可以帮忙看一下么？

控件的调整用Top Left Width Height属性，字体大小用Font.Size控制，Line控件没有Top Left Width Height属性，可以改变X1 X2 Y1 Y2值调整位置和宽度(或高度)

@cbm666 网络上有一种包括大小，字体，位置跟随窗口变化的方法。复制如下，运行时候总会提示出现除数为0的错误：
Option Explicit
Private ObjOldWidth As Long '保存窗体的原始宽度
Private ObjOldHeight As Long '保存窗体的原始高度
Private ObjOldFont As Single '保存窗体的原始字体比
'窗体部分
Private Sub Form_Resize()
'确保窗体改变时控件随之改变
Call ResizeForm(Me)
End Sub
Private Sub Form_Load()
'在程序装入时必须加入
Call ResizeInit(Me)
End Sub
' '在调用ResizeForm前先调用本函数
Public Sub ResizeInit(FormName As Form)
Dim Obj As Control
ObjOldWidth = FormName.ScaleWidth
ObjOldHeight = FormName.ScaleHeight
ObjOldFont = FormName.Font.Size / ObjOldHeight【这里提示除数为0，应该怎么修改呢】
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 / ObjOldWidth【这里亦提示除数为0】
'保存窗体宽度缩放比例
ScaleY = FormName.ScaleHeight / ObjOldHeight【这里亦提示除数为】
'保存窗体高度缩放比例
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
Obj.Font.Size = ObjOldFont * FormName.ScaleHeight
Next i
Next Obj
End Sub

人工置顶。求教诸位吧友。

上面已跟你说过枚举时可以用 select case
timer drive combo Line 这些不能调整高度的要分开

使用ini 配置文件读写楼主要代码Q我吧 138449666

楼主，你应该使用客户区大小，而不是整个窗口大小。
在Load中：
把myForm.height = Me.height 改成 myForm.Height = Me.ScaleHeight
myForm.width = Me.width 改成 myForm.Width = Me.ScaleWidth
在Resize中：
hRatio = Me.height / myForm.height 改成 hRatio = Me.ScaleHeight / myForm.Height
wRatio = Me.width / .myForm.width 改成 wRatio = Me.ScaleWidth / myForm.Width

日	一	二	三	四	五	六

【请教】怎么把控件和控件里面的文字同时随窗口变化？

扫二维码下载贴吧客户端