求一个托盘消息框，能正常加载皮肤的

sunafter

在屏幕左下角滑入滑出的，论坛上搜到一个加载皮肤之后不正常

#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>


; Simple Example
_TrayMessageBox("托盘消息框", "这是一个托盘消息框文本" & @CRLF & @CRLF & "                 ...谢谢")


Func _TrayMessageBox($TBTitle, $TBText, $TBwidth = 220, $TBheight = 100, $display_Time = 5000)
    $TBgui = GUICreate($TBTitle, $TBwidth, $TBheight, @DesktopWidth - ($TBwidth + 12), @DesktopHeight - ($TBheight + 53), -1, $WS_EX_TOOLWINDOW)
    $Status = GUICtrlCreateLabel($TBText, 20, 20)
    DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $TBgui, "int", 1000, "long", 0x00040008);slide-in
    GUISetState()
    Sleep($display_Time)
    DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $TBgui, "int", 1000, "long", 0x00050004);slide-out
    GUIDelete($TBgui)
EndFunc   ;==>_TrayMessageBox

huaisha1224

不知道你想做成什么杨的效果？

sunafter

就是类似1楼代码的效果
在托盘图标处滑上来，然后滑下去
只是1楼代码加了皮肤之后，滑下去时就没有皮肤了