Hola a ver quien me ayuda con estos Text

[kakinets]

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....

[eXoRTH]

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

[kakinets]

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

[Crack_X]

Utiliza str_replace()

Código [Seleccionar] Expandir


text2 = str_replace(text1,"4c1","1")
text2 = str_replace(text1,"4d1","2")
...etc....


[eXoRTH]

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 ^^

[Crack_X]

Perdon  , la funcion es Replace()

[Xpeed]

pero si,se pone:

Código [Seleccionar] Expandir

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...

[Crack_X]

Si pones 4c en text1 pues en text2 saldra 1. Cambia todos los 4c por 1.

[kakinets]

gracias a todos el programa ya fue Resuelto.....Chauu