|
|
Postada em 30/01/2009 09:10 hs
Olá alguem sabe com fazer o Evento MouseMove funcionar com o botão do mouse presionado ? |
|
|
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
|
|
Postada em 30/01/2009 10:02 hs
experimenta "juntar" com click mudando o estado do click mas eu acho q vc está tentando fazer o dragdrop não é isso? |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 30/01/2009 10:37 hs
qual efeito que desja obter? |
|
|
|
Gadu
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/01/2009 11:18 hs
Quero utilizar o MouseMove sobre um objeto , mas percebi que se o mouse estiver pressionado o evento "MOUSEMOVE" não funciona. |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 30/01/2009 11:57 hs
Gadu não sei como você etá fazendo, mas veja estes dois exemplos primeiro sem o uso de API 1-Declare duas variáveis long em general
Exemplo:
Dim H As Long
Dim V As long
2-No evento MouseDown do Controle coloque:
H = X
V = Y
3-No Evento MouseMove do controle coloque:
If Button=vbLeftButton then
Controle.Left = Controle.Left - (H - X)
Controle.Top = Controle.Top - (V - Y)
EndIf
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 30/01/2009 11:59 hs
com api Private Declare Function SendMessage Lib _
"user32" Alias "SendMessageA" (ByVal _
hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) _
As Long
Private Declare Function ReleaseCapture Lib _
"user32" () As Long
'No evento Mouse_Down
Dim rec&
If Button And 1 Then
ReleaseCapture
rec& = SendMessage(text1.hwnd, &HA1, 2, 0&)
End IF
no exemplo cima eu movo um textbox, mas basta alterar pro objeto desejado. |
|
|
|
