求VB PictureBox坐標與GDI坐標的轉換關系

Dim?picX,?picY,?x1,?y1,?x2,?y2,?gdiX,?gdiY

picX?=?0?'要轉換的Picture1坐標X

picY?=?0?'要轉換的Picture1坐標Y

x1?=?Picture1.ScaleLeft

y1?=?Picture1.ScaleTop

x2?=?Picture1.ScaleLeft?+?Picture1.ScaleWidth

y2?=?Picture1.ScaleTop?+?Picture1.ScaleHeight?'記錄原先的坐標系統

Picture1.ScaleMode?=?3?'坐標系統設為像素

gdiX?=?Round((picX?-?x1)?/?(x2?-?x1)?*?Picture1.ScaleWidth)

gdiY?=?Round((picY?-?y1)?/?(y2?-?y1)?*?Picture1.ScaleHeight)

MsgBox?"Picture1的坐標("?&?picX?&?","?&?picY?&?")轉為GDI坐標是("?&?gdiX?&?","?&?gdiY?&?")"

Picture1.Scale?(x1,?y1)-(x2,?y2)?'改回原先的坐標系統

上一篇:用電腦給Arduino開發板燒固件，電腦提示如下。這是怎麽回事？

下一篇:知道蛋白質的分子量和等電點,如何純化處理（分子質量為80kd，pl=6.3）