发表评论(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
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