像QQ一样，一有消息，系统托盘区一闪一闪的，如何做的？

alinker 2002-02-06 10:47:52

像QQ一样，一有消息，系统托盘区一闪一闪的，如何做的？我只知静态图标的...

...全文

139 18 打赏收藏转发到动态举报

写回复

用AI写文章

18 条回复

切换为时间正序

请发表友善的回复…

发表回复

redlegend_126_com 2002-02-17

打赏
举报

用timer控件中的事件

就可以了!随时改变ddd中的图标句柄然后
shell_notifyicon(nim_modify,@ddd);
行了,给分吧

dominiczhong 2002-02-17

打赏
举报

我有，发给你

Chice_wxg 2002-02-16

打赏
举报

我封装好的代码，绝对好用！
而且支持停靠。
注意：tmrMousePos的触发属性设置为1。反正能小就小，呵呵

Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Dim MousePos As POINTAPI
Const FLAT_TOP = 1
Const FLAT_BOTTOM = 2
Const FLAT_LEFT = 4
Const FLAT_RIGHT = 8
Dim FlatFlag As Integer

Public Function PtInRect(r As RECT, pt As POINTAPI) As Boolean
If r.Left <= pt.X And pt.X <= r.Right And r.Top <= pt.Y And pt.Y < r.Bottom Then PtInRect = True Else PtInRect = False
End Function

Public Sub CursorPosTimer()
Dim r As RECT
Dim lRight As Long
Dim ir As Boolean
GetWindowRect Me.hwnd, r

ir = PtInRect(r, MousePos)
If (FlatFlag And FLAT_LEFT) = FLAT_LEFT Then
If MousePos.X <= 2 And ir Then
Me.Left = 0
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
Else
If Me.Left = 0 And Not ir Then
Me.Left = -Me.Width + 2 * Screen.TwipsPerPixelX
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End If
End If
End If
lRight = Screen.Width / Screen.TwipsPerPixelX - Me.Width / Screen.TwipsPerPixelX
If (FlatFlag And FLAT_RIGHT) = FLAT_RIGHT Then
If MousePos.X >= lRight - 2 And ir Then
Me.Left = lRight * Screen.TwipsPerPixelX
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
Else
If Me.Left = lRight * Screen.TwipsPerPixelX And Not ir Then
Me.Left = Screen.Width - 2 * Screen.TwipsPerPixelX
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End If
End If
End If

If (FlatFlag And FLAT_TOP) = FLAT_TOP Then
If MousePos.Y <= 2 And ir Then
Me.Top = 0
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
Else
If Me.Top = 0 And Not ir Then
Me.Top = -Me.Height + 2 * Screen.TwipsPerPixelY
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End If
End If
End If

End Sub

Private Sub tmrMousePos_Timer()
GetCursorPos MousePos
CursorPosTimer
End Sub

visualbaby 2002-02-15

打赏
举报

是这样实现的吗，我怎么觉得这样太简单了吧

wgku 2002-02-15

打赏
举报

提个思路吧
当MOUSE指向窗体时，它自动将高度height 变为正常的，当MOUSE离开窗体是再将
高度height 变成一个很小的值，我想不能是0

bluesky35 2002-02-15

打赏
举报

先做个系统托盘，然后再使用定时器实现每秒闪动。

shuwork 2002-02-15

打赏
举报

QQ窗体的收缩隐藏:
timer控件捕捉 MouseExit 事件
'声明
Public Declare Function GetCursorPos Lib "user32" (lpPoint As _pointapi) As Long
Type pointapi
x As Long
y As Long
End Type
'过程
Private Sub Timer1_Timer()
Dim a As Long
a = GetCursorPos(mouse)
If (mouse.x > frmMain.ScaleWidth) Or (mouse.y > _frmMain.ScaleHeight ) Then
frmMain.Top = (0 - frmMain.Height) + 100
End If
If mouse.y < 30 Then
frmMain.Top = 10　'理论上为０

End If
End Sub
注意：form1.scalemode设置为2

chenhuo 2002-02-10