发表评论(0)作者：不详, 平台：VB6.0+Win98, 阅读：11396, 日期：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
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
RSS地址