模仿淘宝app启动画面简单代码

[wanght86]

Sub Globals
Dim ImageView1 As ImageView
end sub

sub activity_creat(firsttime as boolean)
activity.loadlayout("mybal")
Dim mypic As Bitmap
mypic.Initialize(File.DirAssets,"logo.png")
ImageView1.Bitmap=mypic
dim mya as amination
myam.initializetranslate("aend",0,100,0,0)
说明使用动画运动方法，该方法有五个参数，第一个参数为动画结束后的事件名称，第2，3参数是开始位置横向纵向偏移数量，4，5参数是动画运动终点横向纵向偏移量。这些偏移量是以布局设计位置为参考的
myam.duration=2000动画持续时长毫秒
myam.Start(ImageView1)开始动画


end sub
下面是动画结束后，将登录框显示出来
Sub aend_AnimationEnd
sno.Visible=True
pwd.Visible=True
Button1.Visible=True
sno.RequestFocus
End Sub
手机发帖，请谅解，希望指出不足，刚学习！