[救命啊!]求助!VB+Access 的学生信息管理系统[各位VB高手,帮帮忙啊]
求助!VB+Access 的学生信息管理系统问题在第10楼8858
[此贴子已经被作者于2007-6-14 11:29:09编辑过]
前一个问题解决了,现在有个问题,“实时错误‘424’ 要求对象”代码如下:
Dim i As Long
Private Sub Form_Load()
Label1.ForeColor = &H8000000E
Label1.FontSize = 12
Label1.AutoSize = True
i = Image2.Width
End Sub
Private Sub Form_Resize()
Image1.Top = 0
Image1.Left = 0
Image1.Height = Me.Height
Image1.Width = Me.Width
Image2.Top = Me.Height - Image2.Height
Image2.Left = Me.Width - Image2.Width
Label1.Top = Me.Height - Label1.Height - 100
End Sub
Private Sub Timer1_Timer()
i = i + 50
Label1.Left = Me.Width - i
If i > Me.Width + Label1.Width Then
i = Image2.Width
End If
End Sub