For i = 0 To PicMain.Height MaskLine = False 初始化MaskLine变量 For j = 0 To PicMain.Width CurrentColor = GetPixel(PicMain.hdc, j, i) 取得当前所在点的颜色值 If j < PicMain.Width Then TwoColor = GetPixel(PicMain.hdc, j + 1, i) 取得当前所在点前面一点的值, 用途是当是一条很宽的线条

TCOLOR值与RGB值的互相转换 获取任意一点颜色值 将JPEG格式文件转化为WINDOWS墙纸 将图像从BMP格式转换为JPG格式 实现图像的淡入淡出 实现图像的翻转-TCOLOR value and RGB value of each converted to obtain the color value at any point into a JPEG format file WINDOWS wallpaper images from BMP format to JP

颜色吸管，可以拾取你所取得颜色的十六位值-Straw color, you can pick the color you get sixteen values