以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  请问：画线工具中的“直线”工具画出的直线，它的对象的属性和方法如何引用？  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=30934)
--  作者：internethhhh
--  发布时间：2012/11/27 13:08:10
--  请问：画线工具中的“直线”工具画出的直线，它的对象的属性和方法如何引用？

 

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

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(...)太麻烦，请指点。

 

画线工具中的“直线”工具画出的直线，它的对象的属性和方法如何引用？
--  作者：internethhhh
--  发布时间：2012/11/27 13:11:40
--  
每小时关注一下，等待回复。。。。。
--  作者：internethhhh
--  发布时间：2012/11/27 13:26:22
--  
如果不方便公开，换个问法吧。我自已用代码画的直线，如何使它成为一个对象，给它加属性和方法？
--  作者：internethhhh
--  发布时间：2012/11/27 14:12:43
--  

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

 
--  作者：admin
--  发布时间：2012/11/27 16:06:43
--  
对像目前无法引用的，暂时你只能用划线自己来解决了
--  作者：internethhhh
--  发布时间：2012/11/30 9:27:48
--  回复：（admin）对像目前无法引用的，暂时你只能用划线...

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

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

 

                  谢谢！