求一段vb代码，初学者谢谢

就是两条垂直线，鼠标随着两条垂直线的交点移动，两条垂直线随着移动，但两条线始终保持垂直

解决方案 »

  1.   

    界面上放一个picture box 命名为picture1 ,然后粘贴下面的代码Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
        Picture1.Cls
        Picture1.Line (X - 100, Y)-(X + 100, Y), vbRed
        Picture1.Line (X, Y - 100)-(X, Y + 100), vbBlue
    End Sub
      

  2.   

    你说的这个，叫做十字光标，或者叫橡皮筋技术 ，好了，关键字给你了，自己google吧