Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
General. Dim AnchorX As Integer 'Начальная точка
Dim AnchorX As Integer 'Начальная точка Dim AnchorY As Integer 'Начальная точка
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) AnchorX = X AnchorY = Y End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Line (AnchorX, AnchorY)-(X, Y) End Sub При нажатии кнопки мыши на форме в переменных AnchorX и AnchorY будут сохранены коодинаты точки нажатия. При отпускании кнопки в другом месте формы будет нарисована линия от начальной точки до конечной. Запустите программу и проделайте это.
5. Теперь, чтобы рисуемую линию можно было видеть в процессе рисования, надо добавить и обработать процедуру MouseMove:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Line (AnchorX, AnchorY)-(X, Y) End Sub
Запустите программу. Теперь, как только Вы попали мышью на форму - начинается рисование веера линий от левого верхнего угла (координаты 0, 0). При щелчке кнопки мыши начальные координаты веера изменятся на текущие. Попробуйте. Линии рисуются безотрывно.
6. Измените код:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button Then Me.Line (AnchorX, AnchorY)-(X, Y) End Sub
Теперь только при нажатой кнопке будет рисоваться веер линий.
7.
Dim OldX As Integer Dim OldY As Integer
Затем в событии MouseMove добавьте:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button Then
|