【求助】老马，你看看这个代码呗

ok100fen · 发表于 2009-5-12 00:43:33

Option Explicit Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As Long Private m_G As Byte
Public Function GetCode(pic1 As PictureBox) As String Dim R As Byte Dim G As Byte Dim B As Byte
Dim x As Long '起点坐标X Dim y As Long '起点坐标Y Dim x1 As Long '终点坐标X Dim y1 As Long '终点坐标y
Dim iy As Long '高变量 Dim ix As Long '宽变量
Dim pix() As Boolean '存放所有象素 ReDim pix(pic1.ScaleWidth - 1, pic1.ScaleHeight - 1) As Boolean '重定义数组
'二值化图片 For iy = 0 To pic1.ScaleHeight - 1     For ix = 0 To pic1.ScaleWidth - 1         Call GetRGB(GetPixel(pic1.hDC, ix, iy), R, G, B)         If G <= m_G Then            pix(ix, iy) = True         Else            pix(ix, iy) = False         End If     Next Next '--------------------------------取字1 x = GetFontStartX(pix(), 0) x1 = GetFontEndX(pix(), x) If (x1 - x) > 15 Then x1 = x + 12 y = GetFontStartY(pix(), 0, x, x1) y1 = GetFontEndY(pix(), y, x, x1) GetCode = GetCode & GetNum(pix(), x1, y1, x, y) End Function
 
 
Private Sub GetRGB(ByVal Color As Long, ByRef R As Byte, ByRef G As Byte, ByRef B As Byte, Optional ByRef A As Byte)     A = CByte((Color And &HFF000000) / 2 ^ (8 * 3))     R = CByte((Color And &HFF) / 2 ^ (8 * 0))     G = CByte(((Color And &HFF00) / 2 ^ (8 * 1)) And &HFF)     B = CByte((Color And &HFF0000) / 2 ^ (8 * 2)) End Sub
'取起点X坐标 Private Function GetFontStartX(ByRef pix() As Boolean, ByRef sX As Long) As Long Dim ix As Long Dim iy As Long     For ix = sX To UBound(pix(), 1)         For iy = 0 To UBound(pix(), 2)             If pix(ix, iy) Then                 GetFontStartX = ix                 Exit Function             End If         Next     Next End Function
 
Private Function GetNum(pix() As Boolean, x, y, x1, y1) As String     Dim s As String     Dim ix As Long     Dim iy As Long     For iy = y1 To y - 1         For ix = x1 To x - 1             s = s & Abs(CInt(pix(ix, iy)))         Next     Next         GetNum = GetPixModNum(s) End Function 
 


 
 
就这句，其中getcode表示什么意思？我就这句不明白了，谢谢老马~~~~
GetCode = GetCode & GetNum(pix(), x1, y1, x, y)

[此贴子已经被作者于2009-5-12 0:45:51编辑过]