vb隨鼠標移動的豎線如何實現?

妳意思是畫壹條跟隨鼠標的熱線吧？把代碼拷貝進去看看，雙擊鼠標來切換有無熱線。

Dim?oldX

Dim?oldT?As?Single,?oldB?As?Single

Private?Sub?DrawLine(X?As?Single)

If?Not?IsEmpty(oldX)?Then?Me.Line?(oldX,?0)-(oldX,?oldB),?vbRed:?oldX?=?Empty

If?HasLine?Then

oldB?=?Me.ScaleHeight

Me.Line?(X,?0)-(X,?oldB),?vbRed

oldX?=?X

End?If

End?Sub

Private?Sub?Form_DblClick()

HasLine?=?Not?HasLine

End?Sub

Private?Sub?Form_Load()

Me.AutoRedraw?=?True

Me.DrawMode?=?vbNotXorPen

End?Sub

Private?Sub?Form_MouseMove(Button?As?Integer,?Shift?As?Integer,?X?As?Single,?Y?As?Single)

DrawLine?X

End?Sub