运行截图
通知栏库
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