1、把计时器间隔改为1000,下面代码改为
Static count As Integer
Static i As Integer
If count = 30 Then
count = 1
If i = 0 Then
i = 1
End If
e.Form.baseform.controls("主窗口").backgroundimage=getimage("G:\foxtable\管理项目1\Images\图片\" & i & ".jpg")
i = i + 1
If i = 64 Then
i = 1
End If
Else
count += 1
End If
2、项目images目录有"online.ico"这个文件吗