VBGood网站全文搜索 Google

首页 - 经验之谈 - 让窗体最小化的时候有提示
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:11585, 日期:2000-11-07
Visible Cues from a Minimized Form

Suppose you want a form to perform a task while minimized, then notify the user without a message box and while remaining minimized. You can send a message via a changing icon on the minimized form in the taskbar.

Create a form containing a timer and an image list. Set the timer注释:s Interval property to 2000, then use the ImageList control注释:s Custom property to add three images. Finally, add this code to the Timer event:

Private Sub Timer1_Timer()
Static iImage As Integer
iImage = iImage + 1
If iImage > 3 Then iImage = 1
Me.Icon = ImageList1.ListImages(iImage).Picture
End Sub