TXTBOX COM TEXTO DESLISANTE

JOAOBENEVIDES 20/11/2009 19:47:29
#328308
Ola Pessoal gostaria de fazer um texto deslisante dentro de um txtbox como devo fazer


Obrigado


Joao
TECLA 20/11/2009 22:12:34
#328323 Resposta escolhida
Explique com MAIS detalhes o que deseja fazer.
JOAOBENEVIDES 21/11/2009 09:11:36
#328329
quero deixar uma mensaguem deslisante dentro de um txtbox para que o usuario veja a mensaguem sendo exibida tendo em vista que esta mensaguem sao grandes

Obrigado

EDERMIR 21/11/2009 22:43:59
#328348
Quer simular um MARQUEE (HTML) ou aqueles letreiros de propaganda?

Em um textbox apenas escrevendo caracter por caracter, apagando o primeiro e inserindo no final.

Rolando para cima, eu utilizaria o textbox.multiline = true e escreveria linha a linha. Retirando a primeira e inserindo no fim.

Talvez, rolando para cima, seja melhor um LISTBOX e ao completar as linhas visíveis, excluir a primeira linha e adicionar no fim.
JOAOBENEVIDES 22/11/2009 09:32:35
#328349
EDERMIR pode ser vc pode postar um modelo para mim
MARCELO.TREZE 22/11/2009 13:50:58
#328357
para fazer o textbox rolando vc terá de colocar um timer para ficar alterando caractere por caractere, minha dica seria usar o TlTipText para exibir todo texto.

exemplo

No mouse move do textbox coloque

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.ToolTipText = Text1.Text
End Sub


desta form vc poderá exibir todo texto sem ter de ficar rolando-o no textbox
TECLA 22/11/2009 21:17:59
#328370
Sugiro que utilize um LABEL (juntamente com um TIMER).

  • Pré-requisito
    . Insira um LABEL (altere a propriedade AUTOSIZE para TRUE e a NAME como LABEL1)
    . Insira um componente TIMER e altere a propriedade INTERVAL para 50)

  • Código fonte

    Option Explicit
    Const Mensagem =
    • [Ô]VBMania - Referência Nacional em Visual Basic[Ô]
    Dim i As Integer

    Private Sub Form_Load()
    i = 1
    End Sub


    Private Sub Timer1_Timer()
    Label1.Caption = Left(Mensagem, i)
    i = i + 1
    If i > Len(Mensagem) Then i = 1
    End Sub


    é só copiar e colar no editor de código.
    MAFACILITY 23/11/2009 18:47:28
    #328417
    VOU DEIXAR MINHA CONTRIBUIÇÃO, ESSE EXEMPLO PODE SER USADO EM UM LABEL,BARRA TÍTULO FORM, TEXBOX, ETC.. COMO DISSE O COLEGA EDERMIR DÁ UM EFEITO DE MARQUEE.

    Private Sub Form_Load()
    Label1.Caption = [Ô]OLÁ JOÃO, VOCE ESTÁ NO VBMANIA !!! [Ô]
    Timer1.Enabled = True
    Timer1.Interval = 300
    End Sub


    Private Sub Timer1_Timer()
    Dim str As String
    str = Form1.Label1.Caption
    str = Mid$(str, 2, Len(str)) + Left(str, 1)
    Form1.Label1.Caption = str
    End Sub
    NEREU1301 23/11/2009 21:35:33
    #328437
    Boa noite

    Usei a ideia do Tecla e deu certo. Usei no MDI form pra passar uma mensagem pro utilizador do programa.

    ficou muito bom. Boa idéia.

    nereu
    Tópico encerrado , respostas não são mais permitidas
    Voltar