• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

返回列表 12345678» / 31
发新话题 回复该主题

[13教程进阶篇]4.我去前方探探路----新版UI [复制链接]

1#

我去前方探探路----新版UI



您所在的用户组无法下载或查看附件



新版本(3.1.0)的按键已经在紧张的内测中,这次更新的内容有…….恩,总之很多就是了!当然,最主要的更新内容之一就是全新的UI界面,让我先来探探路,新版的UI究竟有何不同,第一件事,就是记录下此时的时间----2016/7/13(至于原因嘛,我可不想在新版出了后你们才看到这篇教程并亲切的称呼我为标题党)。

您所在的用户组无法下载或查看附件



当然,由于新版本的编辑器还未出来,因此我们这边先来研究新UI能帮助我们什么!需求才是第一要素嘛!相对于之前的UI界面,新版本的UI具有更多的控件,更自由的排版和更强大的功能。
一 浏览器控件
脚本中嵌入一个浏览器,想想都觉得高大上有木有,那么,我们能用他做什么?还记得我们之前说过的收费小精灵吗?
http://bbs.anjian.com/showtopic-588364-1.aspx

收费小精灵有两种支付方式,第一种直接点击获取更多时间,用户支付后按键收取一定费用,其他的归于作者(好吧,我说出来就是了,抽成是30%,怪我咯!),还有第二种方式,作者在后台购买注册码,然后自己将注册码转卖给用户,例如一张月卡的价格是6块钱,作者卖100就可以赚到94哦!于是精明的你立马开始计算,脚本价格在20(每个月)以上的时候,使用注册码的支付方式要比直冲来的划算哦!但是使用这个方式有一个麻烦的地方,你需要自己去卖给用户,会占用大量的时间,而有了浏览器控件,我们就可以直接用浏览器控件指向售卡平台,用户需要时能直接购买,这将是多么完美的体验~

您所在的用户组无法下载或查看附件



图中我使用的是917自动发卡平台,当然平台的选择你们可以自己选择哦!


按钮控件

