Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: kakinets en 4 Octubre 2005, 23:25 pm


Título: Ayuda con TextBox
Publicado por: kakinets en 4 Octubre 2005, 23:25 pm
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

Título: Re: Ayuda con TextBox
Publicado por: NYlOn en 4 Octubre 2005, 23:33 pm
Código:
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 !

Título: Re: Ayuda con TextBox
Publicado por: kakinets en 4 Octubre 2005, 23:47 pm
gracias me sirvio...

Pero no entiendo esto

Código:
Left(Text1.Text, 4)

Código:
Mid(Text1.Text, 5)

Lo ultimo la primera ves q lo siento nombrar

      gracias KakiNets

Título: Re: Ayuda con TextBox
Publicado por: NYlOn en 4 Octubre 2005, 23:52 pm
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

Título: Re: Ayuda con TextBox
Publicado por: kakinets en 5 Octubre 2005, 01:13 am
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

Título: Re: Ayuda con TextBox
Publicado por: NYlOn en 5 Octubre 2005, 01:51 am
En un timer pone el intervalo que kieras (1000 es 1 seg, 2000 son 2 ...) y el siguiente
Código:
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

Título: Re: Ayuda con TextBox
Publicado por: kakinets en 5 Octubre 2005, 19:38 pm
Se ya savia eso pero me borra todo el label...yo lo q quiero es q me valla borando de a un linea

Título: Re: Ayuda con TextBox
Publicado por: NYlOn en 5 Octubre 2005, 20:03 pm
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

Título: Re: Ayuda con TextBox
Publicado por: kakinets en 5 Octubre 2005, 20:15 pm
Puede ser cualquier palabre ingresada por x Usuarios

Título: Re: Ayuda con TextBox
Publicado por: Crack_X en 5 Octubre 2005, 20:19 pm
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

Título: Re: Ayuda con TextBox
Publicado por: NYlOn en 5 Octubre 2005, 20:22 pm
si las palabras van a empezar con mayuscula podes hacer un bucle que busque letra x letra y si encuentra una mayusucla use la funcion Mid o Left para borrarla....

Diferenciar entre mayuscula y minuscula:
Código:
Private Sub Command1_Click()
    If Text1.Text = LCase(Text1.Text) Then
        MsgBox "MINUSCULA"
    End If
    If Text1.Text = UCase(Text1.Text) Then
        MsgBox "MAYUSCULA"
    End If
End Sub

salu2 !

Título: Re: Ayuda con TextBox
Publicado por: kakinets en 6 Octubre 2005, 04:03 am
NO entiendo

Título: Re: Ayuda con TextBox
Publicado por: noob_Setup en 8 Octubre 2005, 19:33 pm
selecciona en tu codigo la palabra split y presiona F1 y asi sucesivamente con UBound, Lbound, Mid, etc
La ayuda no muerde y es muy util

Saludos


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines