欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 请教版主类的私有成员的问题

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有6384人关注过本帖树形打印复制链接

主题：请教版主类的私有成员的问题
帅哥哟，离线，有人找我吗？
volersky
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：109 积分：764 威望：0 精华：0 注册：2010/6/27 14:04:16 		请教版主类的私有成员的问题  发帖心情 Post By：2010/9/9 22:17:30 [只看该作者]

新建框架QS,在其paint事件中加入

 

 
    dim bbcca,mGrid
    Set mGrid=QS.ActiveGrid()
    Set bbcca=New testClass
     bbcca.Create(mGrid)

 

自定义类testClass:
Private myGrid

Sub Create(Grid)
   myGrid=Grid
   myGrid.DrawText 100,100,Cstr(222222222),rgb(255,255,0)
End Sub

当我把框架里的Grid对象传过来时，为什么这里的编译通不过，谢谢
 
myGrid.DrawText 100,100,Cstr(222222222),rgb(255,255,0)
 说是不支持这个方法

 

当改为以下时:

Private myGrid

Sub Create(Grid)
   Grid.DrawText 100,100,Cstr(222222222),rgb(255,255,0)
End Sub

 

可以通过!

 

请版主大大指教

 
[此贴子已经被作者于2010-9-9 22:31:38编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
admin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32 		  发帖心情 Post By：2010/9/9 22:21:27 [只看该作者]

请给出一个我们可以编译运行的版本，这样方便我们直接帮你改进

 回到顶部
帅哥哟，离线，有人找我吗？
wattwei
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：574 积分：3167 威望：0 精华：0 注册：2009/10/10 11:13:01 		  发帖心情 Post By：2010/9/9 22:36:46 [只看该作者]

 代码乱乱的。vbs的类遵循面向对象规范，没有什么特殊的。

 回到顶部
帅哥哟，离线，有人找我吗？
admin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32 		  发帖心情 Post By：2010/9/9 22:37:13 [只看该作者]

那你就使用 Grid.DrawText 100,100,Cstr(222222222),rgb(255,255,0)这样不就可以了嘛？

在类内部变量中保存使用一个Grid是有风险的，因为框架可能随时被关掉。
 回到顶部
帅哥哟，离线，有人找我吗？
volersky
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：109 积分：764 威望：0 精华：0 注册：2010/6/27 14:04:16 		自行解决了  发帖心情 Post By：2010/9/9 22:38:31 [只看该作者]

原来对象的赋值要采用Set 来赋值

上面的myGrid=Grid，用Set myGrid=Grid就全部ok了!

 

谢谢两位管理员
 回到顶部
帅哥哟，离线，有人找我吗？
wattwei
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：574 积分：3167 威望：0 精华：0 注册：2009/10/10 11:13:01 		  发帖心情 Post By：2010/9/9 22:42:15 [只看该作者]

函数传递参数是对象实例时，使用引用方式ByRef

 回到顶部
帅哥哟，离线，有人找我吗？
wattwei
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：574 积分：3167 威望：0 精华：0 注册：2009/10/10 11:13:01 		  发帖心情 Post By：2010/9/9 22:46:05 [只看该作者]

如果不使用引用方式，这样试试
Set myGrid=Grid，没有Set好像是不行滴

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.15625 秒, 5 次数据查询