如何通过keyup事件来屏蔽一个矩形？

Question

太阳仍然在地平线以上。 7:43，我从奥地利巴登出发，尝试用一个额外的例子来提及我的 Titel 问题。 继Window10环境构建19041.985 Visual Studio社区版本4.8.04084之后， Logitech Deluxe 250 键盘的预定义按键不会使用 Visual Basic 方法进行更改

    Sub Kein_Stress_beim_Essen(e As KeyEventArgs)
        Select Case e.KeyCode
            Case Keys.Space
                Dim Kautchuj As Drawing.Graphics = Me.CreateGraphics
                Kautchuj.DrawRectangle(New Pen(Color.PaleGreen, 2), 250, 150, 100, 50)
        End Select
    End Sub

。 为了加强体育锻炼的总和，将肩胛骨拉至旭日平衡，直到无悔地推回我需要的地方。 DrawRectangle 通过表单属性 CreateGraphics 设置。 我搜索并使用可设置为将 Me.KeyUp 委托与多个属性的事件文献链接的 GDI+ 对象。 对于我的论点，我使用额外的十字来开始和结束偶数、奇数讨论。

我尝试使用大小写键筛选一个矩形。空间。虽然 CreateGraphics 实际上用于在 Visual Basic 中使用矩形对象瞄准控件，但我可以想象一个绘制事件，但不知道按键事件是否也可以用于对象。

我有一个搜索模式来连接未命名函数中的运算符。即使有一些能量练习，也不可能一切都是物体。为了实现这一目标，我淡化了预定义的颜色名称以构建枚举命名约定。一些字典头脑风暴词是委托、事件参数、元组、键、选择、属性、方法和实例。

我不考虑制作新字体的可能性，因为 IME 替换对我来说并不是额外的信息。

Answer 1

您似乎在询问如何在

KeyUp

事件上绘制方框。在这种情况下，这里有一个关于如何完成的快速演示：

Private ReadOnly points As New List(Of Point)
Private ReadOnly rng As New Random

Private Const BOX_DIMENSION As Integer = 10

Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp
    Select Case e.KeyCode
        Case Keys.Space
            'Draw a new box at a random location.
            Dim x = rng.Next(ClientSize.Width)
            Dim y = rng.Next(ClientSize.Height)

            points.Add(New Point(x, y))

            'Repaint just the area that will be occupied by the new box.
            Invalidate(New Rectangle(x, y, BOX_DIMENSION + 1, BOX_DIMENSION + 1))
        Case Keys.Escape
            'Erase all boxes.
            points.Clear()

            'Repaint the whole form.
            Invalidate()
    End Select
End Sub

Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
    'Draw a box at each location.
    For Each point In points
        e.Graphics.DrawRectangle(Pens.Red, point.X, point.Y, BOX_DIMENSION, BOX_DIMENSION)
    Next
End Sub

如您所见，所有绘制都是在

Paint

事件处理程序中完成的。

KeyUp

事件处理程序更新表示绘图的数据，然后强制重新绘制。