html 列表框 支持各种分辨率

     阅读 1457 次    更新时间:2014/9/15    

 

 

    变量 源文件 为 文本型
        变量 图ico 为 文本型
        变量 返回消息 为 文本型
事件 主窗口.创建完毕()
       
        图ico=取存储卡路径() & "/1ico.gif"
        源文件=取存储卡路径() & "/Untitled.html"
        如果 文件是否存在(源文件)=假 则
                写出资源文件("Untitled.html",源文件)
                否则
                删除文件(源文件)
                写出资源文件("Untitled.html",源文件)
        结束 如果
        如果 文件是否存在(图ico)=假 则
                写出资源文件("1ico.gif",图ico)
                否则
                删除文件(图ico)
                写出资源文件("1ico.gif",图ico)
        结束 如果
        浏览框1.跳转("file:///sdcard/Untitled.html")
        浏览框1.增加JS接口("e4a")
        浏览框1.启用缩放=假
        浏览框1.启用缩放按钮=假
结束 事件
事件 按钮2.被单击()
        删除文件(源文件)
        删除文件(图ico)
结束程序()
结束 事件
事件 浏览框1.接口事件(网页消息 为 文本型)'响应网页JS函数事件,注意这个事件里面不能进行UI组件操作,所以要通过时钟来传递网页消息
  返回消息 = 网页消息
  时钟1.时钟周期 = 100
结束 事件

事件 时钟1.周期事件()
        标签1.标题 = 返回消息
        时钟1.时钟周期 = 0
结束 事件
事件 按钮1.被单击()
        变量 计次 为 整数型
        变量循环首 计次=1 至 10
                add添加(计次,"标题1-" & 计次,"标题2-"  & 计次)
        变量循环尾
结束 事件
过程 add添加(txt1 为 文本型,txt2 为 文本型,txt3 为 文本型)
 浏览框1.跳转("javascript:add('" & txt1 & "','" & txt2 & "','" & txt3 & "')")'执行JS里的add()函数       
结束 过程
事件 按钮3.被单击()
浏览框1.跳转("javascript:anxiaa()")'执行JS里的add()函数       
结束 事件

 
 

Copyright 2003-2008 All Rights Reserved 自由风工作室 版权没有 [湘ICP备06002185号]
.