用按键精灵学习游戏脚本制作：QUI界面如此炫酷
1、滑动界面骚气值：五颗星，很骚气功能：鼠标点击界面滑动，切换到其它页面效果演示：
2、主要控件标签、定时器、选项卡、单选框、热键代码：Dimx1,x2,y1,y2,选项,选项记录EventForm1.LoadForm1.Hotkey1.RegisterTrueForm1.Timer1.Enabled=False//默认定时器是启动状态，所以要先停止Form1.Timer1.Interval=120//设置定时器循环的间隔时间（单位：毫秒）选项=Form1.TabControl1.TabCall单选框显示()EndEventEventForm1.Label1.ClickGetCursorPosx1,y2选项记录=Form1.TabControl1.TabForm1.Timer1.Enabled=False//防止被重复启动定时器Form1.Timer1.Enabled=TrueEndEventEventForm1.Hotkey1.HotkeyForm1.Timer1.Enabled=FalseEndEventEventForm1.Timer1.TimerDimdGetCursorPosx2,y2d=(x2-x1)\70+选项记录Ifd>=0andd<=4ThenForm1.TabControl1.Tab=dEndIfCall单选框显示()EndEventSub单选框显示()选项=Form1.TabControl1.TabSelectCase选项Case0Form1.OptionBox1.Value=1Case1Form1.OptionBox2.Value=1Case2Form1.OptionBox3.Value=1Case3Form1.OptionBox4.Value=1Case4Form1.OptionBox5.Value=1CaseElseEndSelectEndSub
3、标签热区域热区域是啥呢？所谓热区域，指的是演示窗口中的一个矩形区域，通过此矩形区域可以得到相应的反馈信息。和按钮响应相比，这种响应类型更容易与背景风格协调一致，使界面更好看。按键中目前不支持热区域的，我们看看用标签如何实现热区域。骚气值：五颗星，很骚气功能：点击菜单之后出现子菜单选项效果演示：
4、主要控件标签、图像控件、选项卡、组合框大致思路：1、取一张自己喜欢的图片作为背景。2、画好标签：菜单、按键学院、学习、工作、游戏等3、用组合框作为点击菜单之后要显示的子菜单，学习，工作，游戏三个标签放在组合框里。（按键学院的子菜单同理）4、接下来就是标签的隐藏设置了，点击按键学院，菜单的子菜单则隐藏，按键学院的子菜单显示。5、比较重要的一点，另外还需要创建一个透明的标签，大小和界面一样大，标签事件里设置隐藏两个子菜单，达到，我们鼠标点击其它地方的时候，子菜单消失的效果。
5、代码：EventForm1.LoadEndEventEventForm1.菜单.ClickCall重置菜单Form1.菜单列表.Visible=1Form1.L1.Caption="稆糨孝汶;学习"Form1.L2.Caption="工作"Form1.L3.Caption="游戏"Form1.L1.Visible=1Form1.L2.Visible=1Form1.L3.Visible=1EndEventEventForm1.按键学院.ClickCall重置菜单Form1.菜单列表.Visible=1Form1.L1.Caption="学院院刊"Form1.L2.Caption="学习资源"Form1.L3.Caption="课堂"Form1.L1.Visible=1Form1.L2.Visible=1Form1.L3.Visible=1EndEventSub重置菜单()Form1.菜单列表.Visible=0Form1.L1.Visible=0Form1.L2.Visible=0Form1.L3.Visible=0Form1.学习选项卡.Visible=0EndSubEventForm1.取消.ClickCall重置菜单EndEventEventForm1.L1.ClickIfForm1.L1.Caption="学习"ThenForm1.学习选项卡.Visible=1Form1.返回.Visible=1EndIfEndEventEventForm1.返回.ClickCall重置菜单EndEvent
6、按钮形态单选框骚气值：五颗星，很骚气功能：点击单选框之后切换到不同页面效果演示：
7、主要控件单选框、选项卡大致思路：1、画单选框，单选框的样式设置为按钮2、画选项卡3、选项卡的点击事件中调用显示函数4、显示函数中设置要显示的选项卡代码：EventForm1.OptionBox1.ClickCall显示()EndEventEventForm1.OptionBox2.ClickCall显示()EndEventEventForm1.OptionBox3.ClickCall显示()EndEventSub显示()Form1.TabControl1.Visible=Form1.OptionBox1.ValueForm1.TabControl2.Visible=Form1.OptionBox2.ValueForm1.TabControl3.Visible=Form1.OptionBox3.ValueEndSub