MOVER FORMULARIO

USUARIO.EXCLUIDOS 08/03/2005 15:10:37
#71737
oi gente o meu problema é o seguinte

eu tenho um form sem borda mas eu queria q quando a pessoa clicar na barra de titulo minha ela consiga movr o form então eu queria mesmo o codigo inteiro blz flwz
USUARIO.EXCLUIDOS 08/03/2005 15:18:00
#71741
que barra de título? se vc tirar a borda não tem...
THIAGO.CESAR 08/03/2005 15:24:19
#71744
Gostaria até de saber de onde tirei isso aqui para poder citar a fonte... Deve ter sido aqui no VBMania mesmo, mas como não consegui achar o link, segue o código.

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

Public Sub Mover(m_hWnd As Long, Button As Integer)
If Button And 1 Then
  ReleaseCapture
  SendMessage m_hWnd, &HA1, 2, 0&
End If
End Sub


Aqui é o código para mover, deve ser no evento MouseDown do form ou de outro objeto.
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Mover Me.hWnd, Button
End Sub
CLEVERTON 08/03/2005 23:25:30
#71823
não seria a propriedade
Moveable do form
mude ela para false

Moveable = false
WEBMASTER 09/03/2005 00:03:55
#71827
ei, ve se isso ajuda, eu criei um form e 1 commandbutton com nome d "Command1" e fiz o seguinte:

Option Explicit
Public X1, Y1, Ind

Private Sub Command1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
X1 = X
Y1 = Y
Ind = Index
End Sub

Private Sub Command1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Command1(Ind).Left = Command1(Ind).Left - (X1 - X)
Command1(Ind).Top = Command1(Ind).Top - (Y1 - Y)
End If
End Sub



agora eh soh clicar e arrasta o botão pelo form, e o mesmo vc pode fazer com esse comando no form (mouse move e mouse down e up etc)
espero ter ajudado, flw
Tópico encerrado , respostas não são mais permitidas
Voltar