none
Como fazer o MakeLParam? RRS feed

  • Pergunta

  • Oi, eu tenho uma duvida a respeito de como fazer o LParam, pois eu vi varios diferentes para se usar com sendmessage(hwnd, wm_mousemove, ?, "LPARAM")

    tipo:

        Private Function MakeDWord(ByVal LoWord As Integer, ByVal HiWord As Integer) As Long
            MakeDWord = (HiWord * &H10000) Or (LoWord And &HFFFF)
        End Function
        Shared Function MakeLParam(ByVal LoWord As Integer, ByVal HiWord As Integer)As IntPtr
            Return (HiWord << 16) Or (LoWord And &HFFFF)
        End Function
    Function MakeDWord(ByVal wLo As Integer, ByVal wHi As Integer) As Long 
        MakeDWord = (wHi * 65536) + (wLo And &HFFFF&) 
    End Function 
    Public Function HiWord(wParam As Long) As Integer
    
       If wParam And &H80000000 Then
          HiWord = (wParam \ 65535) - 1
       Else
          HiWord = wParam \ 65535
       End If
    
    End Function
    
    
    Public Function LoWord(wParam As Long) As Integer
    
       If wParam And &H8000& Then
          LoWord = &H8000& Or (wParam And &H7FFF&)
       Else
          LoWord = wParam And &HFFFF&
       End If
    
    End Function
    Public Function MAKELPARAM(ByVal wLow As Long, ByVal wHigh As Long) As Long
            MAKELPARAM = LoWord(wLow) Or (&H10000 * LoWord(wHigh))
    End Function

    Como ele funciona, com 2 monitores que tem coordenada negativa como fazer?







    • Editado Jean Psdlw quinta-feira, 19 de janeiro de 2017 16:52
    quarta-feira, 18 de janeiro de 2017 16:07

Respostas

  • Bom dia Jean,

    Por gentileza, você poderia nos dar mais algumas informações sobre o que está desenvolvendo?

    Atenciosamente,


    Robson William Silva

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

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é 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.

    sexta-feira, 20 de janeiro de 2017 11:09
    Moderador

Todas as Respostas

  • Bom dia Jean,

    Por gentileza, você poderia nos dar mais algumas informações sobre o que está desenvolvendo?

    Atenciosamente,


    Robson William Silva

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

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é 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.

    sexta-feira, 20 de janeiro de 2017 11:09
    Moderador
  • Bom dia,

    Devido a falta de interação do autor dessa pergunta,

    essa thread está sendo fechada. Caso o problema ainda

    esteja ocorrendo, favor abrir uma nova thread.

    Atenciosamente,


    Robson William Silva

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

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é 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.

    segunda-feira, 23 de janeiro de 2017 11:35
    Moderador