#Region Activity Attributes
#FullScreen:False
#IncludeTitle: True
#End Region
Sub Process_Globals
'这里声明的全局变量在应用启动时被使用..
'这里声明的变量能被所有模块使用.
End Sub
Sub Globals
'这里声明的全局变量在Activity创建时声明.
'这里声明的变量只能在此模块使用.
Dim button1 As Button
Dim imageview1 As ImageView
'Dim videoview1 As VideoView
End Sub
Sub Activity_Create(FirstTime As Boolean)
'别忘了加载可视化设计器创建的布局文件.示例:
Activity.LoadLayout("view")
'videoview1.Initialize("videoview1")
'Activity.AddView(videoview1,10dip,10dip,250dip,250dip)
imageview1.Initialize("imageview1")
'videoview1.Play
End Sub
Sub button1_Click
'videoview1.LoadVideo(File.DirAssets,"delete.avi")
imageview1.Bitmap=LoadBitmap(File.DirAssets,"tulip.jpg")
End Sub
文件都在，可是点button1后图片不能显示