Posição do Cursor no VB

[Krad Nale]

Olá...

Eu precisava, além de capturar a posição X Y do mouse, colocar um outro form exatamente nesta posição. Acontece que esta função retorna a posição em Pixels, então utilizei as funções "TwipsPerPixelX" e "TwipsPerPixelY" para proceder a conversão.

Infelizmente não obtive êxito, gostaria de saber se há uma biblioteca/função mais eficiente.

Por enquanto, continuo batendo a cabeça...

[Clemente Silva]

Use API. Coloque um Label no Form e o código abaixo:

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI

    X As Long

    Y As Long

End Type

Dim Posicao As POINTAPI

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    GetCursorPos Posicao

    CurrentX = 0

    CurrentY = 0

    Label1 = "X=" & CStr(Posicao.X) + ", Y=" & CStr(Posicao.Y)

End Sub

Editando: E para colocar o ponteiro do mouse nas coordenadas, use a API SetCursorPos:

Private Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long

Basta passar as coordenadas.

[Krad Nale]

Bem, parece que minha intenção não ficou muito clara...

Quero posicionar um outro form exatamente na posição X Y da tela... minha intenção na verdade é implementar um tipo de "ajuda flutuante", posicionando este segundo form (sem bordas) exatamente na posição que o usuário clicar.

Isso explica o porquê eu estar quebrando a cabeça pra converter de pixel pra twip.

Bem, vou utilizar uma outra maneira, por exemplo, restringindo a área onde o usuário pode clicar (uma imagem informativa, por exemplo, posicionando este outro form na posição Left/Top desta imagem, por exemplo)...

Valeu pela ajuda...

[Clemente Silva]

Veja então se é isso:

Coloque dois Forms: Form1 e Form2. Copie e cole o código abaixo no Form1.

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI

    X As Long

    Y As Long

End Type

Dim Posicao As POINTAPI

Private Sub Form_Click()

    Dim X As Single, Y As Single

   

    GetCursorPos Posicao

    CurrentX = 0

    CurrentY = 0

   

    X = (Posicao.X * Screen.TwipsPerPixelX)

    Y = (Posicao.Y * Screen.TwipsPerPixelY)

   

    If Not (Form2 Is Nothing) Then Unload Form2

   

    With Form2

        .Move X, Y

        .Show

    End With

End Sub

[]'s