240144885 发表于 2007-3-20 10:00:00

如何读取窗体上图形的坐标(例如直线的两端点的坐标)

<p>我以前用VB做了个画图形的控件，可以从数据库读数据，然后根据不同的要求从数据库读数据可以直线，圆等图形。现在我想完善下，如何读取控件上已有的图形，然后把相关的数据保存到数据库。希望高手能够帮忙！</p>

iq0050 发表于 2007-3-20 17:23:00

<p>dim frmDraw as Form&nbsp;&nbsp; ' 包容器对象,假定本例中为窗体</p><p>dim AnyObject as Control,Ps(2) as double,Pe(2) as double</p><p>for each AnyObjet in frmDraw.Controls</p><p>&nbsp;&nbsp;&nbsp; if "Line"=TypeName(AnyObject) then</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ps(0)=anyobject.x1:ps(1)=anyobject.y1</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;pe(0)=anyobject.x2:pe(1)=anyobject.y2</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 加入存入数据库代码</p><p>&nbsp;&nbsp;&nbsp;&nbsp; endif</p><p>&nbsp;&nbsp;&nbsp;&nbsp; if "Shape"=typename(Anyobject) then</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Select case Anyobject.shape</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case 0</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 读取控件的左上角点,宽高.计算出相应所要存入数据库的数据</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 存入数据库存(以下同本步骤)</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case 1&nbsp; </p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;case 2</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; case 3</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end select</p><p>&nbsp;&nbsp;&nbsp;&nbsp; end if</p><p>next &nbsp;&nbsp; </p><p>不知道要的是不是这个代码.本代码直接在这里写的,没经测试.</p>

兰州人 发表于 2007-3-21 21:20:00

<p>获取直线起点和终点坐标数据</p><p>&nbsp; Dim ll As AcadLine<br/>&nbsp; Debug.Print ll.StartPoint, ll.EndPoint</p>
页: [1]
查看完整版本: 如何读取窗体上图形的坐标(例如直线的两端点的坐标)