我想把MSFLEXGRID中的数据用曲线显示出来，没有用picture，在form上直接显示可以吗？

[samelie]

我想把MSFLEXGRID中的数据用曲线显示出来，没有用picture控件，在另一个form上直接显示，我想应该是可以的，但是为什么没有图像，是不是没有得到那个form的hdc句柄啊？
如何得到呢？
谁可以帮帮我。3x

[samelie]

我现在改成有picture控件的，先画一条看看，可是没有显示？？？
大侠看看


DrawStyle = vbSolid
x(0) = 0
MSFlexGrid1.Row = 1
MSFlexGrid1.Col = 1
y(0) = 7680 - 60 * MSFlexGrid1.Text
apt(0).x = ScaleX(x(0), vbTwips, vbPixels)
apt(0).y = ScaleY(y(0), vbTwips, vbPixels)

x(1) = 1160
MSFlexGrid1.Row = 2
MSFlexGrid1.Col = 1
y(1) = 7680 - 60 * MSFlexGrid1.Text
apt(1).x = ScaleX(x(1), vbTwips, vbPixels)
apt(1).y = ScaleY(y(1), vbTwips, vbPixels)

hdc = frmCurve.Picture1.hdc
MoveTo hdc, apt(0).x, apt(0).y '回到上一点
LineTo hdc, apt(1).x, apt(1).y '连到下一点

frmCurve.Show vbModal, Me

[射天狼]

Private Sub Form_Paint()
Me.Line (100, 100)-(500, 500)
End Sub

[samelie]

我在另一个form上显示，可能问题出在这里
谁可以告诉我要在一个新的form上画曲线怎么做？

我试了
Private Sub Form_Paint()
Me.Line (100, 100)-(500, 500)
End Sub
是画在原来的form上

Private Sub frmCurve_Paint()
frmCurve.Show vbModal, Me
frmCurve.Line (100, 100)-(500, 500)
End Sub
没反应？？教教我

[samelie]

我顶

[samelie]

为什么没有人理我?

[dnvodc]

把你的代码放在Form_Click里试

[dnvodc]

Private Sub Form_Click()
Line (50, 50)-(5000, 50), , BF
End Sub

[samelie]

不理我哦5555
搞一个“显示曲线”的按钮算了。哪位大侠有直接在新跳出的form上画曲线的办法(form跳出时曲线在form上)，后辈只会按按钮生成曲线的方法。教教后辈！不盛感激！

[of123]

Private Sub frmCurve_Paint()
frmCurve.Line (100, 100)-(500, 500)
frmCurve.Show vbModal, Me
End Sub

你用模式方式打开新窗口，后面的代码就要等到窗口关闭才执行了。

[samelie]

Private Sub frmCurve_Paint()
frmCurve.Line (100, 100)-(500, 500)
frmCurve.Show vbModal, Me
End Sub

我试了怎么不行，大侠，哪里有问题

[samelie]

Line (50, 50)-(5000, 50), , BF

bf参数是什么意思？

[of123]

Private Sub Command1_Click()
frmCurve.Line (100, 100)-(500, 500)
frmCurve.Show vbModal, Me
End Sub

在第一个窗体中执行。