none
AYUDA CON PICTUREBOX! RRS feed

  • Pregunta

  • la cosa es fácil, quiero hacer un rompecabezas con 9 piezas, asigno a cada picture box una pieza de la imagen todo desordenado y quiero que cuando todas estén en el lugar correspondiente me salte un msgbox diciendo ganaste, el problema me nace al querer comparar en tiempo de ejecución si dicho picturebox1 tiene la imagen importada en My.resources.pieza_1...

    probé con
    picturebox1.image = My.resources.pieza_1 ERROR (ESTE LO ENTIENDO, LO AGREGO POR SI LAS DUDAS XD)

    picturebox1.image.equals(My.resources.pieza_1) en teoría me funciona, pero solo una primera vez y solo con la primer condicion, de agregar un "and" no toma la siguiente condición

    picturebox1.image Is My.resources.pieza_1 y me pasa lo mismo que el caso de arriba, no puedo hacer un

    picturebox1.image.equals(My.resources.pieza_1) and picturebox2.image.equals(My.resources.pieza_2)

    Esto es lo que  utilizo para mover los PictureBox, espero se haya entendido que lo que quiero es saber si en el PictureBox1 esta la imagen pieza_1

    Public Class Form1
        Dim aux As Boolean = False
        Dim pieza_aux As Image
        Dim pic_aux As PictureBox
        Dim intentos As Integer
    
        Private Sub PictureBox4_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pb5.MouseClick, pb2.MouseClick, pb4.MouseClick, pb1.MouseClick, pb3.MouseClick, pb6.MouseClick, pb7.MouseClick, pb8.MouseClick, pb9.MouseClick
            Dim pieza As PictureBox = CType(sender, PictureBox)
            intercambio(pieza)
        End Sub
    
        Public Sub intercambio(ByVal bandera As PictureBox)
            If aux = False Then
                aux = True
                pieza_aux = bandera.Image
                pic_aux = bandera
            Else
                aux = False
                pic_aux.Image = bandera.Image
                bandera.Image = pieza_aux
                intentos = intentos + 1
                Label2.Text = intentos
    
            End If
        End Sub
    End Class
    

    • Cambiado Enrique M. Montejo jueves, 30 de marzo de 2017 6:01 Pregunta relacionada con controles de Windows Forms.
    miércoles, 29 de marzo de 2017 15:34