VB开发安卓程序_例程13通知栏消息

运行截图

通知栏库

Main窗体代码如下：

#Region 代码说明


'B4A的CORE库中就有一个通知栏类，可满足一般的编程需要
'由于通知栏编程一般涉及消息的发出和消取，没有必要很深入去挖掘通知栏的功能

'进入B4A官方论坛搜索Notification 这个英文单词，发现有多种通知栏库或类，看来老外对通知情有独钟
'其中功能最强大的就是Notification Builder Library ，下面是这些网上搜索到的通知栏库的链接，有兴趣可以去看一下

'Notification Builder Library
'https://www.b4x.com/android/forum/threads/notification-builder-library.27376/

#End Region


#Region  Project Attributes 
	#ApplicationLabel: 通知栏类
	#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
	'这里声明的全局变量在应用启动时被使用。
	'这里声明的变量能被所有模块使用。

End Sub

Sub Globals
	'这里的声明的全局变量在Activity 创建时声明。
	'这里声明的变量只能在此模块使用。
'	库 Core > 类 Notification
	
	Dim noTest As Notification
	
	Dim btCreateNotification As Button	
	Dim btDellNotification As Button	


End Sub

Sub Activity_Create(FirstTime As Boolean)

	btDellNotification.Initialize("btDellNotification")	
	
	btDellNotification.Text="删除通知栏消息"

	Activity.AddView(btDellNotification,25%x,30%x,50%x,20%y)

	
	noTest.Initialize
	
	'Notification类很特别，如果你只进行了Initialize ，而没有使用Icon属性，那么消息的发送会失败
	'这样的代码是错误的：noTest.Icon = ""
	'即便你没有给通知栏消息准备图标,可以用这个B4A例程的图标,如noTest.Icon = "icon"
	noTest.Icon = "icon"

	'VB中Me指当前正在操作的窗体
	noTest .SetInfo(  "标题","B4A自带通知栏例程",Me)
	
	'为了以后可以通过代码的形式去取消当前生成的通知栏消息，所以得给刚才发出的消息做个标记
	'通知栏消息的标记只能用数字来标记，不能用字母之类 
	noTest.Notify(1)


End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btCreateNotification_Click

End Sub

Sub btDellNotification_Click

	'删除刚才标记为数字1的通知栏消息
	noTest.Cancel(1)

End Sub