什么是缺少对象呀
什么是缺少对象呀
Private Sub Timer1_Timer() '实现文字缩放的过程
If l(0) = True Then
zt = zt + 5
Else
zt = zt - 5
End If
If zt > 50 Or zt <= 5 Then
Timer1.Enabled = False
End If
With Label1
.Font.Size = zt
.Left = (Form1.Width - Lable1.Width) / 2
.Top = (Form1.Height - Label1.Height) / 2
End With
Label1.Caption = s
End Sub
错误在这一行出现 ..Left = (Form1.Width - Lable1.Width) / 2
[此贴子已经被作者于2006-5-10 14:30:47编辑过]
