控件组件调用实例

作者: 妹妹好想你 | 来源:发表于2017-11-27 08:39 被阅读0次

    InstallMouseHook

    CustomColor = FFFFF ; 可以为任意 RGB 颜色 (在下面会被设置为透明).
    Gui +LastFound +AlwaysOnTop -Caption +ToolWindow ; +ToolWindow 避免显示任务栏按钮和 alt-tab 菜单项.
    Gui, Color, %CustomColor%
    Gui, Font, s32 ; 设置大字体 (32 磅).
    Gui, Add, Text, vMyText cLime, XXXXX YYYYY ; XX & YY 用来自动调整窗口大小.
    Gui, add, edit,vMyedit1, 1111111111111
    Gui, add, edit,vMyedit2, 2222222222222
    ; 让此颜色的所有像素透明且让文本显示为半透明 (150):
    WinSet, TransColor, %CustomColor% 150
    SetTimer, UpdateOSD, 200
    gosub, UpdateOSD ; 立即进行第一此更新而不等待计时器.
    Gui, Show,NoActivate ; NoActivate 让当前活动窗口继续保持活动状态.
    return

    UpdateOSD:
    MouseGetPos, MouseX, MouseY
    GuiControl,, MyText, X%MouseX%, Y%MouseY%
    ToolTip,X%MouseX% Y%MouseY%
    GetKeyState, state, RButton
    If state = D
    {
    GuiControl,, Myedit1, %MouseX%
    GuiControl,, Myedit2, %MouseY%
    }
    return#InstallMouseHook

    CustomColor = FFFFF ; 可以为任意 RGB 颜色 (在下面会被设置为透明).
    Gui +LastFound +AlwaysOnTop -Caption +ToolWindow ; +ToolWindow 避免显示任务栏按钮和 alt-tab 菜单项.
    Gui, Color, %CustomColor%
    Gui, Font, s32 ; 设置大字体 (32 磅).
    Gui, Add, Text, vMyText cLime, XXXXX YYYYY ; XX & YY 用来自动调整窗口大小.
    Gui, add, edit,vMyedit1, 1111111111111
    Gui, add, edit,vMyedit2, 2222222222222
    ; 让此颜色的所有像素透明且让文本显示为半透明 (150):
    WinSet, TransColor, %CustomColor% 150
    SetTimer, UpdateOSD, 200
    gosub, UpdateOSD ; 立即进行第一此更新而不等待计时器.
    Gui, Show,NoActivate ; NoActivate 让当前活动窗口继续保持活动状态.
    return

    UpdateOSD:
    MouseGetPos, MouseX, MouseY
    GuiControl,, MyText, X%MouseX%, Y%MouseY%
    ToolTip,X%MouseX% Y%MouseY%
    GetKeyState, state, RButton
    If state = D
    {
    GuiControl,, Myedit1, %MouseX%
    GuiControl,, Myedit2, %MouseY%
    }
    return
    这样当右击时,控件内容就改变了。

    相关文章

      网友评论

        本文标题:控件组件调用实例

        本文链接:https://www.haomeiwen.com/subject/iulrbxtx.html