0

私がしたいこと:

マウスで次の行を保持しているとしましょう:

ここに画像の説明を入力

ラインを動かしていると、円の範囲からラインが外れません。

やりたくないこと:

ここに画像の説明を入力

ご覧のとおり、ラインはサークル範囲から外れています。

マウスで彼を持っているときに、線を引き、彼を円の中に入れておきたいです。

どうすれば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
4

0 に答える 0