用VB编写一个屏幕颜色拾取器
点击次数：76 次 发布日期：2008-11-06 08:06:25 作者：源代码网
源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐代码如下： 源代码网推荐 源代码网推荐Option Explicit 源代码网推荐 源代码网推荐Private Declare Function GetWindowDC Lib "user32" (ByVal hWnd As Long) As Long 源代码网推荐Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) 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 Long) As Long 源代码网推荐Private Declare Function StretchBlt Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal Height As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long 源代码网推荐Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long 源代码网推荐Private Declare Sub SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) 源代码网推荐Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer 源代码网推荐 源代码网推荐Private Const HWND_TOPMOST = -1 源代码网推荐Private Const HWND_NOTOPMOST = -2 源代码网推荐Private Const SWP_NOSIZE = &H1 源代码网推荐Private Const SWP_NOMOVE = &H2 源代码网推荐Private Const SWP_NOACTIVATE = &H10 源代码网推荐Private Const SWP_SHOWWINDOW = &H40 源代码网推荐 源代码网推荐Private Type POINTAPI 源代码网推荐 X As Long 源代码网推荐 Y As Long 源代码网推荐End Type 源代码网推荐 源代码网推荐Private Const SRCCOPY = &HCC0020 源代码网推荐Private Const SRCAND = &H8800C6 源代码网推荐Private Const SRCPAINT = &HEE0086 源代码网推荐 源代码网推荐Dim MousePos As POINTAPI 源代码网推荐Dim oldMousePos As POINTAPI 源代码网推荐 源代码网推荐Private Sub Check1_Click() 源代码网推荐"设置顶层窗口 源代码网推荐 If Check1.Value = 1 Then 源代码网推荐 SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE 源代码网推荐 Else 源代码网推荐 SetWindowPos Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE 源代码网推荐 End If 源代码网推荐End Sub 源代码网推荐 源代码网推荐Private Sub Command1_Click() 源代码网推荐"开始停止捕捉屏幕 源代码网推荐 If Command1.Caption = "停止" Then 源代码网推荐 Command1.Caption = "开始" 源代码网推荐 Timer1.Enabled = False 源代码网推荐 Else 源代码网推荐 Command1.Caption = "停止" 源代码网推荐 Timer1.Enabled = True 源代码网推荐 End If 源代码网推荐End Sub 源代码网推荐 源代码网推荐Private Sub Command2_Click() 源代码网推荐"退出程序 源代码网推荐 Unload Me 源代码网推荐End Sub 源代码网推荐 源代码网推荐Private Sub Form_Activate() 源代码网推荐"程序启动后自动设置顶层窗口 源代码网推荐 Check1.Value = 1 源代码网推荐End Sub 源代码网推荐 源代码网推荐Private Sub Timer1_Timer() 源代码网推荐Dim WindowDC As Long 源代码网推荐Dim Color As Long 源代码网推荐Dim r As Integer, b As Integer, g As Integer 源代码网推荐 源代码网供稿. |
