VB任何窗口标题滚动代码.docVIP

VB任何窗口标题滚动代码 Dim?ctEsc?As?Boolean,?ctExit?As?Boolean,?ctRW?As?Long,?ctKS?As?LongPrivate?Declare?Function?GetForegroundWindow?Lib?user32?()Private?Declare?Function?GetWindowText?Lib?user32?Alias?GetWindowTextA?(ByVal?hwnd?As?Long,?ByVal?lpString?As?String,?ByVal?cch?As?Long)?As?LongPrivate?Declare?Function?SetWindowText?Lib?user32?Alias?SetWindowTextA?(ByVal?hwnd?As?Long,?ByVal?lpString?As?String)?As?LongPrivate?Declare?Function?GetWindowDC?Lib?user32?(ByVal?hwnd?As?Long)Private?Declare?Function?BitBlt?Lib?gdi32?(ByVal?hDestDC?As?Long,?ByVal?X?As?Long,?ByVal?y?As?Long,?ByVal?nWidth?As?Long,?ByVal?nHeight?As?Long,?ByVal?hSrcDC?As?Long,?ByVal?xSrc?As?Long,?ByVal?ySrc?As?Long,?ByVal?dwRop?As?RasterOpConstants)?As?LongPrivate?Declare?Function?CreateCompatibleDC?Lib?gdi32?(ByVal?hdc?As?Long)Private?Declare?Function?CreateCompatibleBitmap?Lib?gdi32?(ByVal?hdc?As?Long,?ByVal?nWidth?As?Long,?ByVal?nHeight?As?Long)Private?Declare?Function?SetBkColor?Lib?gdi32?(ByVal?hdc?As?Long,?ByVal?crColor?As?Long)Private?Declare?Function?SetTextColor?Lib?gdi32?(ByVal?hdc?As?Long,?ByVal?crColor?As?Long)Private?Declare?Function?TextOut?Lib?gdi32?Alias?TextOutA?(ByVal?hdc?As?Long,?ByVal?X?As?Long,?ByVal?y?As?Long,?ByVal?lpString?As?String,?ByVal?nCount?As?Long)Private?Declare?Function?SelectObject?Lib?gdi32?(ByVal?hdc?As?Long,?ByVal?hObject?As?Long)Private?Declare?Function?DeleteObject?Lib?gdi32?(ByVal?hObject?As?Long)Private?Declare?Sub?Sleep?Lib?Kernel32?(ByVal?dwMilliseconds?As?Long)Private?Declare?Function?DeleteDC?Lib?gdi32?(ByVal?hdc?As?Long)Private?Declare?Function?GetWindowRect?Lib?user32?(ByVal?hwnd?As?Long,?lpRect?As?RECT)?As?LongPrivate?Declare?Function?FindWindow?Lib?user32?Alias?FindWindowA?(ByVal?lpClassName?As?String,?ByVal?lpWindowName?As?String)?As?Long Private?Type?RECT?窗体或区域的结构????Left?As?Long????Top?As?Long????Right?As?Long????Bottom?As?LongEnd?Type Private?Sub?Form_Load()???Me.Caption?=?流畅的滚动标题例子???Command1.Caption?=?滚动:?Command2.Caption?=?停止???Me