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

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

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

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

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

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   
不知道要的是不是这个代码.本代码直接在这里写的,没经测试.

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

获取直线起点和终点坐标数据
Dim ll As AcadLine
Debug.Print ll.StartPoint, ll.EndPoint

查看完整版本: 如何读取窗体上图形的坐标(例如直线的两端点的坐标)