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

沉默蜂B4A安卓编程

国内资料最全的B4A资料库

 
 
 

日志

 
 

[原创]B4A与html交互(一)  

2014-04-14 10:49:12|  分类: B.网络 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

 
B4A与html交互示例-BY船长(一) - 沉默蜂QQ793136625 - 沉默蜂
例程运行截图


B4A与html交互示例-BY船长(一) - 沉默蜂QQ793136625 - 沉默蜂
例程运行截图


B4A与html交互示例-BY船长(一) - 沉默蜂QQ793136625 - 沉默蜂
 布局文件


B4A与html交互示例-BY船长(一) - 沉默蜂QQ793136625 - 沉默蜂
 目录资源里面的内容



下面是Main活动视图代码

#Region 代码说明

'版本:2014-04-14
'设计:船长QQ1015216577
'改进:沉默蜂(QQ793136625)对船长的例程作了一些改进,并添加了大量注解
'博客:http://silentbees.blog.163.com (B4A技术博客)


'http://www.basic4ppc.com/android/forum/threads/WebViewExtras.12453/

WebViewExtras是用来扩展B4A自带的WEBVIEW(浏览器)控件的,WEBVIEW控件不能实现网页与B4A交互信息,而这个WebViewExtras则可以实现这一目的。
#End Region

'Activity module
Sub Process_Globals

End Sub

Sub Globals

    Dim WebView1 As WebView
Dim str As String
'Library WebViewExtras
'http://www.basic4ppc.com/android/forum/threads/WebViewExtras.12453/
'允许用户在网页中调用手机中的程序:
Dim MyWebViewExtras As WebViewExtras
End Sub

Sub Activity_Create(FirstTime As Boolean)


Activity.LoadLayout("layout1.bal")
    WebView1.Left=0
WebView1.Width=Activity.Width
WebView1.Top=0
WebView1.Height=Activity.Height

'WebView1.Loadurl ("file:///android_asset/ye_test1.htm") 
'File.DirInterna,设备内部存储用于保存私有数据的内部文件夹
'库 Core > 类 File > 属性 DirInternal  As String
    '将目录资源里的网页文本复制到内部文件夹
File.Copy(File.DirAssets,"ye_test1.htm",File.DirInternal,"ye_test1.htm")

'库 Core > 类 File > 方法 ReadString 
'ReadString ( Dir As String, FileName As String ) As String 
'读文件并返回他包含的字符串. 
'Example: 
'Dim text As String 
'text = File.ReadString(File.DirRootExternal, "1.txt")
str = File.ReadString(File.DirAssets,"ye_test1.htm")
WebView1.LoadHtml(str)
MyWebViewExtras.addJavascriptInterface(WebView1, "B4A")
End Sub

Sub Xshow(xx As String)

    Msgbox("结果:" & xx ,"调用B4A方法Xshow")
'
WebView1.LoadHtml("<html><body>" & "结果:" & xx &",   将B4A的数据在网页中显示" & "</body></html>")
End Sub

Sub Activity_Resume

'WebView1.Loadurl ("file:///android_asset/ye_test1.htm")
WebView1.LoadHtml(str)
''扩展网页调用手机程序功能:
MyWebViewExtras.addJavascriptInterface(WebView1, "B4A")
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


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

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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