标题：VBA窗体怎么在图表中画线啊

1楼

jianshi2020 发表于：2013/8/28 11:21:44

窗体程序中得到比如2335这个价格，然后希望把2335这个价格在图表上画一条直线，请问怎么操作

2楼

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编程有个循序渐进的过程的

3楼

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")

却花不了线

4楼

王锋发表于：2013/8/28 14:16:31

5楼

jianshi2020 发表于：2013/8/28 14:22:44

谢谢，已经可以画出来了，但是图像会闪烁的，怎样解决闪烁的问题啊

6楼

王锋发表于：2013/8/28 14:37:58

在事件中绘图闪烁不会很严重的

7楼

jianshi2020 发表于：2013/8/28 14:42:44

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

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

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

请问这种办法怎么解决啊？我要让直线在图表上永久保留，直到我想让它消失为止

8楼

王锋发表于：2013/8/28 14:46:17

请您仔细好好看看4楼的帖子

9楼

jianshi2020 发表于：2013/8/28 14:58:03

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

这是我搜到的paint事件的解释，我想请问下，怎样触发paint事件呢？在窗格程序中

10楼

王锋发表于：2013/8/28 14:59:35

你再事件中使用 APPLICTAION.MSGOUT函数输出一些调试信息，自然就明白的

共13 条记录, 每页显示 10 条, 页签: [1] [2]