画

问题描述

我如何进行不限数量的圈子?

how do I make an unlimited number of circles?

这是我的代码.当我尝试做其他事情时，圆圈消失了.

this is the code I have. And when I try to do something else the circles disappear. 

  Private Sub Form1_MouseDown(作为对象发送，作为MouseEventArgs发送)处理Me.MouseDown

 Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown

用笔将myPen昏暗
        myPen =新笔(Drawing.Color.Blue，4)
      将myGraphics视作图形= Me.CreateGraphics
       myGraphics.DrawEllipse(myPen，MousePosition.X-5，MousePosition.Y-25，10，10)

 Dim myPen As Pen
        myPen = New Pen(Drawing.Color.Blue, 4)
        Dim myGraphics As Graphics = Me.CreateGraphics
        myGraphics.DrawEllipse(myPen, MousePosition.X - 5, MousePosition.Y - 25, 10, 10)

结束子

Donny

推荐答案

这是我的代码.当我尝试做其他事情时，圆圈消失了.

this is the code I have. And when I try to do something else the circles disappear. 

用笔将myPen昏暗
        myPen =新笔(Drawing.Color.Blue，4)
      将myGraphics视作图形= Me.CreateGraphics
       myGraphics.DrawEllipse(myPen，MousePosition.X-5，MousePosition.Y-25，10，10)

 Dim myPen As Pen
        myPen = New Pen(Drawing.Color.Blue, 4)
        Dim myGraphics As Graphics = Me.CreateGraphics
        myGraphics.DrawEllipse(myPen, MousePosition.X - 5, MousePosition.Y - 25, 10, 10)

这篇关于画的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！