Programación General > Visual Basic 6.0 e inferiores

 Problema Raro

(1/2) > >>

Bopo:
En un textbox quiero que si ponen AX y despues lo que sea osea Ax1700 que diga tal cosa en un label y si se one axda que siga otra
yo tenia esto

 If Left(txtstepp.Text, 1) = "a" And Mid(txtstepp.Text, 2) = "x" Then
lblproci.Caption = "Athlon XP Palomino"
End If
 If Left(txtstepp.Text, 1) = "a" And Mid(txtstepp.Text, 2) = "x" And Mid(txtstepp.Text, 3) = "d" And Mid(txtstepp.Text, 4) = "a" Then
lblproci.Caption = "Athlon XP Tbred"
End If

pero no funciona cuando pongo axda y sin la parte del axda del if hasta el final si pongo axs no lo pescam no sale palomino.... como lo hago? :(  :smartass:

cpmario:
Mid$ incompleto

Te hace falta el tercer parámetro de Mid$

Mid(string, start[, length])


    If Left(txtstepp.Text, 1) = "a" And Mid(txtstepp.Text, 2, 1) = "x" And Len(txtstepp.Text) = 3 Then
        lblproci.Caption = "Athlon XP Palomino"
    End If
    If Left(txtstepp.Text, 1) = "a" And Mid(txtstepp.Text, 2, 1) = "x" And Mid(txtstepp.Text, 3, 1) = "d" And Mid(txtstepp.Text, 4, 1) = "a" Then
        lblproci.Caption = "Athlon XP Tbred"
    End If

pacegar:
Creo que así te podría funcionar mejor
Saludos

If Left(txtstepp.Text, 4) = "axda" Then
   lblproci.Caption = "Athlon XP Tbred"
else
   If Left(txtstepp.Text, 2) = "ax" then
      lblproci.Caption = "Athlon XP Palomino"
   endif
endif

Bopo:

--- Cita de: "Bopo" --- En un textbox quiero que si ponen AX y despues lo que sea osea Ax1700 que diga tal cosa en un label y si se one axda que siga otra
yo tenia esto

 If Left(txtstepp.Text, 1) = "a" And Mid(txtstepp.Text, 2) = "x" Then
lblproci.Caption = "Athlon XP Palomino"
End If
 If Left(txtstepp.Text, 1) = "a" And Mid(txtstepp.Text, 2) = "x" And Mid(txtstepp.Text, 3) = "d" And Mid(txtstepp.Text, 4) = "a" Then
lblproci.Caption = "Athlon XP Tbred"
End If

pero no funciona cuando pongo axda y sin la parte del axda del if hasta el final si pongo axs no lo pescam no sale palomino.... como lo hago? :(  :smartass:
--- Fin de la cita ---
pero en los 2 si pongo axda y depeus borro la a del final sale palomino :( , que hagooo,

Brroz:
El ejemplo que te da pacegar es válido con una salvedad: que se te ocurra escribir en el textbox con mayúsculas... con esto debería de servir:


--- Código: Text --- If LCase(Left(txtstepp.Text, 4)) = "axda" Then      lblproci.Caption = "Athlon XP Tbred"elseif LCase(Left(txtstepp.Text, 2)) = "ax" then      lblproci.Caption = "Athlon XP Palomino"endif  
Y que no te parezca mal, pero podrías esforzarte un poco para poder comprenderte mejor...

--- Citar ---pero en los 2 si pongo axda y depeus borro la a del final sale palomino  , que hagooo

--- Fin de la cita ---
... porque quién sabe a qué te refieres cuando dices que ¿en los 2? (¿TextBox?,¿no era uno?) pones 'axda' y después borras la 'a del final'.

Suerte.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente