学习脚本制作：按键精灵让QUI界面如此炫酷 

学习脚本制作：按键精灵让QUI界面如此炫酷

来源：按键学院 【按键精灵】

脚本功能很好用，但是那乱得让人有尿意的界面……总是让人闻风丧胆有木有？吓哭小孩子有木有？ 脚本的界面可以说是脚本的门面，要长得好看才能吸引更多怪蜀黍~ 只要咱们懂得利用控件，尽情挥洒咱的无限创作力，一定可以让QUI界面更骚气~

滑动界面

骚气值：五颗星，很骚气

功能：鼠标点击界面滑动，切换到其它页面 效果演示：

主要控件

标签、定时器、选项卡、单选框、热键

代码： 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<=4 Then Form1.TabControl1.Tab = d End If Call 单选框显示() End Event Sub 单选框显示()

选项=Form1.TabControl1.Tab Select Case 选项 Case 0

Form1.OptionBox1.Value = 1 Case 1

Form1.OptionBox2.Value = 1 Case 2

Form1.OptionBox3.Value = 1 Case 3

Form1.OptionBox4.Value = 1 Case 4

Form1.OptionBox5.Value = 1 Case Else End Select End Sub

标签热区域

热区域是啥呢？所谓热区域，指的是演示窗口中的一个矩形区域，通过此矩形区域可以得到相应的反馈信息。和按钮响应相比，这种响应类型更容易与背景风格协调一致，使界面更好看。按键中目前不支持热区域的，我们看看用标签如何实现热区域。

骚气值：五颗星，很骚气

功能：点击菜单之后出现子菜单选项 效果演示：

主要控件 标签、图像控件、选项卡、组合框

大致思路： 1、 取一张自己喜欢的图片作为背景。

2、画好标签：菜单、按键学院、学习、工作、游戏等

3、用组合框作为点击菜单之后要显示的子菜单，学习，工作，游戏三个标签放在组合

框里。（按键学院的子菜单同理）

4、接下来就是标签的隐藏设置了，点击按键学院，菜单的子菜单则隐藏，按键学院的子菜单显示。

5、比较重要的一点，另外还需要创建一个透明的标签，大小和界面一样大，标签事件里设置隐藏两个子菜单，达到，我们鼠标点击其它地方的时候，子菜单消失的效果。

代码： Event Form1.Load End Event

Event Form1.菜单.Click Call 重置菜单

Form1.菜单列表.Visible = 1 Form1.L1.Caption = \学习\ Form1.L2.Caption = \工作\ Form1.L3.Caption = \游戏\ Form1.L1.Visible = 1 Form1.L2.Visible = 1 Form1.L3.Visible = 1 End Event

Event Form1.按键学院.Click Call 重置菜单

Form1.菜单列表.Visible = 1 Form1.L1.Caption = \学院院刊\ Form1.L2.Caption = \学习资源\ Form1.L3.Caption = \课堂\ Form1.L1.Visible = 1 Form1.L2.Visible = 1 Form1.L3.Visible = 1 End Event Sub 重置菜单()

Form1.菜单列表.Visible=0 Form1.L1.Visible=0 Form1.L2.Visible=0 Form1.L3.Visible = 0 Form1.学习选项卡.Visible=0 End Sub

Event Form1.取消.Click Call 重置菜单 End Event

Event Form1.L1.Click

If Form1.L1.Caption = \学习\ Form1.学习选项卡.Visible = 1 Form1.返回.Visible = 1 End If End Event

Event Form1.返回.Click Call 重置菜单 End Event

按钮形态单选框

骚气值：五颗星，很骚气

功能：点击单选框之后切换到不同页面 效果演示：

主要控件 单选框、选项卡

大致思路： 1 、 画单选框，单选框的样式设置为按钮

2 、画选项卡

3、 选项卡的点击事件中调用显示 函数 4 、显示函数中设置要显示的选项卡

代码： Event Form1.OptionBox1.Click Call 显示() End Event

Event Form1.OptionBox2.Click Call 显示() End Event

Event Form1.OptionBox3.Click Call 显示() End Event Sub 显示()

Form1.TabControl1.Visible = Form1.OptionBox1.Value Form1.TabControl2.Visible = Form1.OptionBox2.Value Form1.TabControl3.Visible = Form1.OptionBox3.Value End Sub