Ayuda con TextBox

[kakinets]

Hola a todos....

Mi pregunta es como se hase o si se puede hacer esto

Cuando yo escribo en un textbox por ejemplo "MSG|Holas" q me tire un Msgbox pero solo Holas escrito....

Lo q quiero decir es los q esta antes de | es la accion y lo q esta despues es la direcsion o contendo de la accion...

         KakiNets

[NYlOn]

Código [Seleccionar] Expandir


Private Sub Command1_Click()
If Left(Text1.Text, 4) = "MSG|" Then
MsgBox Mid(Text1.Text, 5)
End If
End Sub


esper0 q sea lo que buscabas

SALU2 !

[kakinets]

gracias me sirvio...

Pero no entiendo esto

Código [Seleccionar] Expandir

Left(Text1.Text, 4)

Código [Seleccionar] Expandir

Mid(Text1.Text, 5)

Lo ultimo la primera ves q lo siento nombrar

      gracias KakiNets

[NYlOn]

Left: Empieza a leer la cadena de texto desde la IZQUIERDA
Text1.Text: La cadena a leer
4: La cantidad de letras que va a tomar
(Tambien esta la funcion Right... q empieza a leer la cadena desde la DERECHA... obviamente )


Mid: Selecciona solo una parte de la cadena
Text1.Text: La cadena a leer
5: La posicion de donde va a empezar a tomar caracteres

salu2

G0nz4

[kakinets]

gracias....
Otra duda la veo muy dificil

Si tengo un label (label1)
como varios texto ejemplo
Hola
Chau
Perro
Juan

Se puede hacer q cada Segundo saque a hola depues a chau....y así susesivamente

[NYlOn]

En un timer pone el intervalo que kieras (1000 es 1 seg, 2000 son 2 ...) y el siguiente

Código [Seleccionar] Expandir


Private Sub Timer1_Timer ()
Label1.Caption = ""
End Sub


eso lo q hace es limpiar el Label cada cierto tiempo, no se si lo que necesitas es eso o que vaya sacando las palabras :S

Salu2

[kakinets]

Se ya savia eso pero me borra todo el label...yo lo q quiero es q me valla borando de a un linea

[NYlOn]

si, lo que keres se puede hacer... pero sabes que palabras vas a tener que borrar ??
van a ser:
"Hola"
"Chau"
"Perro"
"Juan"

o puede ser cualquier palabra ingresada x el usuario ??

salu2

[kakinets]

Puede ser cualquier palabre ingresada por x Usuarios

[Crack_X]

Puedes hacer lo siguiente:

dim a() as string
a = split(label1.caption,vbnewline)
for i = 0 to ubound(a())
msgbox a(i)
next i