MARQUEE

CAIO.FR.SP 27/08/2009 14:16:38
#321131
galera preciso fazer um marquee tipo aquele em html e nao estou conseguindo
vou colocar os codigos que estou usando

[ô]primeiro passo o label e o texto que quero exibir
  Private Sub Form_Load()
    texto = LerINI([Ô]Empresa[Ô], [Ô]fantasia[Ô], App.Path & [Ô]\config.ini[Ô])
    completa_marque lbl_empresa, texto
End Sub


[ô]aqui é uma sub que eu fiz para completar o texto com *
 Private Sub complea_marque(lab As Label, text As String)
    lab.Caption = text [ô]preencho co abel com o texto escolhido
    Dim tamanho As Single
    tamanho = lab.Width [ô]aqui pego o tamanho que o label vai aparece - a largura dele no form
    lab.AutoSize = True [ô]aqui coloco ele como autosize para fikar com a largura apenas do texto
    Do While Not lab.Width >= tamanho
        lab.Caption = lab.Caption + [Ô]*[Ô] [ô] aqui vou add [Ô]*[Ô] ate que o label volte a ficar com o tamanho antes definido
    Loop
    Timer1.Enabled = True [ô]aqui chamo o timer
End Sub


[ô]agora o timer que uso para controlar a velocidade do timer
 Private Sub Timer1_Timer()
    marquee lbl_empresa
End Sub


[ô]e finalmente em um module coloque essa função que gera o marquee
 Public Sub marquee(obj As Label)
    Dim Position As Integer
    Dim TmpV As Integer
    Dim texto As String
    Do
        For f = TmpV To Len(obj)
            If Position = 0 Then
                tmp = Right$(obj.Caption, Len(obj.Caption) - f) & Left$(obj.Caption, f)
            Else
                tmp = Right$(obj.Caption, f) & Left$(obj.Caption, Len(obj.Caption) - f)
            End If
            obj.Caption = tmp
            
            DoEvents
            
        Next f
    Loop
End Sub


galera me ajudem, axo que nao precisa de todos esses codigos, mais consegui pensar so dessa maneira.
MAFACILITY 27/08/2009 18:09:38
#321160 Resposta escolhida
VéIO TENHO ESTE CÓDIGO QUE FAZ UM MARQUEE EM UM SISTEMA DE IMOBILIÁRIA QUE TENHO, ELE FICA CARREGANDO OS IMÓVEIS EM ESTOQUE, SÓ QUE NESSE EXEMPLO ABAIXO NÃO ESTÁ COM O BD, VJA SE DAR PARA ADAPTAR EM SEU SISTEMA, ELE é BEM SIMPLES.

Private Sub Form_Load()
Label1.Caption = [Ô] OLÁ EU SOU MAFACILITY ESPERO TER TE AJUDADO, VC PODE USAR ESTE LABEL COM DADOS DE SEU BANCO [Ô]
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
Tópico encerrado , respostas não são mais permitidas
Voltar