none
Ayuda con Left y Right RRS feed

  • Pregunta

  • Hola muy buenas: Tengo definido un código para una picture  que cuando hago click en ella, hay 3 picture mas con unas variable con left y ringht . La pregunta es Como hacer que muestre un mensage que diga "Permitido"  o  "No pemitido" , siempre me sale "No permitido" porque sale lo mismo siempre?? me podrían  ayudar en esto. Gracias mu chisimas gracias, hay dejo el código haber si podéis ayudarme.
     Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
            Dim SEI As String = Microsoft.VisualBasic.Left(PictureBox1.Tag, 5)
            Dim CI As String = Microsoft.VisualBasic.Right(PictureBox1.Tag, 5)
    
            Dim S As String = Microsoft.VisualBasic.Left(PictureBox4.Tag, 5)
            Dim CIN As String = Microsoft.VisualBasic.Right(PictureBox4.Tag, 5)
    
            Dim Su As String = Microsoft.VisualBasic.Left(PictureBox2.Tag, 5)
            Dim C As String = Microsoft.VisualBasic.Right(PictureBox2.Tag, 5)
    
                If SEI = SEI Then
                    MsgBox("No permitido")
                Exit Sub
            End If
    
            If S = S Then
                MsgBox("permitido")
                Exit Sub
            End If
    
            If Su = Su Then
                MsgBox("No permitido")
                Exit Sub
            End If
    
        End Sub

    jueves, 14 de mayo de 2015 7:55

Todas las respuestas

  • No entiendo lo que tratas de hacer, pero con este código es lógico que siempre te aparezca el mensaje "No permitdo".

    Si haces:

            If SEI = SEI Then
                    MsgBox("No permitido")
                Exit Sub
            End If
    La condición SEI = SEI siempre se va a cumplir (una cadena siempre va a ser igual a sí misma).

    jueves, 14 de mayo de 2015 8:41
  • Hola sr. Asier  veamos este código forma parte del juego de domino cuando hago click en una picture, ósea en una ficha hay 3  picture mas con las variable de tipo ringht y left, para extraer los nombre de las fichas; por Ejemplo tenemos 6/6, 4/5, 6/4 6/5 si hay colocada 6/6 y yo trato de colocar 4/5, me de el error con el msgbox("No permitido") y si es 6/4 o el 6/5  diga ("Permitido") si es así  según su posición la roto o no Como lo hago ?? gracias sr. Asier muchas gracias. posdata: la rotación lo tengo claro ya se.

    
    jueves, 14 de mayo de 2015 9:36
  • No sé si te he entendido del todo bien, pero si lo que quieres es comprobar si alguno de los lados del PictureBox3 coincide con alguno de los lados de los otros PictureBox, sería algo así:

        Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
            Dim SEI As String = Microsoft.VisualBasic.Left(PictureBox1.Tag, 5)
            Dim CI As String = Microsoft.VisualBasic.Right(PictureBox1.Tag, 5)
    
            Dim S As String = Microsoft.VisualBasic.Left(PictureBox4.Tag, 5)
            Dim CIN As String = Microsoft.VisualBasic.Right(PictureBox4.Tag, 5)
    
            Dim Su As String = Microsoft.VisualBasic.Left(PictureBox2.Tag, 5)
            Dim C As String = Microsoft.VisualBasic.Right(PictureBox2.Tag, 5)
    
            Dim ficha As PictureBox = CType(sender, PictureBox)
            Dim L As String = Microsoft.VisualBasic.Left(ficha.Tag, 5)
            Dim R As String = Microsoft.VisualBasic.Right(ficha.Tag, 5)
    
    
            MsgBox(String.Format("{0} con PictureBox1 {1}Permitido", ficha.Name, IIf(L = SEI Or L = CI Or R = SEI Or R = CI, "", "No ")))
            MsgBox(String.Format("{0} con PictureBox4 {1}Permitido", ficha.Name, IIf(L = S Or L = CIN Or R = S Or R = CIN, "", "No ")))
            MsgBox(String.Format("{0} con PictureBox2 {1}Permitido", ficha.Name, IIf(L = Su Or L = C Or R = Su Or R = C, "", "No ")))
    
        End Sub

    jueves, 14 de mayo de 2015 14:53
  • 
    Hola de nuevo y perdón por la existencia, quería agradecerte el tiempo tomado con migo, Perfecto el ejemplo que pusiste funciona muy bien, desearía que me ayudaras de nuevo, en donde dice "No permitido" como hago para salir del private sub click?? para que no tenga efecto y así poder elegir otra opción o ficha, y donde dice "permitido" ya puedo de finir la rotación de la ficha que eso ya lo entiendo. gracias de nuevo. Un saludo sr. Asier,  posdata: se que este juego es muy complicado
    jueves, 14 de mayo de 2015 19:27
  • Entiendo que lo que quieres hacer es esto:

        Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
            Dim SEI As String = Microsoft.VisualBasic.Left(PictureBox1.Tag, 5)
            Dim CI As String = Microsoft.VisualBasic.Right(PictureBox1.Tag, 5)
    
            Dim S As String = Microsoft.VisualBasic.Left(PictureBox4.Tag, 5)
            Dim CIN As String = Microsoft.VisualBasic.Right(PictureBox4.Tag, 5)
    
            Dim Su As String = Microsoft.VisualBasic.Left(PictureBox2.Tag, 5)
            Dim C As String = Microsoft.VisualBasic.Right(PictureBox2.Tag, 5)
    
            Dim ficha As PictureBox = CType(sender, PictureBox)
            Dim L As String = Microsoft.VisualBasic.Left(ficha.Tag, 5)
            Dim R As String = Microsoft.VisualBasic.Right(ficha.Tag, 5)
    
            If L = SEI Or L = CI Or R = SEI Or R = CI Then
                ' Rotar PictureBox3 para colocar junto a PictureBox1
            ElseIf L = S Or L = CIN Or R = S Or R = CIN Then
                ' Rotar PictureBox3 para colocar junto a PictureBox4
            ElseIf L = Su Or L = C Or R = Su Or R = C Then
                ' Rotar PictureBox3 para colocar junto a PictureBox2
            Else
                ' No coincide con niguna otra ficha
            End If
        End Sub
    

    jueves, 14 de mayo de 2015 20:22
  • Hola: Es lo que quería estupendo me ayudaste mucho sr. Asier gracias de nuevo. Saludo,
    jueves, 14 de mayo de 2015 20:46