//单个字符或者字符串截图,确定大小坐标为左上角(x1,y1),右下角(x2,y2)
//对字符串进行透明图处理,保证字符为单色,假定为白色(FFFFFF),透明底色为黑色(000000)
For y = y1 To y2
For x = x1 To x2
IfColor x, y, "ffffff", 0 Then
点阵 = 点阵 & "1"
Else
点阵 = 点阵&"0"
End If
Next
Next