none
Duvidas no uso de sender RRS feed

  • Pergunta

  • Olá amigos do MSDN, tenho a seguinte configuração no Form1: PictureBox1,2 e 3, quero que ao clicar com o mouse sobre qualquer um dos  3 PictureBox, apareça a mensagem correta

    Public Class Form1
        Private Sub clicou(sender As Object, e As EventArgs) Handles PictureBox1.Click, PictureBox2.Click, PictureBox3.Click
            If sender.PictureBox = PictureBox1 Then
                MsgBox("Você clicou no PictureBox1")
            End If
            If sender.PictureBox = PictureBox2 Then
                MsgBox("Você clicou no PictureBox2")
            End If
            If sender.PictureBox = PictureBox3 Then
                MsgBox("Você clicou no PictureBox3")
            End If

        End Sub

    End Class

    Só que nesta forma que fiz acima, não funciona. Já tentei mudar de várias formas, mas ainda não consegui, sempre dá erro. Alguém pode me dar uma força como deve ser este código para que funcione?

    Grato/Durval

    terça-feira, 28 de novembro de 2017 21:50

Respostas

  • Boa noite, Durval

    Tente assim:

     Private Sub clicou(sender As Object, e As EventArgs) Handles PictureBox1.Click, PictureBox2.Click, PictureBox3.Click
            Select Case CType(sender, PictureBox).Name
                Case "PictureBox1"
                    MsgBox("Você clicou no PictureBox1")
                Case "PictureBox2"
                    MsgBox("Você clicou no PictureBox2")
                Case "PictureBox3" 'ou Else
                    MsgBox("Você clicou no PictureBox3")

            End Select
        End Sub

    Ou assim:

     Private Sub clicou(sender As Object, e As EventArgs) Handles PictureBox1.Click, PictureBox2.Click, PictureBox3.Click

            MsgBox("Você clicou em " & CType(sender, PictureBox).Name)


        End Sub

    Se der certo, por gentileza, marque como resposta.


    MARIANO1776


    • Sugerido como Resposta Mariano1776 terça-feira, 28 de novembro de 2017 23:40
    • Editado Mariano1776 quarta-feira, 29 de novembro de 2017 00:21 Complemento de informação
    • Marcado como Resposta Filipe B CastroModerator quinta-feira, 30 de novembro de 2017 18:27
    terça-feira, 28 de novembro de 2017 23:40