'窗體最小化時在任務欄閃爍

Imports System.Runtime.InteropServices

Public Class Form1
? ? <DllImport("user32.dll")> _
? ? Private Shared Function FlashWindow(ByVal hwnd As IntPtr, ByVal bInvert As Boolean) As Boolean
? ? End Function

? ? Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
? ? ? ? Me.Text = "閃爍的窗體標題欄！"

? ? End Sub

? ? Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
? ? ? ? If Me.WindowState = FormWindowState.Minimized Then
? ? ? ? ? ? Timer1.Enabled = True
? ? ? ? Else
? ? ? ? ? ? Timer1.Enabled = False
? ? ? ? End If
? ? End Sub

? ? Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
? ? ? ? FlashWindow(Me.Handle, 1)
? ? End Sub
End Class
?

總結

以上是生活随笔為你收集整理的VB2010实例(3)_闪烁的窗体的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。