¿Cómo implementar una línea vertical vb que siga el movimiento del mouse?
Te refieres a dibujar una línea directa que siga el movimiento del mouse, ¿verdad? Copie el código y visualícelo. Haga doble clic con el mouse para cambiar si aparecen las líneas auxiliares.
Dim?HasLine?As?Boolean
Dim?oldX
Dim?oldT?As?Single,?oldB?As?Single
¿Privado?Sub?DrawLine(X?As?Single)
Si?No?IsEmpty(oldX)?Entonces?Me.Line?(oldX,?0)-(oldX,?oldB), ?vbRed:?oldX?=?Empty
Si?HasLine?Then
oldB?=?Me.ScaleHeight
Me.Line?(X,? 0)-(X,?oldB),?vbRed
oldX?=?X
Fin?Si
Fin?Sub
¿Privado?Sub?Form_DblClick()
HasLine?=?Not?HasLine
Fin?Sub
Privado?Sub?Form_Load()
Me.AutoRedraw?=?True
Me.DrawMode?=?vbNotXorPen
Fin?Sub
Privado?Sub?Form_DblClick() p>
HasLine?=? p>
Privado?Sub?Form_MouseMove(Botón?As?Integer, ?Shift?As?Integer, ?X?As?Single, ?Y?As?Single )
DibujarLínea?X
¿Fin?