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

滑动界面       骚气值：五颗星，很骚气     功能：鼠标点击界面滑动，切换到其它页面 效果演示：

主要控件  标签、定时器、选项卡、单选框、热键 代码：Dim x1,x2,y1,y2,选项,选项记录Event Form1.Load    Form1.Hotkey1.Register True      Form1.Timer1.Enabled = False   //默认定时器是启动状态，所以要先停止       Form1.Timer1.Interval = 120    //设置定时器循环的间隔时间（单位：毫秒）    选项=Form1.TabControl1.TabCall 单选框显示()End EventEvent Form1.Label1.Click    GetCursorPos x1, y2    选项记录=Form1.TabControl1.Tab    Form1.Timer1.Enabled = False   //防止被重复启动定时器       Form1.Timer1.Enabled = True End EventEvent Form1.Hotkey1.Hotkey    Form1.Timer1.Enabled = FalseEnd EventEvent Form1.Timer1.TimerDim d    GetCursorPos x2, y2    d = (x2 - x1) \ 70 +选项记录    If d >=0 and d<=4 Then        Form1.TabControl1.Tab = d    End IfCall 单选框显示()End EventSub 单选框显示()            选项=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 SelectEnd Sub

标签热区域热区域是啥呢？所谓热区域，指的是演示窗口中的一个矩形区域，通过此矩形区域可以得到相应的反馈信息。和按钮响应相比，这种响应类型更容易与背景风格协调一致，使界面更好看。按键中目前不支持热区域的，我们看看用标签如何实现热区域。 骚气值：五颗星，很骚气 功能：点击菜单之后出现子菜单选项效果演示：

主要控件标签、图像控件、选项卡、组合框大致思路： 1、 取一张自己喜欢的图片作为背景。 2、画好标签：菜单、按键学院、学习、工作、游戏等 3、用组合框作为点击菜单之后要显示的子菜单，学习，工作，游戏三个标签放在组合框里。（按键学院的子菜单同理）  4、接下来就是标签的隐藏设置了，点击按键学院，菜单的子菜单则隐藏，按键学院的子菜单显示。 5、比较重要的一点，另外还需要创建一个透明的标签，大小和界面一样大，标签事件里设置隐藏两个子菜单，达到，我们鼠标点击其它地方的时候，子菜单消失的效果。

代码：Event Form1.LoadEnd EventEvent 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 = 1End EventEvent 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 = 1End EventSub 重置菜单()    Form1.菜单列表.Visible=0    Form1.L1.Visible=0    Form1.L2.Visible=0    Form1.L3.Visible = 0    Form1.学习选项卡.Visible=0End SubEvent Form1.取消.Click    Call 重置菜单End EventEvent Form1.L1.ClickIf Form1.L1.Caption = '学习' Then         Form1.学习选项卡.Visible = 1        Form1.返回.Visible = 1End IfEnd EventEvent Form1.返回.ClickCall 重置菜单End Event

按钮形态单选框 骚气值：五颗星，很骚气 功能：点击单选框之后切换到不同页面 效果演示：

主要控件   单选框、选项卡大致思路：  1 、 画单选框，单选框的样式设置为按钮    2 、画选项卡   3、 选项卡的点击事件中调用显示 函数   4  、显示函数中设置要显示的选项卡代码：Event Form1.OptionBox1.ClickCall 显示()End EventEvent Form1.OptionBox2.ClickCall 显示()End EventEvent Form1.OptionBox3.ClickCall 显示()End EventSub 显示()        Form1.TabControl1.Visible = Form1.OptionBox1.Value        Form1.TabControl2.Visible = Form1.OptionBox2.Value        Form1.TabControl3.Visible = Form1.OptionBox3.ValueEnd Sub