VB6 следи следата на мишката или права линия във формуляр
- Случайни линии
- Прави линии
- кодиране на стоките
Ето някои съвети за това как можете да наблюдавате някои линии в права линия във формуляр
Случайни линии
За да следвате тази песен, кликнете върху формата, натиснете и задръжте десния бутон и се придвижете.Освободете бутона, за да приключите.
Прави линии
За да начертаете прави линии, щракнете върху формата, от началната точка и натиснете и задръжте бутона, преместете показалеца на мишката до точката на местоназначение и отпуснете бутона.кодиране на стоките
За тази функция преместете кода, както е показано по-долу.Може да се използва за всеки контрол, който съдържа hdc.
Опция Изрично
Const PS_SOLID = 0
Const Epp = 10 'размер на линията
Частен тип POINTAPI
X толкова дълго
Y толкова дълго
Тип край
Частна декларираща функция DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Частна декларираща функция SelectObject Lib "gdi32" (ByVal hdc Дълъг, ByVal hObject толкова дълъг)
Функция за лично деклариране CreatePen Lib "gdi32" (ByVal nPenStyle Long, ByVal nWidth Long, ByVal crColor Long)
Частна декларираща функция LineTo Lib "gdi32" (ByVal hdc Дълъг, ByVal X толкова дълъг, ByVal Y толкова дълъг)
Частна декларираща функция MoveToEx Lib "gdi32" (ByVal hdc Long, _
ByVal X толкова дълъг, ByVal Y толкова дълъг, lpPoint As Any) По-дълго
Частно подчинено Form_MouseDown (бутон като целочислено, Shift As Integer, X като единично, Y като единично)
DeleteObject SelectObject (Me.hdc, CreatePen (PS_SOLID, Epp, RGB (0, 255, 0)))
MoveToEx Me.hdc, X, Y, & H0
Край Под
- Поставете кода във Form_MouseUp за права линия
'без ред >> Ако бутон 1 тогава излезете под
Частно подчинено Form_MouseMove (бутон Като цяло число, Shift As Integer, X като единично, Y като единично)
Ако бутон 1 тогава излезте от под
DeleteObject SelectObject (Me.hdc, CreatePen (PS_SOLID, Epp, RGB (0, 255, 0)))
Линия към Me.hdc, X, Y
Me.Refresh
Край Под