首先我在EXCEL里取数据 例如:
Do While AppExcel.Worksheets(1).Cells(k, 1) <> Empty & AppExcel.Worksheets(1).Cells(k, 2) <> Empty '遍历Excel的条件语句
temp1 = AppExcel.Worksheets(1).Cells(k, 1)
temp2 = AppExcel.Worksheets(1).Cells(k, 2)

随后我在PICBOX里画2条直线,实现双移动:
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line1.X1 = X
Line1.X2 = X
Line1.Y1 = 0
Line1.Y2 = Height
Line2.X1 = 0
Line2.X2 = Width
Line2.Y1 = Y
Line2.Y2 = Y
End Sub

要实现的效果,在PICBOX里任意移动,当移动到EXCEL里取的点时,2条直线变色(随便什么色) 最好做到在2条直线的交叉点旁显示(XXX,YYY)坐标！
高手们帮帮小女的忙,我是初学者,貌似看起来不是很难!居然那个论坛一个都不会~!

这位兄弟,主要还是做变色问题,至于你说的小女我实在不懂~麻烦写下代码,谢谢!

全部代码上穿了,前面我都做好了,只后要的效果就是把曲线绘制出来后,有小圆点,当相交线移动到小圆点的地方变色,而且能够显示(XX,YY)坐标
后面一个效果做不出就算了,拜托!

难道这个论坛里的人也全军覆没吗?

你下载我的文件运行就知道了,随便创建个EXCEL文件,然后画图,我在EXCEL里取的数据都用圆点表示了,我要的是我的直线移动到这圆点上时颜色发生改变!

6楼的哥哥,那不要变色了,只要把这圆点的值取出,现实在msgBOX里如何做?这样应该方便点吧

取点是取EXCEL里的,圆点就是默认的圆圈,出现的位置就是从EXCEL里调用的,例如(3,5)这个坐标就是一个点! 只是我现在加载了2条直线,想移动到这点上后MOUSEDOWN后 把这点的坐标显示在MSGBOX里 谢谢

你在EXCEL文挡的前2排随便输入点数据就看的到画图了~~~~~~~~~~~~要数字

好的谢谢,之前我说的那个MOUSEDOWN的效果我做出来了,但还是想和您讨论下直线变色问题,也就是移动到那一点上产生的,换句通俗的话来说,直线会自动依附到点上(点是EXCEL里取的值)