以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  VBA窗体怎么在图表中画线啊  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=55852)
--  作者：jianshi2020
--  发布时间：2013/8/28 11:21:44
--  VBA窗体怎么在图表中画线啊
窗体程序中得到比如2335这个价格，然后希望把2335这个价格在图表上画一条直线，请问怎么操作
--  作者：rushtaotao
--  发布时间：2013/8/28 13:47:43
--  

DrawLine 方法

在指定位置绘制直线。

DrawLine(StartX, StartY, EndX, EndY, [Color], [Width], [Style])

StartX,StartY    起始点坐标。

EndX,EndY         结束点坐标

Color             可选参数，颜色值。

Width             可选参数，默认为1。

Style             可选参数，线条风格。0实线 1虚线 2点线 3虚线和点线交替，1－3风格只有Width为1时才有效。



在金字塔的对象方法中找找Gird对象里面有这个方法

建议发帖者静下心来学习，vba编程有个循序渐进的过程的
--  作者：jianshi2020
--  发布时间：2013/8/28 13:59:11
--  


Sub UserForm1_CommandButton1_Click()
    Set  Grid = Frame1.GetGridByName("Window1")
    call grid.drawline(10,10,100,100,colorgreen)
End Sub
 
这是上次从你的回复中找到的代码
FRAME1对象从哪里得到的 啊。
我用Set Grid = Technic.GetGridByName("Main")
却花不了线
--  作者：王锋
--  发布时间：2013/8/28 14:16:31
--  

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

 
--  作者：jianshi2020
--  发布时间：2013/8/28 14:22:44
--  
谢谢，已经可以画出来了，但是图像会闪烁的，怎样解决闪烁的问题啊
--  作者：王锋
--  发布时间：2013/8/28 14:37:58
--  

在事件中绘图闪烁不会很严重的
--  作者：jianshi2020
--  发布时间：2013/8/28 14:42:44
--  

不是，是这样的，我就设置一个按钮，CLICK事件，用过程SUB写的。

当按钮点击的时候，图表上出现一条直线。

可是一秒钟后（也就是行情一刷新）直线立刻消失。

请问这种办法怎么解决 啊？我要让直线在图表上永久保留，直到我想让它消失为止
--  作者：王锋
--  发布时间：2013/8/28 14:46:17
--  
请您仔细好好看看4楼的帖子
--  作者：jianshi2020
--  发布时间：2013/8/28 14:58:03
--  

在一个对象被移动或放大之后，或在一个覆盖该对象的窗体被移开之后，该对象部分或全部暴露时，此事件发生。

 

这是我搜到的paint事件的解释，我想请问下，怎样触发paint事件呢？在窗格程序中
--  作者：王锋
--  发布时间：2013/8/28 14:59:35
--  
你再事件中使用 APPLICTAION.MSGOUT函数输出一些调试信息，自然就明白的