[学院院刊]第十二期-QUI界面也可以如此炫酷
QUI界面也可以如此炫酷按键学院院刊介绍院刊是由工程师撰写或收录的围绕按键精灵电脑版知识点的文章,每一篇院刊...
QUI界面也可以如此炫酷
按键学院院刊介绍
院刊是由工程师撰写或收录的围绕按键精灵电脑版知识点的文章,每一篇院刊知识点各不相同,可以是脚本、源码或教程的分享,也有可能是工程师们在技术上的奇思妙想哦!
前言
脚本功能很好用,但是那糟得让人凌乱的界面……总是让人闻风丧胆有木有? 脚本的界面可以说是脚本的门面,要长得好看才能吸引更多用户嘛!下面给大家分享下炫酷的界面是如何制作的~
[quote]帅气值:五颗星,很帅气范例一:滑动界面
功能:鼠标点击界面滑动,切换到其它页面
效果展示:
(此为动态图效果展示,如果无法显示请阅读原文)
主要控件:
标签、定时器、选项卡、单选框、热键
大致思路:
1、画一个Hotkey 热键 控件,设置热键为左键弹起;
2、使用选项卡控件,创建五个选项页;
3、画五个单选按钮。五个单选按钮;
4、画一个定时器,一个标签(标签在所有控件之上,大小要挡住整个脚本界面。标签设为透明。);
5、在标签点击事件中,启动定时器;
6、定时器事件中,设置当鼠标滑动的时候,选项页就变成其它页面;
7、Hotkey 热键 事件中关闭定时器。
代码:
Dim x1,x2,y1,y2,选项,选项记录
Event Form1.Load
Form1.Hotkey1.Register True
Form1.Timer1.Enabled = False //默认定时器是启动状态,所以要先停止
Form1.Timer1.Interval = 120 //设置定时器循环的间隔时间(单位:毫秒)
选项=Form1.TabControl1.Tab
Call 单选框显示()
End Event
Event Form1.Label1.Click
GetCursorPos x1, y2
选项记录=Form1.TabControl1.Tab
Form1.Timer1.Enabled = False //防止被重复启动定时器
Form1.Timer1.Enabled = True
End Event
Event Form1.Hotkey1.Hotkey
Form1.Timer1.Enabled = False
End Event
Event Form1.Timer1.Timer
Dim d
GetCursorPos x2, y2
d = (x2 - x1)
70 +选项记录
If d >=0 and d
关注 按键精灵
微信扫一扫关注公众号