[Resolvido]Criação de um painel de lembretes no formulário inicial

Pessoal,

Estou querendo criar uma linha (campo)de rodapé onde eu possa escrever/excluir/adicionar um ou mais lembretes e eles vão rolando da esquerda para a direita neste rodapé... seria um painel?

abraços

Leandro

P.S. Se alguém souber de algo diferente e cumpra essa função, eu agradeço.

Esses lembretes deverão ficar armazenados em tabelas ou seriam apenas para uso na hora? Aqui no forum tem exemplos de mensagens rolando na tela. Dê uma olhadinha. Para colocar em sequência, basta usar um DLookup por exemplo.

Olha Criquio,

eu estava pensando numa forma de alimentar esta linha a qualquer momento, então, acho que teria que estar vinculada a uma tabela... eu até consegui vincular meu form inicial que só possui botões de comando um a uma tabela que alimenta um campo de texto e ele fica indo de um lado para o outro (mas ficou muito podre), e eu quero que o texto role e não o objeto.

da mesma forma, seria interessante que o conteúdo do campo/objeto, ao sumir no final do lado direito da tela, voltasse para a esquerda (início) e apresentasse o conteúdo do segundo registro da tabela, e assim por diante...

Não há como mover apenas as letras. Ou você move o controle, no caso um label ou textbox, ou então terá que usar espaços antes do texto para empurrá-lo para a direita ou espaços depois do texto para empurrá-lo para a esquerda. Eu prefiro movimentar o label. Basta deixá-lo com fundo e bordas transparentes. Para mudar de texto, você pode usar uma variável que represente o código dos registros. Assim, quando o controla atingir a posição máxima, muda para o próximo registro.

é Criquio, vc está certo... viajei na maionese!

criei um text box transparente e deu certo, porém só consigo fazer com que ele vá para a direita (veja código abaixo), não sei como fazê-lo voltar... e também não sei como fazer com que a próxima mensagem seja visualizada ao chegar na margem esquerda (exemplo) como vc sugeriu, podes dar uma mãozinha?

Private Sub Form_Timer()

If CHAMADA.Left <= 5000 Then
CHAMADA.Left = CHAMADA.Left + (CHAMADA.Width / 10)

Else
If CHAMADA.Top >= 0 Then
CHAMADA.Left = CHAMADA.Left - (CHAMADA.Left / 50)
CHAMADA.Left = 4500

End If

End If

End Sub

Neste exemplo, o letreiro vai para a direita e quando chega no limite fica voltando uns 2cm e segue para a direita novamente sem parar.
o campo "CHAMADA" esta vinculado a uma tabela e dessa forma, só aparece o primeiro registro.

att

Leandro

é Criquio, vc está certo... viajei na maionese!

criei um text box transparente e deu certo, porém só consigo fazer com que ele vá para a direita (veja código abaixo), não sei como fazê-lo voltar... e também não sei como fazer com que a próxima mensagem seja visualizada ao chegar na margem esquerda (exemplo) como vc sugeriu, podes dar uma mãozinha?

Private Sub Form_Timer()

If CHAMADA.Left <= 5000 Then
CHAMADA.Left = CHAMADA.Left + (CHAMADA.Width / 10)

Else
If CHAMADA.Top >= 0 Then
CHAMADA.Left = CHAMADA.Left - (CHAMADA.Left / 50)
CHAMADA.Left = 4500

End If

End If

End Sub

Neste exemplo, o letreiro vai para a direita e quando chega no limite fica voltando uns 2cm e segue para a direita novamente sem parar.
o campo "CHAMADA" esta vinculado a uma tabela e dessa forma, só aparece o primeiro registro.

att

Leandro

Eu colocaria em primeiro lugar, duas linhas no topo do código, logo após a primeira linha já presente lá, assim:

Option Explicit
Dim varC As Integer

No Timer, colocaria assim:

If Me.Chamada.Left = 0 Then
    Me.CHAMADA = DLookup("Mensagem", "NomeTabela", "Código=" & varC)
    Me.CHAMADA.Width = Len(Me.CHAMADA) * Int(80 * 12 / 10) + 100
        If varC < DMax("Código", "NomeTabela") Then
            varC = varC + 1
        ElseIf varC = DMax("Código", "NomeTabela") Then
            varC = 1
        End If
ElseIf Me.CHAMADA.Left + Me.Chamada.Width < Me.InsideWidth Then
    Me.CHAMADA.Left = Me.CHAMADA.Left + 100
ElseIf Me.CHAMADA.Left + Me.Chamada.Width >= Me.InsideWidth Then
    Me.CHAMADA.Left = Me.CHAMADA.Left - 100
End If

No evento "Ao carregar" do formulário, coloque:

varC = 1

A tabela de mensagem não deve ter furos na sequência. Coloque a posição inicial do campo da mensagem em 0.

Criquio,

deu o erro em tempo de execução '2001':
você cancelou a operação anterior

na depuração é destacada a linha:

Me.CHAMADA = DLookup("PainelPAIN_TAB", "PAIN_TAB", "CodPainel" & varC)

esclarecendo que:

PainelPAIN_TAB é o nome do campo da tabela onde está a mensagem;
PAIN_TAB é o nome da tabela
CodPainel é o nome do campo (Chave/Autonumeração) da tabela onde estão as mensagens...

seria isso?

Leandro

PS: no começo do código eu tenho um "Option Compare Database"

Criei um pequeno exemplo aqui. Veja se é isso mesmo que precisa:

http://dl.dropbox.com/u/5454503/MensagensEmPainel.zip

Como não retornou, o tópico passa a resolvido. Qualquer coisa reabra, por favor.