Главная страницаОбратная связьКарта сайта

Как перемещать мышкой вертикальную линую



Dim m_X As Single
Dim m_Drawing As Boolean

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
m_Drawing = True
DrawMode = vbInvert
DrawWidth = 4
m_X = X
Line (m_X, ScaleTop)-(m_X, ScaleHeight)
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not m_Drawing Then Exit Sub
Line (m_X, ScaleTop)-(m_X, ScaleHeight)
m_X = X
Line (m_X, ScaleTop)-(m_X, ScaleHeight)
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
m_Drawing = False
Line (m_X, ScaleTop)-(m_X, ScaleHeight)
End Sub


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Как перемещать мышкой вертикальную линую", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2017 Дискета.info