[周边工具]一个颜色工具

IamI

恩，自己用VB写的一个废物，主要就是写脚本时方便一点，不用去记颜色了{/gg}（《=懒人）
主要功能就是配置RGBA颜色，按F12复制到剪贴板，F4使用Windows的ColorDialog

地址：http://rpg.blue/upload_program/files/color.rar
（才18来K……VB写的就是小……）

P.S.右键菜单很会被遗忘~

IamI

恩，自己用VB写的一个废物，主要就是写脚本时方便一点，不用去记颜色了{/gg}（《=懒人）
主要功能就是配置RGBA颜色，按F12复制到剪贴板，F4使用Windows的ColorDialog

地址：http://rpg.blue/upload_program/files/color.rar
（才18来K……VB写的就是小……）

P.S.右键菜单很会被遗忘~

洛克人SZ

很不错的东西，要是加入拾色功能就更好了。
还有，调用 Windows 的 ColorDialog 不是按 F5 而是按 F4 …………

IamI

以下引用洛克人SZ于2007-12-30 17:00:35的发言：

很不错的东西，要是加入拾色功能就更好了。
还有，调用 Windows 的 ColorDialog 不是按 F5 而是按 F4 …………

拾色理论上就是把整个屏幕截下来，转换到Bitmap，然后getcolor，这个就麻烦多了，偷懒不干~

洛克人SZ

其实并不麻烦，可以看看这些代码，用 VB6 写的（不是我）。

1. 
   
2. Option Explicit
   
3. 
   
4. ' Getpixel sample by Matt Hart - [email protected]
   
5. ' http://matthart.com
   
6. '
   
7. ' This sample shows how to get the pixel color of any point
   
8. ' on the screen. The GetPixel API requires CLIENT coordinates,
   
9. ' so you must first get the window handle and hDC where the
   
10. ' cursor is. Once you get that, you can get the pixel.
    
11. '
    
12. ' However, there's one "gotcha" I found while writing this.
    
13. ' Window titlebars return a "-1" for the pixel color, which
    
14. ' is invalid! So, what I did to get around that was use
    
15. ' BitBlt to copy a pixel from that device to the PictureBox
    
16. ' control I'm using to show the colors, then use the Point
    
17. ' method to check the color.
    
18. 
    
19. Private Type POINTAPI
    
20.     x As Long
    
21.     y As Long
    
22. End Type
    
23. 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
    
24. Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
    
25. Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
    
26. Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
    
27. Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
    
28. Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
    
29. 
    
30. Private Sub Timer1_Timer()
    
31.     Static lX As Long, lY As Long
    
32.     On Local Error Resume Next
    
33.     Dim P As POINTAPI, h As Long, hD As Long, r As Long
    
34.     GetCursorPos P
    
35.     If P.x = lX And P.y = lY Then Exit Sub
    
36.     lX = P.x: lY = P.y
    
37.     lblData(0).Caption = lX & "," & lY
    
38.     h = WindowFromPoint(lX, lY)
    
39.     lblData(1).Caption = h
    
40.     hD = GetDC(h)
    
41.     lblData(2).Caption = hD
    
42.     ScreenToClient h, P
    
43.     lblData(3).Caption = P.x & "," & P.y
    
44.     r = GetPixel(hD, P.x, P.y)
    
45.     If r = -1 Then
    
46.         BitBlt Picture1.hdc, 0, 0, 1, 1, hD, P.x, P.y, vbSrcCopy
    
47.         r = Picture1.Point(0, 0)
    
48.     Else
    
49.         Picture1.PSet (0, 0), r
    
50.     End If
    
51.     lblData(4).Caption = Hex$(r)
    
52.     Picture1.BackColor = r
    
53. End Sub
    

复制代码

越前リョーマ

颜色代码？

这种？
#6F2BD5

link006007

以下引用越前リョーマ于2007-12-30 19:54:26的发言：

颜色代码？

这种？
#6F2BD5

那个16进制的RGB值 应该不是他们说的吧