现状:研发只提供一个图像及图像识别控件输出的一个文本文档内容,
文档里面只有左上角X、Y坐标和右下角X、Y坐标及这个区域的字符串记录。目的:因没有控件源码,现要验证输出的文本文档中的内容是否正确。需求:
打开一幅图片(BMP格式),输入左上角X、Y坐标和右下角X、Y坐标,就可在图像上以这两个坐标点
画出一个框。1、有无软件可实现此功能,
如:AutoCAD,我试了下,但图放大了很大,不知缩小到什么程度才能和文本文档中的坐标点对上;
图一放大,坐标位置就会变了,应该怎样来解决这个问题。2、如果没有什么软件有此功能,愿大侠能提供点源码,在此十分感谢!
文档里面只有左上角X、Y坐标和右下角X、Y坐标及这个区域的字符串记录。目的:因没有控件源码,现要验证输出的文本文档中的内容是否正确。需求:
打开一幅图片(BMP格式),输入左上角X、Y坐标和右下角X、Y坐标,就可在图像上以这两个坐标点
画出一个框。1、有无软件可实现此功能,
如:AutoCAD,我试了下,但图放大了很大,不知缩小到什么程度才能和文本文档中的坐标点对上;
图一放大,坐标位置就会变了,应该怎样来解决这个问题。2、如果没有什么软件有此功能,愿大侠能提供点源码,在此十分感谢!
On Error GoTo errhandle
Dim SM As Integer '暂时保存原有ScaleMode,处理后还原
SM = Pic.ScaleMode
Pic.AutoRedraw = True
Pic.ScaleMode = 3
Set Pic.Picture = LoadPicture(BMPFile)
Pic.Line (X1, Y1)-(X2, Y2), vbRed, B
Pic.ScaleMode = SM
Exit Sub
errhandle:
End SubPrivate Sub Command1_Click()
test Me.Picture1, "C:\test.bmp", 10, 10, 100, 100
End Sub