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

沉默蜂B4A安卓编程

国内资料最全的B4A资料库

 
 
 

日志

 
 

[沉默蜂设计]带纵向滚动条的编辑框控件(一)  

2014-03-14 12:55:32|  分类: 类模块研究 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
2014年03月14日 - 沉默蜂QQ793136625 - 沉默蜂

Main窗体代码如下:


#Region 代码说明

'版本:2014-03-14
'设计:沉默蜂(QQ793136625)
'博客:http://silentbees.blog.163.com (B4A技术博客)
'说明:B4A自带的EditText(编辑框控件)本身是不带纵向滚动条的,
'            有时需要了解看到文本中的哪个位置,如果有一个纵向滚动条就会好很多
' 于是本人编写了这个类

#End Region

#Region  Project Attributes 

#ApplicationLabel: ScrEditText
#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
'这里声明的全局变量在应用启动时被使用。
'这里声明的变量能被所有模块使用。
' 在这Process_Globals定义会出错
' Dim p_ScrEditText As ScrEditText

End Sub

Sub Globals
Dim p_ScrEditText As ScrEditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.Title = "带纵向滚动条的编辑框"
Activity.Color=Colors.White
p_ScrEditText.Initialize(Me ,"ScrEditText" )
p_ScrEditText.AddToActivity(Activity ,0 , 0 ,100%x ,100%y )
p_ScrEditText.LoadChinaText(File.DirAssets , "test.txt" )

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub ScrEditText_ScrollChanged(Position As Int)

Log("滚动条位置被改动")
End Sub


Sub ScrEditText_TextChanged (Old As String, New As String)

Log("编辑框内容被改动 内容为 " & CRLF  & Old  & "新内容为 " & New)
End Sub
 
 
  评论这张
 
阅读(312)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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