注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

沉默蜂B4A安卓编程

国内资料最全的B4A资料库

 
 
 

日志

 
 

[原创]注解水平滚动面板类例程 Match Demo  

2014-02-28 18:35:51|  分类: B.自带控件 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
( 完整标题:[原创]注解水平滚动面板类(SlidingPanelsDominex) 例程- Match Demo )




[原创]注解水平滚动面板类(SlidingPanelsDominex) 例程- Match Demo - 沉默蜂QQ793136625 - 沉默蜂
 图为例程运行效果截图

下面是窗体Main的代码:

#Region 代码说明

'版本:2014-01-27
'注解:沉默蜂(QQ793136625) 
'博客:http://silentbees.blog.163.com
'说明:

'例程来源 'Android SlidingPanels ·  [Class] SlidingPanelsDominex - Match Demo
'http://www.basic4ppc.com/android/forum/threads/android-SlidingPanels-simple-way-To-create-sliding-layouts.8233/

#End Region

#Region Module Attributes
#FullScreen: False
#IncludeTitle: True
#ApplicationLabel: SlidingPanels - MatchDemo
#VersionCode: 1
#VersionName: 1.0
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#End Region

'Activity module
Sub Process_Globals
End Sub

Sub Globals
Dim SD(3) As SlidingPanels
Dim First = True As Boolean
End Sub

Sub Activity_Create(FirstTime As Boolean)

Dim i,c As Int
For i = 0 To 2
'这个例程将会用到3个SlidingPanels对象
SD(i).Initialize("SD",300,Activity,Me,False) 'Initialize the Class.
'创建SlidingPanels较小屏幕的面板
SD(i).ModeLittlePanels(3,100%x,Activity.Height/3,Activity.Height/6+Activity.Height/3*i,0%x,False)
'每一个
For c = 0 To SD(i).panels.Length-1
'每一个SlidingPanels小面板上将会加载3个图片控件
'这个例程其实演示了如何在SlidingPanels控件的子面板上加载子控件
Dim imv As ImageView
imv.Initialize("")
imv.Gravity = Gravity.FILL
'调用目录资料里的图片
imv.Bitmap = LoadBitmap(File.DirAssets,"porta"&(c+1)&(i+1)&".jpg")
SD(i).panels(c).AddView(imv,0,0,SD(i).panels(c).Width,SD(i).panels(c).Height)
Next
SD(i).Start(i) 'Start the SlidingPanels.
Next
End Sub

'SD被单击或改变时触发此事件
Sub SD_Change (CurrentPanel As Int)

customLog("SD被单击或改变时触发此事件...")

If First Then 
First = False
Return
End If
'GetCurrentPanel返回当前子面板的数量
If SD(0).GetCurrentPanel = SD(1).GetCurrentPanel AND SD(0).GetCurrentPanel = SD(2).GetCurrentPanel Then
ToastMessageShow("每个SlidingPanels控件中的子面板数量都相等",False)
End If
End Sub

Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub Activity_Touch (Action As Int, X As Float, Y As Float)
End Sub

'自定义LOG命令
Sub customLog(message As String)
    Log(DateTime.Time(DateTime.now) & "  "&message)
End Sub

'处理回退键事件
Sub Activity_KeyPress (KeyCode As Int) As Boolean

If (KeyCode = KeyCodes.KEYCODE_BACK) Then
If (Msgbox2("是否要退出程序?", "", "确定", "取消", "", Null) = DialogResponse.POSITIVE) Then
'DialogResponse是一个预定义的对象,其中包含了可能的返回值
'DialogResponse.Positive = -1 '点击确认按钮
'DialogResponse.CANCEL= -3 '点击取消按钮 
  ExitApplication '退出应用
'Return False 表示按键信息交给系统处理
'这个处理由两个步骤组成:
'1、在系统执行默认的退出键事件之前,先执行我写的代码
'2、执行系统默认的退出键事件
'Return False'返回False则表示按键信息交给系统处理
' Activity.Finish'关闭这个活动

Else
'Return True 将告诉系统,当前的退出键已经处理好了
           'Return True 只执行我写的代码,不再去执行系统默认的退出键事件
Return True'返回True则表示按键已经处理
End If
End If
End Sub

SlidingPanels的类模块代码见帖子
[原创]注解水平滚动面板类(SlidingPanelsDominex) 例程SlidingPanels (二)  
http://silentbees.blog.163.com/blog/static/228789031201412842627273/
  评论这张
 
阅读(275)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017