Question

编写vb程序,怎么使窗口上的文字能自动变大小,先慢慢变大,然后慢

Answer 1

用计时器控件，在控件中改变窗体字体大小~

我给你写好了 望采纳啊

Answer 2

Dim a
Private Sub Form_Load()
Label1.Caption = "我慢慢变大又慢慢变小"
Timer1.Interval = 500
Timer2.Interval = 500

Timer1.Enabled = True
Timer2.Enabled = True
a = 9

End Sub
Private Sub Timer1_Timer()
a = a + 1
If a >= 50 Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
Label1.FontSize = a
End Sub
Private Sub Timer2_Timer()
a = a - 1
If a = 9 Then
Timer2.Enabled = False
Timer1.Enabled = True
End If
Label1.FontSize = a
End Sub