文字跑马灯透明效果【已解决】

redapple2008

怎么让文字标签透明？

redapple2008

下面是代码附件

user3000

是否可以考虑把文字跑马灯控件建立在单独的子窗口上, 然后依据需要设置其透明度?

redapple2008

是否可以考虑把文字跑马灯控件建立在单独的子窗口上, 然后依据需要设置其透明度?
user3000 发表于 2012-3-27 16:18

    暂时没有找到更好的解决方法。

tttbbb999

参考这个：
http://www.autoitx.com/thread-31164-1-1.html
里面的文本颜色：0xff00ff00
第一组'ff'就是透明度。换算成十进制就是取值0-255

redapple2008

参考这个：

里面的文本颜色：0xff00ff00
第一组'ff'就是透明度。换算成十进制就是取值0-255
tttbbb999 发表于 2012-3-27 16:52

    谢谢了

redapple2008

找到了，研究一下了

#include <IE.au3>

#include <WindowsConstants.au3>

#include "Marquee.au3"



Global $i = 0

Global $Array[5] = ["white","green","blue","red","yellow"] ;字体颜色

$pos = WinGetPos("[class:Shell_TrayWnd]")

$Width = 695

$Height = 165

$Left = @DesktopWidth - 705

$Top = @DesktopHeight - 175 - $pos[3]



$Jpg = "http://www.autobatch.org/bbs/images/baishe_logo.jpg"

$oIE = _IECreateEmbedded()

;无边框，层叠窗口的属性

$gui = GUICreate("缘鸟脚本",$Width,$Height,$Left,$Top,$WS_POPUP, $WS_EX_LAYERED) 

GUISetBkColor(0xABCDEF) ;设置背景透明，层叠窗口才有效

GUICtrlCreateGroup ("", 1, 1, 680,150)

$obj = GUICtrlCreateObj($oIE,10, 15, 660, 90) 

_IENavigate($oIE,$Jpg)

$oIE.document.body.scroll="no"

_GUICtrlMarquee_SetScroll(Default,Default, Default, 2) ;2是滚动的速度

_GUICtrlMarquee_SetDisplay(1,$Array[$i],0xABCDEF) 

$Marquee = _GUICtrlMarquee_Create("欢迎访问缘鸟脚本社区 释放你的双手，让一切自动化！", 10, 120, 660, 20)

_WinAPI_SetLayeredWindowAttributes($gui, 0xABCDEF)

;~ AdlibRegister ("SetFontColor",1000)

GUISetState()



Do

Until GUIGetMsg()=-3



;~ Func SetFontColor()

;~         $i += 1

;~         If $i > 4 Then $i = 0

;~         $Marquee.document.body.style.color = $Array[$i]

;~ EndFunc

benz1979

不错的效果，下载来研究！

jdd3