leaflet plugin, leaflet.draw(annotation)
我使用Dim shrink_x, shrink_x As Integer ' play with them
Dim oRecOriginal, oRecFinal As WebSupergoo.ABCpdf7.XRect
oRecOriginal = oDocOriginal.Rect
oRecFinal = oDocFinal.Rect
oDocFinal.Rect.Inset(shrink_x, shrink_x) ' reduce sheet
oDocFinal.AddImageDoc(oDocOriginal, 1, oRecOriginal) ' add reduced sheet
来绘制圆形,直线,矩形等注释,但是当父svg / div的宽度发生变化时,注释将无法响应正确的位置,因此可以传单。画画,做出回应