请问怎么实现象msn或QQ那样，当有新消息来的时候，窗口(最小化)在任务栏上一闪一闪的功能？？？

Question

请问怎么实现象msn或QQ那样，当有新消息来的时候，窗口(最小化)在任务栏上一闪一闪的功能？？？谢谢!!!

Answer 1

Public Const NIM_ADD = 0             '添加图标
Public Const NIM_MODIFY = 1          '修改图标
Public Const NIM_DELETE = 2          '删除图标

Answer 2

用timer
i=i+1
if i%2=0 then
   a.picture="..\1.bmp"
else
   a.picture="..\2.bmp"
end if

Answer 3

to  aiur2000(开始.NET)
好像不行吧。当窗口最小化的时候，看不出什么效果。

Answer 4

你如果当前窗体最小化且没有焦点，windows在你窗体内有活动时会自动给你的程序图标进行闪烁。
如果你要换图标的话，
可以 Set Me.Icon = 你想换的图标就可以了，写在timmer中，定时切换就行了

Answer 5

to kkkksunday(。)( _)左边胸口疼) ：
你如果当前窗体最小化且没有焦点，windows在你窗体内有活动时会自动给你的程序图标进行闪烁。
不对吧

Answer 6

确实不过消息来的时候激活TIMER

Answer 7

to :cbzdream(迷茫) 
确实不对，是我弄错了，我再看一下到底是什么时候闪烁
-----------------------------------------------
不过，form.icon= 图标 进行切换是可以达到要求的

Answer 8

to kkkksunday(。)( _)左边胸口疼) ：
没关系。
“不过，form.icon= 图标 进行切换是可以达到要求的”好像不行。我试过了。

Answer 9

我试过了，可以的呀
----------------------------------
你在窗体上加一个image数组，名称为image1,里面放上不同的icon
加一个timmer,名称是timmer1在窗体里加如下代码：
Dim NowPicIndex As IntegerPrivate Sub Form_Load()
NowPicIndex = 0
End SubPrivate Sub Timer1_Timer()
Me.Icon = Image1(NowPicIndex).Picture
NowPicIndex = 1 - NowPicIndex
End Sub-------------------------------------------
我运行通过了的

Answer 10

to：kkkksunday(。)( _)左边胸口疼) 
效果不一样吧。
to：zyg0(影子(努力吃饭中)) 
给我发一分吧。
[email protected]
谢谢！

Answer 11

to：kkkksunday(。)( _)左边胸口疼)
最好是整个标题栏都闪动。

Answer 12

找到了，
FlashWindow VB声明 
Declare Function FlashWindow Lib "user32" Alias "FlashWindow" (ByVal hwnd As Long, ByVal bInvert As Long) As Long 
说明 
闪烁显示指定窗口。这意味着窗口的标题和说明文字会发生变化，似乎从活动切换到非活动状态、或反向切换。通常对不活动的窗口应用这个函数，引起用户的注意 
返回值 
Long，如窗口在调用前处于活动状态，则返回TRUE（非零） 
参数表 
参数 类型及说明 
hwnd Long，要闪烁显示的窗口的句柄 
bInvert Long，TRUE（非零）表示切换窗口标题；FALSE返回最初状态 
注解 
该函数通常与一个计数器组合使用，生成连续的闪烁效果。在windows nt及windows for workgroup中，bInvert参数会被忽略。但在windows 95中不会忽略
 

Answer 13

 邮件发送成功!  
 邮件发送给: [email protected]  
 抄送给: 无  
 密送给: 无