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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → [求助]求教,VBA中如何实现,通过窗体设定一个点位后,在框架图上画条直线。

   

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


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

主题:[求助]求教,VBA中如何实现,通过窗体设定一个点位后,在框架图上画条直线。

帅哥哟,离线,有人找我吗?
yluck
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:22 积分:90 威望:0 精华:0 注册:2012/3/5 15:58:36
[求助]求教,VBA中如何实现,通过窗体设定一个点位后,在框架图上画条直线。  发帖心情 Post By:2012/10/17 14:22:01 [只看该作者]

为了看盘方便,每天早上会想好当天的高低位置,想用VBA做个简单的工具。
在窗体中选择好品种和点位之后,立即显示此品种的分时图(框架中已经配置好),并且在分时图上画一条此点位的直线,作为警示之用。

其他的都会了,就是画线这部分遇到困难,请高人和管理员指导,谢谢。

 回到顶部
帅哥哟,离线,有人找我吗?
yluck
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:22 积分:90 威望:0 精华:0 注册:2012/3/5 15:58:36
  发帖心情 Post By:2012/10/17 14:44:42 [只看该作者]

补充,比如在程序中设置2300,点执行按钮,就直接在配置好的框架图上画条2300点位的直线。

 回到顶部
帅哥哟,离线,有人找我吗?
rushtaotao
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 czt
等级:蜘蛛侠 帖子:1445 积分:6114 威望:0 精华:3 注册:2012/1/16 10:31:19
  发帖心情 Post By:2012/10/17 14:46:16 [只看该作者]

稍后附上代码

 回到顶部
帅哥哟,离线,有人找我吗?
rushtaotao
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 czt
等级:蜘蛛侠 帖子:1445 积分:6114 威望:0 精华:3 注册:2012/1/16 10:31:19
  发帖心情 Post By:2012/10/17 16:43:47 [只看该作者]

http://www.weistock.com/bbs/dispbbs.asp?BoardID=5&ID=5960

 回到顶部
帅哥哟,离线,有人找我吗?
yluck
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:22 积分:90 威望:0 精华:0 注册:2012/3/5 15:58:36
  发帖心情 Post By:2012/10/17 16:54:19 [只看该作者]

这帖子我也看到了,放在frame的paint事件里。不过总是搞不定,麻烦能否贴下代码?谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
rushtaotao
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 czt
等级:蜘蛛侠 帖子:1445 积分:6114 威望:0 精华:3 注册:2012/1/16 10:31:19
  发帖心情 Post By:2012/10/17 16:55:38 [只看该作者]


Sub UserForm1_CommandButton1_Click()
    Set  Grid = Frame1.GetGridByName("Window1")
    call grid.drawline(10,10,100,100,colorgreen)
End Sub

 回到顶部
帅哥哟,离线,有人找我吗?
yluck
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:22 积分:90 威望:0 精华:0 注册:2012/3/5 15:58:36
  发帖心情 Post By:2012/10/18 14:58:38 [只看该作者]

不是说要放到paint 事件中才能一直保持着吗?
请教这事件中代码。而且您这里是坐标位置,能否直接使用点位呢?

 回到顶部
帅哥哟,离线,有人找我吗?
王锋
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:罗宾汉 帖子:11808 积分:20695 威望:0 精华:10 注册:2009/8/18 8:15:13
  发帖心情 Post By:2012/10/18 15:49:37 [只看该作者]

可以的,自己用代码过去试试不就知道了,如果代码的执行上有问题,将代码贴过来我们帮你看看



金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部