文件名称:Raster_vb
- 所属分类：
- 其它资源
- 资源属性：
- [Windows] [Visual C] [Basic/ASP] [源码]
- 上传时间：
- 2008-10-13
- 文件大小：
- 3.13kb
- 下载次数：
- 0次
- 提 供 者：
- z
- 相关连接：
- 无
- 下载说明：
- 别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容均来自于网络，请自行研究使用
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) 取得当前所在点前面一点的值, 用途是当是一条很宽的线条把图象围起来时不会误判
End If
If CurrentColor = RGB(A, B, C) And TwoColor <> CurrentColor Then 当遇到一条线条时
MaskLine = True MaskLine变量赋值为True
LineCounts = 0 LineCounts作用是计算剩余线条的数量
For k = j + 1 To PicMain.Width 开始向后循环, 计算线条的数量
OtherColor = GetPixel(PicMain.hdc, k, i) 取得颜色值
If k < PicMain.Width Then
OtherTwoColor = GetPixel(PicMain.hdc, k + 1, i) 取得前面一点的值, 用途是当是一条很宽的线条把图象围起来时不会误判-For i = 0 To PicMain.Height MaskLine = False For variable initialization MaskLine j = 0 To PicMain.Width NR98117 tColor = GetPixel (PicMain.hdc, j, i) made the current locations of the color value If j
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) 取得当前所在点前面一点的值, 用途是当是一条很宽的线条把图象围起来时不会误判
End If
If CurrentColor = RGB(A, B, C) And TwoColor <> CurrentColor Then 当遇到一条线条时
MaskLine = True MaskLine变量赋值为True
LineCounts = 0 LineCounts作用是计算剩余线条的数量
For k = j + 1 To PicMain.Width 开始向后循环, 计算线条的数量
OtherColor = GetPixel(PicMain.hdc, k, i) 取得颜色值
If k < PicMain.Width Then
OtherTwoColor = GetPixel(PicMain.hdc, k + 1, i) 取得前面一点的值, 用途是当是一条很宽的线条把图象围起来时不会误判-For i = 0 To PicMain.Height MaskLine = False For variable initialization MaskLine j = 0 To PicMain.Width NR98117 tColor = GetPixel (PicMain.hdc, j, i) made the current locations of the color value If j
(系统自动生成,下载前可以参看下载内容)
下载文件列表
压缩包 : 103244841raster_vb.rar 列表 Raster_vb Raster_vb\Raster_vb.vbw Raster_vb\MSSCCPRJ.SCC Raster_vb\Raster_vb.frm Raster_vb\Module_Raster_vb.bas Raster_vb\Raster_vb.vbp