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

240144885

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

iq0050

dim frmDraw as Form   ' 包容器对象,假定本例中为窗体

dim AnyObject as Control,Ps(2) as double,Pe(2) as double

for each AnyObjet in frmDraw.Controls

    if "Line"=TypeName(AnyObject) then

        ps(0)=anyobject.x1:ps(1)=anyobject.y1

        pe(0)=anyobject.x2:pe(1)=anyobject.y2

        ' 加入存入数据库代码

     endif

     if "Shape"=typename(Anyobject) then

         Select case Anyobject.shape

         case 0

             ' 读取控件的左上角点,宽高.计算出相应所要存入数据库的数据

             ' 存入数据库存(以下同本步骤)

         case 1 

         case 2

         case 3

         end select

     end if

next   

不知道要的是不是这个代码.本代码直接在这里写的,没经测试.

兰州人

获取直线起点和终点坐标数据

  Dim ll As AcadLine
  Debug.Print ll.StartPoint, ll.EndPoint