VB开发安卓程序_例程18深度剖析Resume和Pause事件

本文链接：https://blog.csdn.net/u010643864/article/details/138028316

Main窗体代码如下



#Region 代码说明


'启动这个例程后，再运行其它程序，然后再切换到这个程序会触发Resume事件
'启动这个例程后，再运行其它程序，然后再运行其它程序，最后再切换到这个程序会触发Create事件
'而我编写这个例程的目的，就是想让大家对在后台的程序切换到前面时Create事件要注意

#End Region


#Region  Project Attributes 
	#ApplicationLabel: 剖析Resume和Pause事件
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations(支持的方向) 值可以是： unspecified(未指定), landscape(纵向)或portrait(横向)。
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'这里明的全局变量在应用启动时被使用。
	'这里声明的变量能被所有模块使用。

	Dim pg_Numbers As Int :pg_Numbers=0
	
End Sub

Sub Globals
	'这里的声明的全局变量在Activity 创建时声明。
	'这里声明的变量只能在此模块使用。
	
	Dim btGotoSub As Label
	Dim noTest As Notification

End Sub

Sub Activity_Create(FirstTime As Boolean)

	'为防止程序从后台转到前台时防止重复执行，加了此代码段
'	Activity.RemoveAllViews

	Activity.Title="Main窗体 - 剖析Resume和Pause事件"
	Activity.Color=Colors.DarkGray
	
	
	'开始：屏幕上放