Question

vb划直线问题

咳，上次提问无满意答案，浪费我40分，这次再来。主要是设计一个vb程序，在一个picturebox中点击获得几个点，并同时连接各点形成一条折线，然后选中某个点并拖动，同时也要显示拖动后折线的变化，最好就是能在鼠标旁边显示鼠标的坐标（不知道用一个label能不能实现）。难点在于不知道如何选中点并拖动，想了半天没头绪，望各位大侠能指点一二~~
能给出源码最好，要多少分都行，大大的给，嫌烦的话给个大致思路也行，我自己再去琢磨琢磨，拜托各位了~~

Answer 1

在一个picturebox（Picture1） 中加入一个 line1控件和一个label1控件，拖动label1
代码如下：
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Drag 1
End Sub
Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Drag 2
End Sub
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
If X > 0 Then Line1.X2 = X
If Y > 0 Then Line1.Y2 = Y
If X > 0 Then Label1.Left = X
If Y > 0 Then Label1.Top = Y
Label1 = Label1.Left & " " & Label1.Top
End Sub

Answer 2

要选中点,那一点就就必须是一个对象...

vb默认画出来的图都是点阵的,可能没法选定,你还是考虑用其他对线替换点吧...这样一来每次移动点,要重新显示线就不得不连续刷新picturebox里的内容...

具体的我没做过,只是一点建议...