Visual Basic - URGENTE

Life is soft - evento anual de software empresarial
 
Vista:

URGENTE

Publicado por María Teresa (1 intervención) el 15/11/2003 16:56:55
Necesito urgente saber como puedo hacer para que el nombre de los formularios salga letra por letra
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:URGENTE

Publicado por Juan (284 intervenciones) el 15/11/2003 19:56:06
Pon un timer en el formulario con las propiedades Enabled=True e Interval=500(o el nº que quieras claro) y agrega este código:

Dim titulo As String

Private Sub Form_Load()
titulo = Me.Caption
Me.Caption = ""
End Sub

Private Sub Timer1_Timer()
If Len(Me.Caption) >= Len(titulo) Then
Me.Caption = ""
Else
Me.Caption = Left$(titulo, Len(Me.Caption) + 1)
End If
End Sub
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