有按钮控件,就说明有事件,我们可以在按钮点击的时候执行一个函数,这里,我们尝试着做个计算机。直接看代码!

  1. Import "ShanHai.lua"


  2. UI.NewLayout ("计算器")
  3. UI.SetTitleText("计算器", "计算器")

  4. UI.AddTextView("计算器","计算器显示","",-1)

  5. UI.NewRow("计算器", "new_row_1")

  6. UI.AddButton("计算器", "btn_1", "1")
  7. UI.SetOnClick "btn_1", 回调fun1
  8. UI.AddButton("计算器", "btn_2", "2")
  9. UI.SetOnClick "btn_2", 回调fun2
  10. UI.AddButton("计算器", "btn_3", "3")
  11. UI.SetOnClick "btn_3", 回调fun3

  12. UI.NewRow "计算器", "new_row_2"

  13. UI.AddButton("计算器", "btn_4", "4")
  14. UI.SetOnClick "btn_4", 回调fun4
  15. UI.AddButton("计算器", "btn_5", "5")
  16. UI.SetOnClick "btn_5", 回调fun5
  17. UI.AddButton("计算器", "btn_6", "6")
  18. UI.SetOnClick "btn_6", 回调fun6

  19. UI.NewRow "计算器", "new_row_3"

  20. UI.AddButton("计算器", "btn_7", "7")
  21. UI.SetOnClick "btn_7", 回调fun7
  22. UI.AddButton("计算器", "btn_8", "8")
  23. UI.SetOnClick "btn_8", 回调fun8
  24. UI.AddButton("计算器", "btn_9", "9")
  25. UI.SetOnClick "btn_9", 回调fun9

  26. UI.NewRow "计算器", "new_row_4"

  27. UI.AddButton "计算器", "btn_退格", "退格"
  28. UI.SetOnClick "btn_退格", 回调fun退格
  29. UI.AddButton("计算器", "btn_0", "0")
  30. UI.SetOnClick "btn_删除", 回调fun0
  31. UI.AddButton "计算器", "btn_清空", "清空"
  32. UI.SetOnClick "btn_清空", 回调fun清空
  33. UI.NewRow "计算器", "new_row_5"

  34. UI.AddButton("计算器", "btn_+", "+")
  35. UI.SetOnClick "btn_+", 回调fun加
  36. UI.AddButton("计算器", "btn_-", "-")
  37. UI.SetOnClick "btn_-", 回调fun减
  38. UI.AddButton("计算器", "btn_=", "=")
  39. UI.SetOnClick "btn_=", 回调fun等于



  40. UI.Show("计算器")



  41. Function 回调fun1()
  42. Dim 计算机显示 = UI.GetText("计算器显示") & "1"
  43. UI.SetTextView "计算器显示", 计算机显示, -1
  44. End Function

  45. Function 回调fun2()
  46. Dim 计算机显示 = UI.GetText("计算器显示") &"2"
  47. UI.SetTextView "计算器显示",计算机显示, -1
  48. End Function

  49. Function 回调fun3()
  50. Dim 计算机显示 = UI.GetText("计算器显示") &"3"
  51. UI.SetTextView "计算器显示",计算机显示, -1
  52. End Function

  53. Function 回调fun4()
  54. Dim 计算机显示 = UI.GetText("计算器显示") &"4"
  55. UI.SetTextView "计算器显示",计算机显示, -1
  56. End Function

  57. Function 回调fun5()
  58. Dim 计算机显示 = UI.GetText("计算器显示") &"5"
  59. UI.SetTextView "计算器显示", 计算机显示, -1
  60. End Function

  61. Function 回调fun6()
  62. Dim 计算机显示 = UI.GetText("计算器显示") &"6"
  63. UI.SetTextView "计算器显示",计算机显示, -1
  64. End Function

  65. Function 回调fun7()
  66. Dim 计算机显示 = UI.GetText("计算器显示") &"7"
  67. UI.SetTextView "计算器显示", 计算机显示, -1
  68. End Function

  69. Function 回调fun8()
  70. Dim 计算机显示 = UI.GetText("计算器显示") &"8"
  71. UI.SetTextView "计算器显示", 计算机显示, -1
  72. End Function

  73. Function 回调fun9()
  74. Dim 计算机显示 = UI.GetText("计算器显示") &"9"
  75. UI.SetTextView "计算器显示", 计算机显示, -1
  76. End Function

  77. Function 回调fun0()
  78. Dim 计算机显示 = UI.GetText("计算器显示") &"0"
  79. UI.SetTextView "计算器显示", 计算机显示, -1
  80. End Function

  81. Function 回调fun退格()
  82. Dim 计算机显示 = 去除字符串最后一位(UI.GetText("计算器显示"))
  83. UI.SetTextView "计算器显示", 计算机显示, -1
  84. End Function

  85. Function 回调fun清空()
  86. Dim 计算机显示 = ""
  87. UI.SetTextView "计算器显示", 计算机显示, -1
  88. End Function

  89. Function 回调fun加()
  90. Dim 计算机显示 = UI.GetText("计算器显示") &"+"
  91. UI.SetTextView "计算器显示", 计算机显示, -1
  92. End Function

  93. Function 回调fun减()
  94. Dim 计算机显示 = UI.GetText("计算器显示") &"-"
  95. UI.SetTextView "计算器显示", 计算机显示, -1
  96. End Function


  97. Function 回调fun等于()
  98. Dim 计算机显示 = UI.GetText("计算器显示")
  99. Dim 结果 = ShanHai.eval(计算机显示)
  100. UI.SetTextView "计算器显示", 结果, -1
  101. End Function


  102. Function 去除字符串最后一位(str)
  103. Dim 长度 = len(str)
  104. 去除字符串最后一位=Left(str, 长度 - 1)
  105. End Function
复制代码

一个简陋的计算机就完成了!(毕竟懒癌晚期,因此BUG好多,等着你去发现哦!)

您所在的用户组无法下载或查看附件




您所在的用户组无法下载或查看附件



从这些中我们能学到什么?

1. 按钮控件的使用,可以设置回调方法

2. 计算方法,直接调用山海控件的eval命令,传入字符串

3. 文本框不仅可以读还可以写!

4. 字符串的处理

嘿嘿,想知道更多吗?请继续关注本系列教程。



您所在的用户组无法下载或查看附件


本主题由 超级版主 瑞祥幽冥狼 于 2023/4/10 21:00:06 执行 审核帖子 操作
2#

学习了。。

3#

该用户帖子内容已被屏蔽

庚辰插件专区   
网页自动填表就用庚辰插件
4#

千呼万化是出来

5#

终于见到按键更新了 许久没有更新新的功能了

6#

居然发到如此偏僻的地方

7#

[13教程进阶篇]4.我去前方探探路----新版UI

8#


9#

好好好好

10#

就是想知道新UI这么样?

11#

我去前方探探路----新版UI

12#

123123

13#

出vvd

14#

13教程进阶篇]4.我去前方探探路----新版U

[url=http://bbs.anji
15#

好东西,收藏了!~~~

16#

卡卡卡看看

点评

52pojie0618  好的不错学习了!!谢谢分享好的不错学习了!!谢谢分享  发表于 2017/5/18 2:44:49

17#

阶篇]4.我去前方探探路----新版UI修改

18#

更新之后没看明白,特来看说明书233

19#

学习了~!~~~~

20#

嘿嘿,想知道更多吗?请继续关注本系列教程。

发新话题 回复该主题