Question

vb 画坐标问题 帮忙解释下代码

Dim sngX As Single '坐标系Y轴与Picture Box左边 距离的单位量
Dim sngY As Single '坐标系Y轴与PictureBox下边距离的单位量
Dim TempScaleHeight As Integer
Dim TempScaleWidth As Integer

TempScaleHeight = objPictureBox.ScaleHeight
TempScaleWidth = objPictureBox.ScaleWidth

objPictureBox.AutoRedraw = True
objPictureBox.Cls
objPictureBox.BackColor=16777215 '网格背景色

sngX = 12 / ((TempScaleWidth \ Screen.TwipsPerPixelX - 24) /intMax_X) '式中12表示Y轴距PictureBox左边为12相素
sngY = 24 / ((TempScaleHeight \ Screen.TwipsPerPixelY - 48) / intMax_Y) '式中24表示X轴距PictureBox下边为24相素objPictureBox.Scale (-sngX, intMax_Y + sngY)-(intMax_X + sngX, -sngY) '左上角的坐标和右下角的坐标 确定坐标系统

objPictureBox.Line (0, 0)-(0, intMax_Y + sngY), 0 '画X轴
objPictureBox.Line (0, 0)-(intMax_X + sngX, 0), 0 '画Y轴
这里的
sngX = 12 / ((TempScaleWidth \ Screen.TwipsPerPixelX-24) /intMax_X)
sngY = 24 / ((TempScaleHeight \ Screen.TwipsPerPixelY - 48) / intMax_Y) 怎么解释 看不懂

Answer 1

（TempScaleWidth \ Screen.TwipsPerPixelX-24)
将Twip单位转化为像素再偏移24个像素，将坐标轴设置为局边界24个像素。

/intMax_X
将坐标系X轴正向，分割成intMax_x个单位
/intMax_Y
将坐标系Y轴正向，分割成intMax_y个单位

12/
坐标轴距左边有多少个单位量（((TempScaleWidth \ Screen.TwipsPerPixelX-24) /intMax_X)） ？