none
Problema No Scroll do VB6 RRS feed

  • Pergunta

  • Cria-se o MesflexGrid e Preenche

    Depois o MsflexGrid com os Botoes criados

    O Problema esta quando movimento o Scroll do Msflexgrid.

    Gostaria de saber se tem alguma forma de fazer os botoes acompanhar a coluna em que o botão se referencia, ja tentei algumas alternativas mas ou os botoes somem ou o Msflexgrid não deixa movimento a Scroll para ver o restante das opções...

    Desde ja agradeço pela atenção

    Ronaldo


    ronanico

    segunda-feira, 10 de agosto de 2015 13:06

Respostas

  • Boa tarde Romanico, Referência: Thread

    Isto não é mais suportado em vb6, siga esse passo a passo para contornar o problema.

    Addin DLL para resolver o problema:
    http://support.microsoft.com/kb/837910

    Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
    
    Public Function WheelMove(DistanceDownUp As Long) 
    'DistanceDownUp Is Number of line to down(+5) or up (-5) 
    Dim MOUSEEVENTF_WHEEL As Long MOUSEEVENTF_WHEEL = &H800 
    Call mouse_event(MOUSEEVENTF_WHEEL, 0, 0, DistanceDownUp, 0)
    
    End Function
    

    Atenciosamente, Roberto Alves

    • Editado Roberto AB Filho quinta-feira, 13 de agosto de 2015 21:01
    • Marcado como Resposta Marcos SJ sexta-feira, 14 de agosto de 2015 13:31
    quinta-feira, 13 de agosto de 2015 20:59

Todas as Respostas

  • Bom dia Ronanico,

    Tudo bem?

    Peço que verifique as informações contidas nesta thread.

    Poderia explicar de outra maneira o que está tentando fazer?

    Atenciosamente


    Marcos Roberto de Souza Junior

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.


    • Editado Marcos SJ terça-feira, 11 de agosto de 2015 12:59
    terça-feira, 11 de agosto de 2015 12:57
  • Boa tarde Marcos Roberto

    Na figura 2 os botoes são criados em tempo de execução.

    Quando eu movimento o msflexgrid para a esquerda ou direita ele teria q acompanhar a celula.

    Ja tentei de todas as formas, mas sempre q se movimento o msflexgrid ou os botoes desaparecem ou trava-se o msflexgrid.

    Gostaria de saber se ha alguma forma de que os botoes acompanhem a celula nesta movimentação.


    ronanico

    terça-feira, 11 de agosto de 2015 17:20
  • Boa tarde Romanico, Referência: Thread

    Isto não é mais suportado em vb6, siga esse passo a passo para contornar o problema.

    Addin DLL para resolver o problema:
    http://support.microsoft.com/kb/837910

    Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
    
    Public Function WheelMove(DistanceDownUp As Long) 
    'DistanceDownUp Is Number of line to down(+5) or up (-5) 
    Dim MOUSEEVENTF_WHEEL As Long MOUSEEVENTF_WHEEL = &H800 
    Call mouse_event(MOUSEEVENTF_WHEEL, 0, 0, DistanceDownUp, 0)
    
    End Function
    

    Atenciosamente, Roberto Alves

    • Editado Roberto AB Filho quinta-feira, 13 de agosto de 2015 21:01
    • Marcado como Resposta Marcos SJ sexta-feira, 14 de agosto de 2015 13:31
    quinta-feira, 13 de agosto de 2015 20:59