| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 504 人关注过本帖
标题:希望有人帮忙把这个VB程序转化为C++程序,谢谢。
只看楼主 收藏
meticulous
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2012-10-11
结帖率:50%
  问题点数:0  回复次数:0   
希望有人帮忙把这个VB程序转化为C++程序,谢谢。
希望有人帮忙把这个VB程序转化为C++程序,谢谢。
Public Enum enuFlashOptions
FLASHW_ALL = &H3 ' Flash both the window caption and taskbar button.
' This is equivalent to setting the FLASHW_CAPTION | FLASHW_TRAY flags.
FLASHW_CAPTION = &H1 ' Flash the window caption.
FLASHW_STOP = 0 ' Stop flashing. The system restores the window to its original state.
FLASHW_TIMER = &H4 ' Flash continuously, until the FLASHW_STOP flag is set.
FLASHW_TIMERNOFG = &HC ' Flash continuously until the window comes to the foreground.
FLASHW_tray = &H2
End Enum


Public Type FlashWindowInfo
cbSize As Long
hWnd As Long
dwflags As Long
uCount As Long
dwTimeout As Long
End Type
Private Declare Function FlashWindowEx Lib "user32.dll" (ByRef pInfo As FlashWindowInfo) As Boolean


Public Sub FlashWindow(ByVal hWnd As Long, ByVal FlashWindowInfoFlags As enuFlashOptions, Optional ByVal intFlashTimes As Long = 2)
Dim info As FlashWindowInfo
With info
.cbSize = Len(info)
.dwflags = FlashWindowInfoFlags ' See enumeration for flag values
.dwTimeout = 0 'Flash rate in ms or default cursor blink rate
.hWnd = hWnd
.uCount = intFlashTimes ' Number of times to flash
End With
FlashWindowEx info
End Sub


Sub flash(hWnd)
FlashWindow hWnd, FLASHW_TIMERNOFG Or FLASHW_tray, 0
End Sub
2017-09-01 14:04







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.089316 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved