Vb.net Visual Studio最后4行是错误的，我不知道´；我不知道为什么

您没有明确指出是哪几行导致了问题，但这一行的问题是：

Public Class Form1
    Private _zkouska1 As New Bitmap("C:\Users\w\Desktop\zkouska1.gif")
    Private _zkouska2 As New Bitmap("C:\Users\w\Desktop\zkouska2.gif")

    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)

        e.Graphics.DrawImageUnscaled(New Bitmap(_zkouska1), 0, 0)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MyNewSub()
    End Sub

    Sub MyNewSub()
        BackColor = Color.Red
        TransparencyKey = BackColor
    End Sub
    Private Sub Example_ControlAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.ControlEventArgs) Handles Me.ControlAdded

        AddHandler e.Control.MouseClick, AddressOf Example_MouseClick
    End Sub

    Private Sub Example_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
        If True Then e.Graphics.DrawImageUnscaled(New Bitmap(_zkouska2), 0, 0) = True
    End Sub
End Class

MouseevenTargets没有图形成员吗。这里要做的事情可能是使用鼠标单击事件设置一个变量，该变量跟踪鼠标是否被单击（以及单击的位置），并使用绘制事件进行实际绘制

因此，您将向类中添加一个布尔变量：

If True Then e.Graphics.DrawImageUnscaled(New Bitmap(_zkouska2), 0, 0) = True

将MouseClicked事件更改为如下内容：

Private _clicked As Boolean

Private Sub Example_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
    _clicked = True
End Sub

添加一个绘制事件并使该事件如下所示：

Private _clicked As Boolean

Private Sub Example_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
    _clicked = True
End Sub

---

你的错误是什么？最后4行很好，但我们需要更多的细节。是的，问题在于你提到的这一行。当我点击“zkouska1图形”时，我需要自动将此图形更改为“zkouska2图形”，我是VB新手，所以我无法确定应该使用哪种代码……答案稍微澄清了一点。