CORDEENADAS X,Y

FISH40 10/11/2009 15:25:27
#327351
Olá Pessoal,Como Eu Posso Obter as Cordeenadas do Mouse em TextBox?
HUGOSSOUZA 10/11/2009 15:31:47
#327355 Resposta escolhida
Quais as coordenadas que você precisa?
Explica melhor o seu problema para os colaboradores do VBM conseguirem te ajudar.

Ex.:
Alguns propriedades do TextBox ja possui as posições X e Y
Private Sub Text_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
     MsgBox X
End Sub
FISH40 10/11/2009 15:38:19
#327357
Tipo Quando Meche o Mause Ai na Text Box Mostra a Cordenada do X e o Y entende?
MARCELO.TREZE 10/11/2009 15:55:59
#327363
tudo de pende de onde vc deseja exibir as coordenadas

se é dentro do form

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
txtX.Text = X
txtY.Text = Y
End Sub



se é dentro de uma picturebox

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
txtX.Text = X
txtY.Text = Y
End Sub


e assim vai
HUGOSSOUZA 10/11/2009 16:00:42
#327364
Faz assim:

Adiciona 2 labels e um timer no seu form:

[txt-color=#006400][ô] Defina isso no General Declarations[/txt-color]
Private Declare Function GetCursorPos Lib [Ô]user32[Ô] (lpPoint As POINTAPI) As Long

Private Type POINTAPI
        x As Long
        y As Long
End Type

Dim a As POINTAPI
Dim b As Long
Dim c As Long


[txt-color=#006400][ô]Coloque isso no form
[/txt-color]Private Sub Form_Load()
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
   mousepos
End Sub

Private Sub mousepos()
   ret = GetCursorPos(a)
   b = a.x
   c = a.y
   Label1.Caption = b
   Label2.Caption = c
End Sub
FISH40 10/11/2009 16:10:18
#327367
Obrigado HUGOSSOUZA!
Tópico encerrado , respostas não são mais permitidas
Voltar