Visual Basic - efecto en letras ¡¡

Life is soft - evento anual de software empresarial
 
Vista:

efecto en letras ¡¡

Publicado por eSçkaFLOn (1 intervención) el 01/01/2001 00:00:00
hola y felis nuebo aÑo
alguien me puede decir como hacer que las letras en un label o un textbox aparescan una a una hasta formar una palabra .
supongamos "e s t o q u i e r o q u e p a s e"
que aparesca primero la "e" despues de 10 segundos la "s" despues 10 segundos "t" ....etc ... .........
gracias
chao.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:efecto en letras ¡¡

Publicado por EL Tiko (97 intervenciones) el 01/01/2001 00:00:00
SALUDOS COMPADRE, FELIZ AÑO, ESTE CODIGO LO BAJE Y ES DE MUCHA AYUDA, LO PUEDES COPIAR Y SI NO SIRVE ME ENVIAS UN MAIL.


En un formulario, coloca los siguientes controles:
1.- Un control Timer llamado Timer1 con la propiedad interval a 25 (prueba otros valores)
2.- Un control PictureBox llamado Picture1 al pie del formulario (o donde quieras)
(dale forma de una linea de extremo a extremo del formulario y la altura para una linea de texto)

En el evento Timer del control Timer1:

Private Sub Timer1_Timer()
Const MENSAJE = "Recuerda visitar a menudo VB Paradise: http://personal2.iddeo.es/fustej"
Static hecho_antes As Boolean
Static msg_width As Single
Static X As Single

If Not hecho_antes Then
msg_width = Picture1.TextWidth(MENSAJE)
hecho_antes = True
X = Picture1.ScaleWidth
End If
Picture1.Cls
Picture1.CurrentX = X
Picture1.CurrentY = 0
Picture1.FontName = "Arial" ´ o lo que quieras
Picture1.FontBold = True ´ opcional, claro
Picture1.Print MENSAJE
X = X - 30
If X < -msg_width Then X = Picture1.ScaleWidth
End Sub


SALUDOS DE EL_TIKO :o)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:efecto en letras ¡¡

Publicado por Ariopolis (159 intervenciones) el 02/01/2001 00:00:00
Prueba con este código (pon la propiedad Interval del Timer a 10000 para 10 seg.):

Option Explicit
Dim i As Integer
Dim matriz(9) As String

Private Sub Form_Load()
matriz(0) = "H"
matriz(1) = "o"
matriz(2) = "l"
matriz(3) = "a"
matriz(4) = " "
matriz(5) = "m"
matriz(6) = "u"
matriz(7) = "n"
matriz(8) = "d"
matriz(9) = "o"
i = 0
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption & matriz(i)
i = i + 1
If i = 10 Then
Timer1.Enabled = False
End If
End Sub

Creo que hace lo que quieres. Si quieres que el texto pueda cambiar, recuerda el ReDim de las matrices y carga el texto que quieras.

Espero que te valga. Un saludo y feliz año!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar