Το VB6 παρακολουθεί το κομμάτι του ποντικιού ή μια ευθεία γραμμή σε μια φόρμα
- Τυχαίες γραμμές
- Ισιες γραμμές
- Κωδικοποίηση
Ακολουθούν μερικές συμβουλές για το πώς μπορείτε να παρακολουθήσετε ορισμένες γραμμές σε μια ευθεία γραμμή σε μια φόρμα
Τυχαίες γραμμές
Για να ακολουθήσετε το ίχνος του ποντικιού, κάντε κλικ στη φόρμα, πατήστε και κρατήστε πατημένο το δεξί κουμπί και μετακινήστε το.Απελευθερώστε το κουμπί για να ολοκληρώσετε.
Ισιες γραμμές
Για να σχεδιάσετε ευθείες γραμμές, κάντε κλικ στη φόρμα, από το σημείο εκκίνησης και πατήστε και κρατήστε πατημένο το κουμπί, μετακινήστε το δείκτη του ποντικιού στο σημείο προορισμού και αφήστε το κουμπί.Κωδικοποίηση
Για αυτή τη λειτουργία, μετακινήστε τον κώδικα όπως φαίνεται παρακάτω.Μπορεί να χρησιμοποιηθεί σε οποιοδήποτε έλεγχο που περιέχει ένα hdc.
Προαιρετική επιλογή
Const PS_SOLID = 0
Const Epp = μέγεθος 10 'της γραμμής
Ιδιωτικός τύπος POINTAPI
X Όσο καιρό
Y όσο καιρό
Τύπος Τέλους
Ιδιωτική Διακήρυξη Λειτουργία DeleteObject Lib "gdi32" (ByVal hObject όσο Long) όσο καιρό
Ιδιωτική Δηλώστε Λειτουργία SelectObject Lib "gdi32" (ByVal hdc ως μακρύ, ByVal hObject όσο καιρό) όσο Long
Ιδιωτική Δηλώστε τη λειτουργία CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor όσο Long)
Private Declare Λειτουργία LineTo Lib "gdi32" (ByVal hdc ως μακρύ, ByVal X ως μακρύ, ByVal Y όσο καιρό) όσο Long
Ιδιωτική Δηλώστε τη λειτουργία MoveToEx Lib "gdi32" (ByVal hdc As Long, _
ByVal X ως μακρύς, ByVal Y όσο καιρό, lpPoint ως οποιοδήποτε) όσο καιρό
Private Sub Form_MouseDown (πλήκτρο ως ακέραιο, Shift ως ακέραιο, X ως ενιαίο, Y ως ενιαίο)
DeleteObjectΕπιλογήObject (Me.hdc, CreatePen (PS_SOLID, Epp, RGB (0, 255, 0)))
MoveToEx Me.hdc, Χ, Υ και H0
End Sub
'Βάλτε τον κώδικα στο Form_MouseUp για μια ευθεία γραμμή
'χωρίς γραμμή >> Εάν το κουμπί 1 Έπειτα την έξοδο Sub
Private Sub Form_MouseMove (κουμπί ως ακέραιο, Shift ως ακέραιο, X ως ενιαίο, Y ως ενιαίο)
Εάν το πλήκτρο 1 Έπειτα την έξοδο Sub
DeleteObjectΕπιλογήObject (Me.hdc, CreatePen (PS_SOLID, Epp, RGB (0, 255, 0)))
LineTo Me.hdc, Χ, Υ
Me.Refresh
End Sub