如意134 发表于 2019-2-10 20:15:56

返回键的一些使用

本帖最后由 如意134 于 2019-2-10 23:22 编辑

小白问个问题，怎么写按一下返回键是返回到网页的上一页，连按两下不是退出程序而是能返回窗口_主界面

尐酷奇哆 发表于 2019-2-10 20:15:57

本帖最后由 尐酷奇哆 于 2019-2-11 11:03 编辑

浏览框1.前进()
附件
浏览框1.后退()

事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
      浏览框1.前进()
结束 事件
方法：2   

浏览框1.跳转（“http://www.hao123.com”）

变量启动时间 为 长整数型

事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
      如果 键代码 =返回键 则
                如果 取启动时间()-启动时间>2000 则
                        浏览框1.前进()
                启动时间=取启动时间()
                否则
                切换窗口(读取窗口("窗口_主界面"))
                结束 如果
      结束 如果
结束 事件


6.2




2310762810 发表于 2019-2-10 20:22:06

简单，加QQ2310762810

谋划者 发表于 2019-2-10 21:04:28

事件 窗口1.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
        如果 键代码 = 返回键 则
                如果 浏览框1.取地址() = "http://www.baidu.com/" 则
                        '关闭窗口()
                        切换窗口(读取窗口("窗口_首页"))
                        否则
                        浏览框1.后退()
                结束 如果
        结束 如果
结束 事件

如意134 发表于 2019-2-10 23:16:12

你的也返回不了。。
这个代码老搞不了返回。
        变量 shuzu 为 文本型()
        变量 ji 为 整数型
        变量 ji5 为 整数型 = 0
        变量 qd 为 长整数型
事件 便民.创建完毕()
        浏览框1.启用缩放 = 假
        浏览框1.启用缩放按钮 = 假
        浏览框1.跳转("http://www.baidu.com")
        shuzu = 取普通应用包名()
        变量循环首 ji = 0 至 取数组成员数(shuzu)-1
                如果 寻找文本(shuzu(ji),".taobao",0) <> -1 则
                     ji5 = 5555
                  退出
                结束 如果
        变量循环尾
结束 事件
事件 便民.切换完毕()
        浏览框1.获取焦点()
结束 事件
事件 浏览框1.开始载入(地址 为 文本型)
        如果 寻找文本(地址,"https://uland.taobao.com/",0) <> -1 则
                浏览框1.停止()
                如果 ji5 = 5555 则
                地址 = 子文本替换(地址,"https://","taobao://")
                打开指定网址(地址)
                否则
                打开指定网址(地址)
                结束 如果
        结束 如果
结束 事件
事件 便民.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
        如果 键代码 = 返回键 则
          如果 浏览框1.取地址() = "http://www.baidu.com" 则
                  如果 取启动时间() - qd >2000 则
                          弹出提示("再按一次退出")
                          qd = 取启动时间()
                  否则
                        结束程序()
                  结束 如果       
                否则
                  浏览框1.后退()
                结束 如果       
        结束 如果
结束 事件       

如意134 发表于 2019-2-10 23:18:18

谋划者 发表于 2019-2-10 21:04



你的也返回不了。。{:4_96:}

尐酷奇哆 发表于 2019-2-11 13:33:02

本帖最后由 尐酷奇哆 于 2019-2-11 13:43 编辑

已补充完整！！！！！
页: [1]
查看完整版本: 返回键的一些使用