Ayuda con TextBox

Iniciado por kakinets, 4 Octubre 2005, 23:25 PM

0 Miembros y 1 Visitante están viendo este tema.

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


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

Left(Text1.Text, 4)

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 ;D)


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

#4
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

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:

Citar
dim a() as string
a = split(label1.caption,vbnewline)
for i = 0 to ubound(a())
msgbox a(i)
next i
Shit loads of money spend to show us wrong from right. Say no to war


Yasser Has Things To Say
WarZone