请教？

Question

Private Sub Timer1_Timer()
 end sub
      有一frame控件，有一label控件，怎样使label 中的字体由小变大时字体总是处于frame的正中央

Answer 1

Private Sub Label1_Change()
    'Label的AutoSize属性必须为True
    Label1.Move (Frame1.Width - Label1.Width) / 2, (Frame1.Height - Label1.Height) / 2
End Sub

Answer 2

你可以这样做：
  把label的autosize的属性设置为True, 在label的resize事件中得到label的长和宽。
在利用frame的长和宽来计算出label处于中央时的top和left,这样不就解决了。至于怎么
计算不用我说了吧！ 呵呵！！

Answer 3

刚看到，怎么计算cuizm(射天狼) 已经说出来了！

Answer 4

Dim i As IntegerPrivate Sub Timer1_Timer()
        Label1.FontSize = 9 + i
        Label1.Top = (Frame1.Height - Label1.Height) / 2
        Label1.Left = (Frame1.Width - Label1.Width) / 2
        i = i + 1
End Sub