MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo)

    avatar
    Convidado
    Convidado


    [Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo) Empty [Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo)

    Mensagem  Convidado 14/2/2013, 15:51

    Dias atrás em uma ajuda a um colega do fórum, ele postou este exemplo o qual achei interessante na fução citada no Título do Tópico, porém necessito de uma pequena modificação no mesmo, se puderem ajuda fico grato.

    Questão:
    ao exibir o Balão o mesmo tem um Titulo e abaixo a descrição.. O Código do sistema repete o mesmo título para todos os balões exibidos ao repousar o mouse no objeto, modificando apenas a descrição.

    Pergunto:
    Como colocar um título para cada objeto?


    Private Sub Form_Open(Cancel As Integer)

    Set TTip = New clsToolTip
    On Error Resume Next
    Me.Combinação15.SetFocus

    With TTip

    Call .Create(Me)

    .DelayTime = 5000
    .SetToolTipTitle "Filtrar informações", 1 >>>>> Título

    ' ToolTip text colors
    .ForeColor = 8421504
    .BackColor = 15790320

    .SetToolText Me.txtFiltro, "Coloque o critério que deseja filtrar e clique em Ok. " + vbNewLine _
    + "O filtro irá verificar em todos os campos o critério informado"

    .SetToolText Me.cmdOk, "Exibe resultado da busca" >>>> Texto para o objeto cmdOK
    .SetToolText Me.cmdReport, "Exibe o relatório com resultado das buscas"
    >>>> Texto para o objeto cmdReport
    .SetToolText Me.txtCount, "Total de Registros encontrados na busca"
    >>>> Texto para o objeto txtCount

    End With

    End Sub


    Cumprimentos.
    avatar
    Convidado
    Convidado


    [Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo) Empty Re: [Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo)

    Mensagem  Convidado 14/2/2013, 15:53

    Exemplo
    avatar
    Buscador
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 260
    Registrado : 26/02/2011

    [Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo) Empty Re: [Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo)

    Mensagem  Buscador 14/2/2013, 21:43

    Não sei se seria isto o que você deseja mas não serviria retirar o .SetToolTipTitle e colocar o título direto no principio da linha dando uma quebra?
    Tipo:
    .SetToolText Me.txtFiltro, "Título" + vbNewLine+ "Coloque o critério que deseja filtrar e clique em Ok. " + vbNewLine _
    + "O filtro irá verificar em todos os campos o critério informado"
    Não sei se seria a melhor solução mas se não aparecer outra, apesar de dar mais trabalho acho que resolveria.
    avatar
    Convidado
    Convidado


    [Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo) Empty Re: [Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo)

    Mensagem  Convidado 14/2/2013, 22:05

    Seria uma solução paliativa, no entanto a vantagem do título é justamente a diferenciação em tamanho e tal.

    Aguardaremos mais participações.

    Cumprimentos.
    avatar
    Convidado
    Convidado


    [Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo) Empty Re: [Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo)

    Mensagem  Convidado 14/2/2013, 22:18

    A solução... Criar uma nova classe

    Código:
    Option Compare Database
    Option Explicit
    Dim TTip As clsToolTip, TTip1 As clsToolTip

    Private Sub Form_Open(Cancel As Integer)
    Set TTip = New clsToolTip
    Set TTip1 = New clsToolTip
    On Error Resume Next
    Me.Combinação15.SetFocus

    With TTip
        Call .Create(Me)
        .DelayTime = 5000
        .SetToolTipTitle "Filtrar informações", 1
        ' ToolTip text colors
        .ForeColor = 8421504
        .BackColor = 15790320
        .SetToolText Me.txtFiltro, "Coloque o critério que deseja filtrar e clique em Ok. " + vbNewLine _
        + "O filtro irá verificar em todos os campos o critério informado"
        .SetToolText Me.cmdOk, "Exibe resultado da busca"
        .SetToolText Me.cmdReport, "Exibe o relatório com resultado das buscas"
    End With

    With TTip1
        Call .Create(Me)
        .DelayTime = 5000
        .SetToolTipTitle "xxxxxxxxxx", 1
        ' ToolTip text colors
        .ForeColor = 8421504
        .BackColor = 15790320
        .SetToolText Me.txtCount, "Total de Registros encontrados na busca"
    End With
    End Sub

    Cumprimentos.
    avatar
    Marcos Pinheiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 14/02/2013

    [Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo) Empty Re: [Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo)

    Mensagem  Marcos Pinheiro 12/3/2013, 11:52

    Bom dia PILOTO

    Poderia postar um exemplo já com
    o título funcional?

    Grato.
    avatar
    Convidado
    Convidado


    [Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo) Empty Re: [Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo)

    Mensagem  Convidado 12/3/2013, 12:52

    Eis:

    http://maximoaccess.forumeiros.com/t12241-tooltips-baloes-de-texto-explicativo#95512

    Cumprimentos.
    avatar
    Marcos Pinheiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 14/02/2013

    [Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo) Empty Re: [Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo)

    Mensagem  Marcos Pinheiro 12/3/2013, 13:12

    Muito obrigado PILOTO!
    avatar
    Convidado
    Convidado


    [Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo) Empty Re: [Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo)

    Mensagem  Convidado 5/4/2013, 18:05

    O Fórum agradece o Retorno.

    Conteúdo patrocinado


    [Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo) Empty Re: [Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo)

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 21:56