VB怎样使Label的大小和Label字体的大小便窗口大小成比例进行变化,谢谢. 急!!!

Question

如题.

Answer 1

Private Sub Form_Load()
Form1.Tag = Form1.Width
End SubPrivate Sub Form_Resize()
Dim k As Double
fm = Form1.Width
fm1 = Form1.Tag
k = fm / Val(fm1)
MsgBox k
 Form1.Tag = fm
Label1.Width = k * Label1.Width
Label1.Font.Size = Int(k * Label1.Font.Size)
End Sub

Answer 2

谢谢老张,我在网上找到这段Code,可以随着Form的大小改变Form上面按件的位置和大小,现在的问题是窗口上的Label大小变了但是里面的字体大小并没有随之改变,能在下面Code的基础上进行一下修改吗?再次感谢!!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

Answer 3

一个偷懒的办法：加个sizer控件在窗体上，它就会让你的控件随窗体大小变化而变化。

Answer 4

重要的是，字体大小与窗体大小的比例规则。首先将 Label 的 AutoSize 属性设置为 True，字体设置成一种 TrueType 字体。
然后在 Resize 事件中根据窗体的大小来重新设置 Label 的字体。Private Sub Form_Load()    Label1.Font.Name = "Arial"
    Label1.AutoSize = True
    
End Sub
Private Sub Form_Resize()    Label1.Font.Size = Me.ScaleWidth \ 200
    Label1.Left = (Me.ScaleWidth - Label1.Width) \ 2End Sub

Answer 5

Public Wid as Singer,Hei as Singer
Private Sub Form_Load()
wid = me.width / label1.width
hei = me.height / label1.height
End sub
Private Sub Form_Resize()
label1.width = me.width / wid
label1.height = me.height / hei
End Sub

Answer 6

http://topic.csdn.net/u/20090420/15/84cab41a-7e59-4b30-9320-f548550724fe.html

Answer 7

用个timer 控制，设置label的大小和字体的大小的关系，不知道可不可行啊