|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Como simular um texto sendo digitado em tempo de execução em um label
|
 |
|
|
|
Postada em 4/6/2004 por ATS
Crie um Form..e nele ponha um label, um botão, e um timer...(valor default do Interval do Timer é 100)
Mude o nome do Botão para "MostrarMsg"
Option Explicit
Public Contar As Integer
Public Mensagem As String
Public TamanhoMsg As Integer
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Public Sub MostrarMsg_Click()
Contar = 0
Timer1.Enabled = True
Mensagem = "Mensagem que você quiser"
TamanhoMsg = Len(Mensagem)
Call Timer1_Timer
End Sub
Private Sub Timer1_Timer()
If Contar < TamanhoMsg Then
Contar = Contar + 1
Label1.Caption = Mid(Mensagem, 1, Contar)
End If
End Sub
|
|
|
|
|
