Marquee - VBWEB

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Marquee

Rinaldo

SÃO PAULO
SP - BRASIL

Postada em 04/03/2008 09:37 hs

Ola pessoal.

Fiz um codigo que rola o texto de baixo para cima utilizando para isso um componente timer. só tem um problema, o texto pisca enquanto rola. Sei que da para tirar esse "defeito" pois já vi isso em algum lugar. Só não me lembro one.

Alguém tem alguma idéia?

T+

Rinaldo

Vilmar Brazão

SAO PAULO
SP - BRASIL

Postada em 04/03/2008 16:44 hs

Option Explicit

Private m_strTexto As String
Private m_intI     As Integer

Private Sub Form_Load()
    m_strTexto = "Isto é um texto"
    m_intI = 0
End Sub

Private Sub tmrTempo_Timer()
    If lblTexto.Caption = "Isto é um texto" Then
        lblTexto.Caption = ""
        m_intI = 0
    Else
        m_intI = m_intI + 1
        lblTexto.Caption = Mid(m_strTexto, 1, m_intI)
    End If
End Sub

e coloca o Interval do Timer para 100 (tempo em Ms)

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR


		CyberWEB Network Ltda. © Copyright 2000-2024 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site