标题：请问：画线工具中的“直线”工具画出的直线，它的对象的属性和方法如何引用？

 

这是我弄几天的一些代码，目前只能做到画一根直线：

Dim cc1,cc2,price3
Set Grid = Technic.GetGridByName("Main")
Sub Technic_CursorMove(Grid, Index, x, y)
    cc1=x
    cc2=y
End Sub

Sub Technic_Click()
    dim Date
    dim Values
    call Grid.ValueByPoint(cc1,cc2,Date,Values,true)
    Grid.DrawLine 1, cc2, Grid.Width, cc2,&H00FFFF&, 1, 0
    price3=Values
End Sub

Sub Technic_Paint()
    Grid.DrawLine 1, Grid.PriceToPels(price3), Grid.Width, Grid.PriceToPels(price3),&H00FFFF&, 1, 0
End Sub

 

想用直线开发一些小应用，用Grid.drawline(...)太麻烦，请指点。

 

画线工具中的“直线”工具画出的直线，它的对象的属性和方法如何引用？

每小时关注一下，等待回复。。。。。

如果不方便公开，换个问法吧。我自已用代码画的直线，如何使它成为一个对象，给它加属性和方法？

先自已一步一步来，插入类模块Cdrawline;

 

对像目前无法引用的，暂时你只能用划线自己来解决了

请问管理员：1.如何在Grid中用Drawline()画直线，并能用鼠标点选它并且拖动？请给个简单例子。

                 2.自建类模块功能能否使用？也请给个说明和例子。

 

                  谢谢！