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
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 !
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
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
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
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
Se ya savia eso pero me borra todo el label...yo lo q quiero es q me valla borando de a un linea
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
Puede ser cualquier palabre ingresada por x Usuarios
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
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:
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 !
NO entiendo
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