私がしたいこと:
マウスで次の行を保持しているとしましょう:
ラインを動かしていると、円の範囲からラインが外れません。
やりたくないこと:
ご覧のとおり、ラインはサークル範囲から外れています。
マウスで彼を持っているときに、線を引き、彼を円の中に入れておきたいです。
どうすればpicture1のようなことができますか?
これはコードです:
Dim g As Graphics
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
Dim pt As New Drawing.Point
pt.X = e.X
pt.Y = e.Y
g = Me.CreateGraphics
Dim myPen = New Pen(Color.Red)
myPen.Width = 1
g.Clear(Color.White)
g.DrawLine(myPen, 100, 100, pt.X, pt.Y)
End Sub