form1.frm

来自「Visual.Basic.NET实用编程百例-47.6M.zip」· FRM 代码 · 共 61 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "闪烁标题栏"
   ClientHeight    =   1425
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   4215
   LinkTopic       =   "Form1"
   ScaleHeight     =   1425
   ScaleWidth      =   4215
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command2 
      Caption         =   "标题栏不闪烁"
      Height          =   375
      Left            =   2280
      TabIndex        =   1
      Top             =   600
      Width           =   1335
   End
   Begin VB.Timer Timer1 
      Left            =   120
      Top             =   600
   End
   Begin VB.CommandButton Command1 
      Caption         =   "标题栏闪烁"
      Height          =   375
      Left            =   600
      TabIndex        =   0
      Top             =   600
      Width           =   1335
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

Private Sub Form_Load()
    Timer1.Interval = 200       '  设定计时器间隔
    Timer1.Enabled = False      '  初始时计时器无效
    Command2.Enabled = False  '  “标题栏不闪烁”按钮无效
End Sub

Private Sub Command1_Click()
    Timer1.Enabled = True       '  计时器有效
    Command2.Enabled = True  '  “标题栏不闪烁”按钮有效
    Command1.Enabled = False   '  “标题栏闪烁”按钮无效
End Sub

Private Sub Command2_Click()
    Timer1.Enabled = False       '  计时器无效
    Command1.Enabled = True     '  “标题栏闪烁”按钮有效
    Command2.Enabled = False  '  “标题栏不闪烁”按钮无效
End Sub

Private Sub Timer1_Timer()
    FlashWindow Me.hwnd, 1       '  调用函数使窗体标题栏闪烁
End Sub