Question

vb 画直线的问题 高手帮帮忙

Private Sub Command2_Click()
XH = Label6.Caption
If XH = 1 Then
fx = 0: fy = 0
ElseIf XH >= 2 Then
fx = x: fy = y
End If
x = Val(Text1) '* 0.005
y = Val(Text2) '* 0.01
If Me.Combo1.ListIndex = 0 Then
Picture1.Line (fx, fy)-(x, y)
Picture1.PSet (x, y), vbCyan
Picture1.PSet (fx, fy), vbCyan
Picture1.CurrentX = x: Picture1.CurrentY = y: Picture1.Print "(" & x & "," & y & ")"
Picture1.CurrentX = fx: Picture1.CurrentY = fy: Picture1.Print "(" & fx & "," & fy & ")"
End If
Picture1.DrawWidth = 2
XH = XH + 1
Label6.Caption = XH

End Sub
上面是我的一个程序 要求是第一次点的时候 是原点作为起点坐标 第二次点的时候 是以第一次的终点坐标为起点
但是我第二次得时候老是以原点为起点 这是怎么回事啊？ 标签caption默认为1

Answer 1

程序最前面加上这一句：
Dim x, y As Integer

为什么不按我的方法试一下？只要把Dim x, y As Integer 这个定义放在程序的最顶端，在Private Sub Command2_Click()之前。
你的程序问题出在，每次按Command2按钮后，x,y的初始值都为0，所以永远从原点开始划线，只有把变量定义放到模块外面，这个变量中上次Command2事件中得到的值才能保存。

Answer 2

Picture1.Line (fx, fy)-(x, y)
改为 Picture1.Line -(x, y)
line默认就是上次的坐标为起点的

追问

还 是不行啊
第一次起点在y轴上了

追答

第一次，没有规定初始点，默认是（0，0）
你在一开始先初始化好了
Picture1.CurrentX ＝fx
Picture1.Currenty = fy