Hola a todos este es mi problema
Yo tengo 2 Text1 y Text2 y un boton Cdm
lo que quiero q haga es q cuando yo intrudusca en el Text 1 etos:
4c1 lo tranforme en el Numero 1
4d1 lo tranforme en el Numero 2
4e1 lo tranforme en el Numero 3
4f1 lo tranforme en el Numero 4
4g1 lo tranforme en el Numero 5
4a1 lo tranforme en el Numero 6
4b1 lo tranforme en el Numero 7
4#a1 lo tranforme en el Numero #
Aber q onda si me pueden ayudar GrasiasChauuu....
Nosé si entendí bien... pero para lo que necesitas podés usar los Select Case o los If...
Private Sub Cdm_Click()
Select Case Text1.Text
Case "4c1"
Text2.Text = "1"
Case "4d1"
Text2.Text = "2"
Case "4e1"
Text2.Text = "3"
Case "4f1"
Text2.Text = "4"
Case "4g1"
Text2.Text = "5"
Case "4a1"
Text2.Text = "6"
Case "4b1"
Text2.Text = "7"
Case "4#a1"
Text2.Text = "#"
Case Else
Text2.Text = "Ningun Valor Introducido"
End Select
End Sub
Espero que sea eso lo que necesitabas :)
hola loko
surge un proble en este code
si yo escribo en el tex1 4a14a14a1 en el tex2 me aparece valor no predeterminado me tendrian q aparecer 4 veces 1
No se si me entendes e-mail: kaki_jmh@hotmail.com
gracias
Utiliza str_replace()
text2 = str_replace(text1,"4c1","1")
text2 = str_replace(text1,"4d1","2")
...etc....
Yo tengo un problema con el STR_REPLACE, me dice que no se definió la función del STR_REPLACE. Puede ser el visual 5.0?
Grax ^^
Perdon :-X , la funcion es Replace()
pero si,se pone:
text2 = replace (text1,"4c","1")
simplemente se repetiria lo que esta en text1, en el text 2 no?¿...osea si se pone 4c en el text2 saldria 4c tambien...
Si pones 4c en text1 pues en text2 saldra 1. Cambia todos los 4c por 1.
gracias a todos el programa ya fue Resuelto.....Chauu