怎么看颜色代码

怎么看颜色代码，相信很多人都有这样的问题下面我们就来讲讲怎么看颜色代码；

第一步

打开在线查看颜色代码的工具

>

我们打开网站后，然后会看到里面有很多查看颜色代码的小工具，随便选一种你喜欢的颜色代码查看工具

下面我们以PS风格颜色代码选择器来示例

第二步

选一个你想要查看颜色代码的颜色，上下拖动下图红框的内容，这是选择颜色的；

第三步

自动拖动下图中红框指向的小圆点，这个点是修改颜色深浅的；

第四步

找到颜色代码（在下图红框中）并拷贝到你需要的地方去。

说明一下，一般像这样的颜色代码是需要加上前面的#号的

比如上面这个颜色代码应该写成#36ad6d

其它的工具也大概是相同的方法来查看颜色代码的，多试下就会了，希望能给你带来帮助！

'使用DIB获取图象，根据他人代码修改，ImgData()中保存的是颜色

Private Declare Function GetDIBits Lib "gdi32" (ByVal aHDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long

Private Declare Function SetDIBits Lib "gdi32" (ByVal hdc As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long

Private Type BITMAPINFOHEADER '40 bytes

biSize As Long

biWidth As Long

biHeight As Long

biPlanes As Integer

biBitCount As Integer

biCompression As Long

biSizeImage As Long

biXPelsPerMeter As Long

biYPelsPerMeter As Long

biClrUsed As Long

biClrImportant As Long

End Type

Private Type RGBQUAD

rgbBlue As Byte

rgbGreen As Byte

rgbRed As Byte

rgbReserved As Byte

End Type

Private Type BITMAPINFO

bmiHeader As BITMAPINFOHEADER

bmiColors As RGBQUAD

End Type

Private Const DIB_RGB_COLORS = 0 ' color table in RGBs

Private Sub Command1_Click()

Picture1Line (0, 0)-(Picture1Width, Picture1Height), vbRed

Dim BITMAP As BITMAPINFO

Dim ImgData() As Byte'图象颜色

Dim lIndex As Long

Dim i As Long, j As Long, n As Long, t As Long, m

With BITMAP

bmiHeaderbiSize = 40 'BMP30版本

End With

If GetDIBits(Picture1hdc, Picture1PictureHandle, 0, 0, 0, BITMAP, DIB_RGB_COLORS) <> 0 Then '获取图像位图数据大小

ReDim ImgData(BITMAPbmiHeaderbiSizeImage - 1) '重定义数组准备接收位图数据

If GetDIBits(Picture1hdc, Picture1PictureHandle, 0, BITMAPbmiHeaderbiHeight, ImgData(0), BITMAP, DIB_RGB_COLORS) <> 0 Then '正式获取位图数据并将数据存入定义的数组中

'注意数组中颜色分量的存储顺序为：B、G、R(并不是R、G、B），如果你需要对图像进行处理只需改变数组中的数据即可完成

'我试验的位图62x62像素，24色图,3字节存储，每行188字节(一个扫描行的长度必须是4的倍数)，这样扫描后共11656字节

'　下面这段程序是将图像亮度变暗(只作为演示，其它效果你可以自己动手做)

'注意：第一条扫描线的位置是从左下角开始

'BITMAPbmiHeaderbiHeight 位图的高度，单位是像素

'BITMAPbmiHeaderbiWidth 位图的宽度，单位是像素

'BITMAPbmiHeaderbiBitCount 图像的颜色位数

'每个像素点的颜色是：(从下往上)

t = ((BITMAPbmiHeaderbiWidth 3 + 3) \ 4) 4 '每行的字节数

For i = 1 To BITMAPbmiHeaderbiHeight

DoEvents

m = t (i - 1)

For j = 1 To BITMAPbmiHeaderbiWidth

n = m + (j - 1) 3

DebugPrint "(" & i & "," & j & ")" & n & "： R=" & ImgData(n) & " G=" & ImgData(n + 1) & " B=" & ImgData(n + 2)

Next

Next

For lIndex = 0 To BITMAPbmiHeaderbiSizeImage - 1

DoEvents

If ImgData(lIndex) - 100 < 0 Then

ImgData(lIndex) = 0

Else

ImgData(lIndex) = ImgData(lIndex) - 100

End If

Next

'

SetDIBits Picture2hdc, Picture2ImageHandle, 0, BITMAPbmiHeaderbiHeight - 1, ImgData(0), BITMAP, DIB_RGB_COLORS '将位图数据写入PICTURE2中

End If

End If

End Sub

以上就是关于怎么看颜色代码全部的内容，包括:怎么看颜色代码、vb编程 获取图片全面像素颜色信息、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！