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

沉默蜂B4A安卓编程

国内资料最全的B4A资料库

 
 
 

日志

 
 

[注解][代码模块]选项卡扩展库例程(一)  

2014-08-06 14:32:13|  分类: 自带控件 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
[注解]选项卡扩展库例程(一) - 沉默蜂 - 沉默蜂B4A安卓编程实战资料|
例程效果图
 
[注解]选项卡扩展库例程(一) - 沉默蜂 - 沉默蜂B4A安卓编程实战资料
B4A自带库文件结构
 
[注解]选项卡扩展库例程(一) - 沉默蜂 - 沉默蜂B4A安卓编程实战资料
 例程由一个主视图和代码模块主成


#Region 代码说明

'版本:2014-08-06
'注解:沉默蜂(QQ793136625)
'博客:http://silentbees.blog.163.com (B4A技术博客)

'帖子来源

'这是一个在B4A自带的选项卡控件基础上的扩展

#End Region



#Region Module Attributes
#FullScreen: False
#IncludeTitle: True
#ApplicationLabel: 选项卡扩展例程
#VersionCode: 1
#VersionName: 
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region

' TabHostExtras example activity
Sub Process_Globals
Dim TabHeight As Int
Dim TabsVisibility As Boolean
End Sub

Sub Globals
Dim EditText1 As EditText
Dim Label1 As Label
Dim Reflector1 As Reflector
Dim TabHost1 As TabHost
Dim WebView1 As WebView
End Sub

Sub Activity_Create(FirstTime As Boolean)

If FirstTime Then
' 当程序启动后就进入此代码段
' 开始一个默认标题栏高度为45dip的选项卡
TabHeight=45dip
TabsVisibility=True
End If
' 载入一个布局文件
Activity.LoadLayout("LayoutMain")
' add a menu item to toggle the tabs visibility
' 增加一个菜单来切换标签的可见性
Activity.AddMenuItem("切换标签可见性", "切换标签")
' add some tabs to the TabHost
' 增加一些选项卡到选项卡控件上
Dim i As Int
For i=0 To 3
If i=0 Then
'通过载入布局文件的方式增加一个选项卡
TabHost1.AddTab( "选项卡#"&i, "LayoutWebView")
'网页将显示指定网址
WebView1.LoadUrl("http://silentbees.blog.163.com")
Else
TabHost1.AddTab("选项卡#"&i, "LayoutTabContent")
EditText1.Text=TabHeight
Label1.Text="这是内容#"&i
End If
Next
' set the tab heights设置选项卡标题栏高度
TabHostExtras.SetTabsHeight(TabHost1, TabHeight)
' Un-comment this next code block to see an example of the Sub GetTabIndicators
' Dim MyTabs(0) As View
' MyTabs=TabHostExtras.GetTabIndicators(TabHost1)
' Dim i, Count As Int
' Count=MyTabs.Length
' For i=0 To Count-1
' MyTabs(i).Color=Colors.Magenta
' Next
End Sub

Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub EditText1_EnterPressed
' change the tab heights
Dim EditText2 As EditText
EditText2=Sender
If EditText2.Text<>"" Then
TabHeight=EditText2.Text
TabHostExtras.SetTabsHeight(TabHost1, TabHeight)
End If
End Sub

Sub ToggleTabs_Click
TabsVisibility=Not(TabsVisibility)
TabHostExtras.SetTabsVisibility(TabHost1, TabsVisibility)
End Sub

  评论这张
 
阅读(243)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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