[转载][361度]361度窗口插件的按钮控制文本显示区域的显隐

紫猫

在目标窗口或者桌面中创建按钮，点击按钮随时控制目标的文本显示区域的显示和隐藏，可使脚本更人性化，想看信息的时候让它显示，不想看的时候让它隐藏，不需要切换到脚本界面中进行设置。361度窗口插件创建的按钮可以绑定一个或者多个窗口，控制被绑定窗口的显隐。根据普通按钮和切换按钮的区别，绑定窗口也有差异。这里对普通按钮和切换按钮绑定文本显示区域各演示一个例子。为了方便运行演示的脚本，这里是将按钮和文本显示区域创建在桌面中的，可以传递个窗口句柄给它们，让它们创建在窗口中。

普通按钮例子：

[按键精灵] 纯文本查看 复制代码

'创建文本显示区域
hwndText1 = Plugin.WndEx7_20.CreateTextRgn(0, 10, 10, 200, 15)
'设置文本显示区域样式为：背景透明,颜色橙色,字体为宋体、加粗，文字高度12
Call Plugin.WndEx7_20.SetTextRgnStyle(hwndText1, "TRP", "007FFF", "宋体", 12, 1, 0, 0)
'设置文本显示区域文本，发送字符串给文本显示区域
Call Plugin.WndEx7_20.SendTextRgnString(hwndText1, "脚本运行中")
'创建文本显示区域
hwndText2 = Plugin.WndEx7_20.CreateTextRgn(0, 10, 30, 200, 80)
'设置文本显示区域样式为：背景透明,紫色,字体为宋体，文字高度12，滚动显示
Call Plugin.WndEx7_20.SetTextRgnStyle(hwndText2, "TRP", "FF00FF", "宋体", 12, 0, 2, 1)
'创建按钮
hwndBtn = Plugin.WndEx7_20.CreateButton(0, 10, 120, 80, 20)
'设置按钮样式为：背景黑色，文字黄色，文字高度12
Call Plugin.WndEx7_20.SetButtonStyle(hwndBtn, "000000", "00FFFF", 0, 12)
'设置按钮为：普通按钮，显示内容为“显隐数据”
Call Plugin.WndEx7_20.SetButton(hwndBtn, "显隐数据")
'将文本显示区域绑定到按钮
Call Plugin.WndEx7_20.SetButtonBindWindow(hwndBtn, hwndText1, 0)
'将文本显示区域绑定到按钮
Call Plugin.WndEx7_20.SetButtonBindWindow(hwndBtn, hwndText2, 0)
i = 0
Do
    str = CStr(now) & " 数据" & CStr(i)
    '发送字符串给文本显示区域
    Call Plugin.WndEx7_20.SendTextRgnString(hwndText2, str)
    i = i + 1
    Delay 1000
Loop
'OnScriptExit过程在脚本结束时执行，即使脚本执行到一半的时候，你按了停止热键，它也会执行了这个过程再停止
Sub OnScriptExit()
    '关闭文本显示区域
    Call Plugin.WndEx7_20.SetWindowState(hwndText1, 0)
    '关闭文本显示区域
    Call Plugin.WndEx7_20.SetWindowState(hwndText2, 0)
    '关闭按钮
    Call Plugin.WndEx7_20.SetWindowState(hwndBtn, 0)
End Sub

运行效果

                               
登录/注册后可看大图

---

切换按钮例子：

[按键精灵] 纯文本查看 复制代码

'创建文本显示区域
hwndText1 = Plugin.WndEx7_20.CreateTextRgn(0, 10, 10, 200, 15)
'设置文本显示区域样式为：背景透明,颜色橙色,字体为宋体、加粗，文字高度12
Call Plugin.WndEx7_20.SetTextRgnStyle(hwndText1, "TRP", "007FFF", "宋体", 12, 1, 0, 0)
'设置文本显示区域文本，发送字符串给文本显示区域
Call Plugin.WndEx7_20.SendTextRgnString(hwndText1, "脚本运行中")
'创建文本显示区域
hwndText2 = Plugin.WndEx7_20.CreateTextRgn(0, 10, 30, 200, 80)
'设置文本显示区域样式为：背景透明,紫色,字体为宋体，文字高度12，滚动显示
Call Plugin.WndEx7_20.SetTextRgnStyle(hwndText2, "TRP", "FF00FF", "宋体", 12, 0, 2, 1)
'创建按钮
hwndBtn = Plugin.WndEx7_20.CreateButton(0, 10, 120, 80, 20)
'设置按钮样式为：背景黑色，文字黄色，文字高度12
Call Plugin.WndEx7_20.SetButtonStyle(hwndBtn, "000000", "00FFFF", 0, 12)
'创建数组
BtnData=Array("全部显示","隐藏数据","全部隐藏")
'设置按钮为：切换按钮
Call Plugin.WndEx7_20.SetButton(hwndBtn, BtnData)
'将文本显示区域绑定到按钮，按钮状态是0和1的时候显示，其它时候隐藏
Call Plugin.WndEx7_20.SetButtonBindWindow(hwndBtn, hwndText1, "0|1")
'将文本显示区域绑定到按钮，按钮状态是0的时候显示，其它时候隐藏
Call Plugin.WndEx7_20.SetButtonBindWindow(hwndBtn, hwndText2, "0")
i = 0
Do
    str = CStr(now) & " 数据" & CStr(i)
    '发送字符串给文本显示区域
    Call Plugin.WndEx7_20.SendTextRgnString(hwndText2, str)
    i = i + 1
    Delay 1000
Loop
'OnScriptExit过程在脚本结束时执行，即使脚本执行到一半的时候，你按了停止热键，它也会执行了这个过程再停止
Sub OnScriptExit()
    '关闭文本显示区域
    Call Plugin.WndEx7_20.SetWindowState(hwndText1, 0)
    '关闭文本显示区域
    Call Plugin.WndEx7_20.SetWindowState(hwndText2, 0)
    '关闭按钮
    Call Plugin.WndEx7_20.SetWindowState(hwndBtn, 0)
End Sub

运行效果

                               
登录/注册后可看大图

脚本中使用的361度窗口插件下载：
http://pan.baidu.com/s/1ntQswaP

本文转载于361度插件作者博客
http://bg361.blog.163.com/