커서 위치에 이미지 그리기 Visual Basic

Question

기본적으로 마우스로 1 초 동안 클릭하는 폼이나 그림 상자의 위치에 특정 이미지를 그려 넣기 만하면됩니다. 이미 시도한 코드는 무작위 오프셋으로 그립니다. 그래서 누군가가 나를 안내 할 수 있기를 바랍니다. 감사합니다

Answer 1

양식의 MouseDown() 이벤트를 사용하고 "e.X"및 "e.Y"로 지정된 위치에 그립니다. Timer() 컨트롤을 사용하여 1 초 지연을 얻을 수 있습니다. 다음은 간단한 예입니다.

Public Class Form1 

    Private WithEvents Tmr As New System.Windows.Forms.Timer 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     Tmr.Interval = 1000 
     Tmr.Enabled = False 
    End Sub 

    Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown 
     Using G As Graphics = Me.CreateGraphics 
      'G.DrawImage(yourImageReferenceHere, New Point(e.X, e.Y)) 
      Dim rc As New Rectangle(New Point(e.X, e.Y), New Size(1, 1)) 
      rc.Inflate(9, 9) 
      G.DrawEllipse(Pens.Red, rc) 
     End Using 
     Tmr.Stop() 
     Tmr.Start() 
    End Sub 

    Private Sub Tmr_Tick(sender As Object, e As EventArgs) Handles Tmr.Tick 
     Tmr.Stop() 
     Me.Refresh() 
    End Sub 

End Class