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

学习脚本制作：按键精灵让QUI界面如此炫酷来源：按键学院 【按键精灵】脚本功能很好用，但是那乱得让人有尿意的界面总是让人闻风丧胆有木有？吓哭小孩子有木有？脚本的界面可以说是脚本的门面，要长得好看才能吸引更多怪蜀黍 只要咱们懂得利用控件，尽情挥洒咱的无限创作力，一定可以让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 = For