金猪脚本(原飞猪脚本)以按钮向导教学为主，涉及UiBot、Python、Lua等脚本语言。教学包括全自动办公脚本、游戏助手脚本、引流脚本、网页脚本、Android脚本、IOS脚本、注册脚本、喜欢脚本、阅读脚本、**脚本等所有领域。想做剧本，想学习钥匙精灵的朋友可以添加钥匙精灵学习交流群:554127455学习路上你不再孤独，金猪剧本与你一起成长。
脚本功能很好用，但是界面乱七八糟的让人尿尿。
.......总是让人觉得害怕？吓唬小孩子有什么意义？
脚本的接口可以说是脚本的门面。只有好看才能吸引更多的怪异~只要我们懂得使用控件，尽情发挥自己的无限创意，就一定能让QUI界面更加***~
滑动界面
骚气值:五星，很骚气。
功能:点击鼠标滑动界面，切换到其他页面。
效果演示:
主控标签、定时器、标签、单选按钮、热键
大意:1。画一个热键控件，热键设置为左键弹出。
2使用选项卡控件，创建五个选项页面。
画五个单选按钮。五个单选按钮。
4画一个定时器和一个标签(标签在所有控件之上，大小要挡住整个脚本界面。使标签透明。)
5在选项卡点击事件中，启动计时器。
在timer事件中，设置当鼠标滑动时，选项页变成另一页。
7在热键热键事件中关闭计时器
Code: Dim x1，x2，y1，y2，options，option记录event form1 . load form 1 . hot key 1 . register trueform 1 . timer 1 . enabled = false//默认定时器启动，所以先停form 1。Timer1.Interval = 120 //设置定时器周期的间隔时间(单位:毫秒)option =Form1。TabControl1.TabCall单选框display()end event form1 . label 1 . clickgetcursorpos x1，Y2选项record = form 1 . tab control 1 . tab form 1 . timer 1 . enabled = false//计时器form 1 .定时器1。enabled =真结束eventform1。热键1。热键表单1。定时器1。enabled = false结束eventform1。定时器1。timer dimdgetcursorposx2，Y2D =(x2 –x1)\ 70+如果d >: =0且d & lt= 4 theform 1 . tab control 1 . tab = Dend if call单选框display () End EventSub单选框display()Option = form 1 . tab control 1 . tab select case选项case 0 form 1 . Option box 1 . value = 1 case 1 form 1 . Option box 2 . value = 1 case 2 form 1 . Option box 3 . value = 1 case 3 form 1 . optio nbox 4 .Value =大小写4格式1。option box 5 . Value = 1 case else en和SelectEnd Sub
***代码
标记热区
什么是热点区域？所谓热区，是指演示窗口中的一个长方形区域，通过它可以获得相应的反馈信息。与按钮响应相比，这种响应类型更容易与背景风格相协调，使界面看起来更好。目前，该键不支持热区。让我们看看如何用标签实现热区。
骚气值:五星，很骚气。
功能:点击菜单后，会出现子菜单选项。
效果演示:
主控件标签、图像控件、选项卡、组合框总体思路:1拿一张自己喜欢的图片做背景。
2绘制标签:菜单、按键学院、学习、工作、游戏等。
3使用组合框作为点击菜单后显示的子菜单。组合框里放了三个标签，学习，工作，游戏。(重点学院子菜单相同)
4接下来是标签的隐藏设置。点击重点研究所，菜单的子菜单将被隐藏，重点研究所的子菜单将被显示。
5更重要的是，还需要创建一个透明的标签，标签的大小和界面一样大。标签事件中隐藏了两个子菜单，这样当我们用鼠标点击其他地方时，子菜单就消失了。
代码：Event Form1.LoadEnd EventEvent Form1.菜单.ClickCall 重置菜单Form1.菜单列表.Visible = 1Form1.L1.Caption = \”学习\”Form1.L2.Caption = \”工作\”Form1.L3.Caption = \”游戏\”Form1.L1.Visible = 1Form1.L2.Visible = 1Form1.L3.Visible = 1End EventEvent Form1.按键学院.ClickCall 重置菜单Form1.菜单列表.Visible = 1Form1.L1.Caption = \”学院院刊\”Form1.L2.Caption = \”学习资源\”Form1.L3.Caption = \”课堂\”Form1.L1.Visible = 1Form1.L2.Visible = 1Form1.L3.Visible = 1End EventSub 重置菜单()Form1.菜单列表.Visible=0Form1.L1.Visible=0Form1.L2.Visible=0Form1.L3.Visible = 0Form1.学习选项卡.Visible=0End SubEvent Form1.取消.ClickCall 重置菜单End EventEvent Form1.L1.ClickIf Form1.L1.Caption = \”学习\” Then Form1.学习选项卡.Visible = 1Form1.返回.Visible = 1End IfEnd EventEvent Form1.返回.ClickCall 重置菜单End Event
本文来自别舍不得旧情人投稿，不代表舒华文档立场，如若转载，请注明出处：https://www.chinashuhua.cn/24/475092.html
微信扫一扫 
