2002C Games #9442

Crosshair Mouse

Rob

★★★★★

4.8 · பதிவிறக்கங்கள்: 2,341

What i did was Make the Code Much Shorter, Went from 25 Lines of Code, to 9 Lines of code.. ORIGINALY DONE BY: thuggish_187

AI சுருக்கம்: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

மூலக் குறியீடு

Private Sub Form_Load()
 Me.ScaleMode = 3 'Pixel Mode
 Me.MousePointer = 2 'Set Mouse Pointer to Cross
End Sub
Private Sub Form_MouseMove(Button As Integer, _ Shift As Integer, X As Single, Y As Single)
 Cls
 Me.Circle (X, Y), 25 'Draw Circle
 Me.Line (0, Y)-(Me.Width, Y) 
 Me.Line (X, 0)-(X, Me.Height) 
 Me.CurrentX = X + 35
 Me.CurrentY = Y - 25
 Me.Print "X: " & X & " Y: " & Y 
End Sub

அசல் கருத்துகள் (3)

வேபேக் மெஷினிலிருந்து (Wayback Machine) மீட்டெடுக்கப்பட்டது