心动难耐妈妈网:定制化窗体之闪烁窗体标题栏(1)

来源：百度文库编辑：偶看新闻时间：2024/04/28 08:34:32

主     题
定制化窗体之闪烁窗体标题栏
版     本
Excel2000及其以后版本
说     明
本示例运用API函数来定制Excel中的用户窗体，使窗体标题栏闪烁。（Code By wangminbai）
在有的程序，其可以闪烁标题来提醒用户。其实在VBA的用户窗体也可以闪烁窗体标题。实现如下：
l         在Excel 的VBE窗口中插入一个用户窗体，将其命名为 FlashForm。然后再添加一个模块。在窗体和模块中添加后面所列代码。
l         在工作薄中的任意工作表中添加一窗体按钮控件，将指定其设置宏为 ShowForm。其供示范之用
l         代码：
模块1代码
Option Explicit
'//****************************************************************************************************************************************
'//以下声明API函数
'//闪烁窗口
Private Declare Function FlashWindow _
Lib "user32" ( _
ByVal hwnd As Long, _
ByVal bInvert As Long) _
As Long
'//查找窗口
Private Declare Function FindWindow _
Lib "user32" _
Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long
'//****************************************************************************************************************************************
'//Settimer函数的回调函数
Public Function TimeOutProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal SysTime As Long) As Long
Dim HwndForm As Long
'//取得窗口句柄
HwndForm = FindWindow(vbNullString, FlashForm.Caption)
'//闪烁窗口200毫秒
FlashWindow HwndForm, 200
End Function
'//--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'//****************************************************************************************************************************************
'//此过程为工作表中按钮所调用
'//****************************************************************************************************************************************
Sub ShowForm()
'//显示窗体
FlashForm.Show
End Sub

怎么在C#中改变窗体标题栏 SendMessage如何改变窗体标题栏文字？ vb中有菜单栏的窗体能隐藏标题栏吗请教大虾们，VB中怎么去掉窗体上的标题栏呀？请教一个关于VB问题：VB中窗体标题栏的文字颜色、字体能否改变？请教一个关于VB问题：VB中窗体标题栏的文字颜色、字体能否改变？怎样禁止在MDI窗体的标题栏双击左键和单击右键怎么样使劲舞团窗体化 c#如何实现一个窗体或者面板从屏幕一侧，平滑移入，而且不闪烁请教：VB窗体Hide窗体的解决办法， vb里在窗体中嵌入窗体什么是当前活动窗体？ delphi7窗体调用编译VB窗体 java的窗体问题 Delphi窗体互相调用 C# 窗体设计问题 vb.net窗体问题？ VB窗体代码 VB中拖动窗体 vb 打开窗体网页窗体大小问题网页窗体大小问题什么叫窗体控件？