单击时如何更改图片框中的图像答案

【问题标题】：How to change image in picture box when clicked单击时如何更改图片框中的图像
【发布时间】：2014-05-17 21:54:39
【问题描述】：

我在设计用于预订座位的程序中使用了以下代码。每个图片框都是一个座位，当点击每个图片框时，图像应该从 Seating_No_Person 变为 Seating_With_Person 以显示该座位已被选中。我目前在更改图像时遇到问题，因为单击时，没有一个图片框交换图像。有人有什么建议吗？

谢谢

Public Class Form1

    Public Class Seating

        Public SeatRow As Integer = 0
        Public SeatColumn As Integer = 0

        Public PB As PictureBox = Nothing
        Public Occupied As Boolean = False

    End Class

    Private seatingList As New List(Of Seating)


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Dim xPosition As Integer = -50

        Dim yPosition As Integer = -25


        For i As Integer = 1 To 5
            'Number of rows
            For j As Integer = 1 To 10

                Dim pb As New PictureBox

                With pb
                    .Name = "PictureBox" & i.ToString & j.ToString
                    'Name of Picture box i.e. if i = 1 (row 1), j = 3 (column 3), name is PictureBox13
                    .SizeMode = PictureBoxSizeMode.Zoom
                    .Size = New Size(60, 60)
                    'Size of seat is 60 by 60
                    .Location = New Point(xPosition + (j * 70), yPosition + (i * 70))
                    'Location of picture box is: -50 + (columnnumber * 70), -25 + (rownumber * 70)
                    .Image = My.Resources.Seating_No_Person

                    Me.Controls.Add(pb)


                    AddHandler pb.Click, AddressOf PictureBox_Click

                    Dim thisSeating As New Seating

                    With thisSeating
                        .SeatRow = i
                        .SeatColumn = j
                        .PB = pb
                        .Occupied = True
                    End With

                    seatingList.Add(thisSeating)
                End With
            Next
        Next

    End Sub


    Private Sub PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


        Dim pb As PictureBox = DirectCast(sender, PictureBox)

        Dim seatRowNum As Integer = CInt(pb.Name.Replace("PictureBox", ""))
        Dim seatColumnNum As Integer = CInt(pb.Name.Replace("PictureBox", ""))

        Dim qry = From seat As Seating In seatingList Where seat.SeatRow = seatRowNum And seat.SeatColumn = SeatColumnNum



        If qry.Count = 1 Then

            If qry.First.Occupied = True Then


                pb.Image = My.Resources.Seating_No_Person
                qry.First.Occupied = False

            Else

                pb.Image = My.Resources.Seating_With_Person

                qry.First.Occupied = True

            End If

        End If


    End Sub


End Class

【问题讨论】：

您无法通过字符串逻辑获得正确的 seatRowNum 和 seatColumnNum。

标签： vb.net image visual-studio-2010 picturebox

【解决方案1】：

我建议设置一个断点并进行调试，看看你哪里出错了。如果您只是在Private Sub PictureBox_Click 中调用DirectCast(sender, PictureBox).Image = My.Resources.Seating_With_Person，则它可以工作，这表明您的If 块内的逻辑存在问题。

【讨论】：