Pointcoord
 
查询Draw在图形模式下的笔位置

语法

Declare Function PointCoord( ByVal func As Integer ) As Single
result = PointCoord( func )

说明

PointCoord功能可用于以图形模式查询Draw笔的x和y位置。result 值取决于通过的func 值:

func值:返回值:
0x物理坐标,与PMap(PointCoord(2),0)相同)
1y物理坐标,与PMap(PointCoord(3))相同,1)
2x视图坐标
3y视图坐标


例子

Screen 12

Print "---默认窗口坐标映射---"
Print "绘制笔位置,默认(0,0):"
Print "物理:", PointCoord( 0 ), PointCoord( 1 )
Print "视图:", PointCoord( 2 ), PointCoord( 3 )

Draw "BM 50,50"
Print "拉笔笔位置后,移动到(50,50):"
Print "物理:", PointCoord( 0 ), PointCoord( 1 )
Print "视图:", PointCoord( 2 ), PointCoord( 3 )

Print "---改变窗口坐标映射---"
Window Screen (-100, -100) - (100, 100)

Draw "BM 0,0"
Print "绘制笔位置后,移动到(0,0):"
Print "物理:", PointCoord( 0 ), PointCoord( 1 )
Print "视图:", PointCoord( 2 ), PointCoord( 3 )

Draw "BM 50,50"
Print "拉笔笔位置后,移动到(50,50):"
Print "物理:", PointCoord( 0 ), PointCoord( 1 )
Print "视图:", PointCoord( 2 ), PointCoord( 3 )

Sleep


与QB差别

  • 新的FreeBASIC

参考