botão para mover o formulário


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: botão para mover o formulário

MIRO SILVA

SÃO PAULO
SP - BRASIL

Postada em 03/01/2006 08:36 hs

Pessoal, quero fazer um botão que eu segure o mouse em cima e arraste o forme pelo monitor, alguem sabe de como fazer?

valeu

Argemiro Aguiar da Silva

Criativa Produtos e Serviços

5511 2135-9600

Geronimo

JOINVILLE
SC - BRASIL

Postada em 03/01/2006 13:13 hs

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 Sub ReleaseCapture Lib "User32" ()

Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lngReturnValue As Long
If Button = 1 Then
Call ReleaseCapture
lngReturnValue = SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End Sub

"O pior inimigo que você poderá encontrar será sempre você mesmo."

Geronimo

JOINVILLE
SC - BRASIL

Postada em 03/01/2006 13:17 hs

Veja estes outros exemplos :

http://www.codex.com.br/colaboracao/VerOK.asp?ID=2598

Ou:

A posição de um formulário pode ser controlada das seguintes maneiras:

Propriedades Left e Top: Ponha o valor em twips ou mude a

propriedade scalemode para a escala da sua preferência

Propriedade StartupPosition: O default é o canto superior

esquerdo, escolha 2- Centro da Tela ou 1- Centro do form pai

Método Move

"O pior inimigo que você poderá encontrar será sempre você mesmo."

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR