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 otrapero en los 2 si pongo axda y depeus borro la a del final sale palomino :( , que hagooo,
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:
pero en los 2 si pongo axda y depeus borro la a del final sale palomino , que hagooo... 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'.
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:Perdon por ser tan dificil de entender :( , pero ya lo arregle :lol: , le puse que el tercero si es un numero que salga palomino :huh: , grracas a Todos :DCó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...Citarpero en los 2 si pongo axda y depeus borro la a del final sale palomino , que hagooo... 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.