Mover Formulario

[§uiciDa£]

tipo assim galera, eu tnho um formulario com frmBorder = none, e eu gostaria de q quando o usuario clicase e arasta-se o formulario se mexese...eu já tentei no evento mousemove usa:

if e.button = 1 then
me.left = e.x
....

mais num funfo, alguém tm otra dica ?

t+

[William Rodrigues]

Salve!

Declare essas duas APIs.

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

E no evento Mouse_Down

Dim rec&
If Button And 1 Then
  ReleaseCapture
  rec& = SendMessage(Me.hwnd, &HA1, 2, 0&)
End IF

Vê se ajuda cara

Abraços,

William Rodrigues

[§uiciDa£]

poxa cara, eu to suando o vb.net 2003 nele não tm algumas dessas funções... tipo hwnd essas coisas... e quando eu peço pra ele converde vb6 pra .net e ele também num converte...

se você souber como se faz em .net me avisa bl

t+

[Graymalkin]

  §uiciDa£ disse:

poxa cara, eu to suando o vb.net 2003 nele não tm algumas dessas funções... tipo hwnd essas coisas... e quando eu peço pra ele converde vb6 pra .net e ele também num converte...

se você souber como se faz em .net me avisa bl

t+

Tem um tópico com a solução para isso (para .NET mesmo). Dê uma procurada nesta sala mesmo.

Abraços,

Graymalkin

[§uiciDa£]

aee Gray, te juro cara, mais do q eu pesquisei num da :|

pesquisei com todos as palavras possiveis, none, border, frmBorder, net + border, e nmum axei nd :|

se você souber po codigo... por favor me passa =)

brigadaoo aew

[Graymalkin]

Foi só procurar pelo nome ReleaseCapture, que é uma das APIs utilizadas no exemplo acima (e que é utilizada para o mesmo próposito no .NET): http://scriptbrasil.com.br/forum/index.php...=releasecapture

Além disso, o título do tópico é bem sugestivo: "Movimentar Janela Do Form .net"

Abraços,

Graymalkin

[§uiciDa£]

puxa cara, o codigo num rolo, tipo eele deu erro de varaiavel não atribuida...

    If e.Button = MouseButtons.Left Then
           ReleaseCapture()
           SendMessage(Me.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0)
       End If

wlw fala q o WM_NCLBUTTONDOWN e o HTCAPTION não estao declarados, eu tntei declaralos como integer, string, e de nenhum jeito funfo

se sabe o q pode se vei ?

[Graymalkin]

De fato, faltaram os valores das constantes, a saber:

WM_NCLBUTTONDOWN = &HA1
HTCAPTION = 2

Abraços,

Graymalkin

[§uiciDa£]

vlwww ae cara, funfo certim

t+

[Guest --marcio klein --]

alguém sabe como fazer isso no vb 5 estoou usando este alguém sabe como mover a janel do forma sem borda no vb 5???????????????????

[kuroi]

devia funcionar igual, qual o problmea você esta tendo??

[Guest --marcio --]

ele da erros . diz que não foi declarado varias inscrições do codigo. alguém poderia em orientar ...como fazer isso.

sou novo em vb

[Guest --marcio klein --]

  --marcio -- disse:

ele da erros . diz que não foi declarado varias inscrições do codigo. alguém poderia em orientar ...como fazer isso.

sou novo em vb

o erro que falo é este

Public Class Form1

Private Declare Function SendMessage Lib _

"user32" Alias "SendMessageA" (ByVal _

hWnd As Long, ByVal wMsg As Long, _

ByVal wParam As Long, ByVal lParam As Any) _

As Long

Private Declare Function ReleaseCapture Lib _

"user32" () As Long

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub ate aqui tudo bem

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

Dim rec&

If Button And 1 Then aqui aparece esta palavra sublinhada dizendo erro

ReleaseCapture()

rec& = SendMessage(Me.hwnd, &HA1, 2, 0&) aqui tambem aparece sublinhado com a mensagem d eerro

End If

End Sub

End Class

podem me ajudar corrigindo o erro e postando aqui pra mim

[kuroi]

qual a(s) linha(s) e a descricao(oes) do(s) erro(s)??

[Guest --marcio klein --]

Dim rec&

If Button And 1 Then

ReleaseCapture()

rec& = SendMessage(Me.hwnd, &HA1, 2, 0&)

End If

End Sub

bom o if button aparece sublinhado

e no sendmessage(me.hwnd este aqui tambem fica sublinhado e quando exporta o form da os erros dizendo que estas duas palabras que eu citei aqui nao0 estao declaradas

[kuroi]

mas Graymalkin, sera que precisa disso td mesmo?? em vb fiz assim:

Dim xx As Integer, yy As Integer
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    xx = X
    yy = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Me.Left = (Me.Left - xx) + X
        Me.Top = (Me.Top - yy) + Y
    End If
End Sub[/code]

e funciona legal.
e em c# fiz assim:
[code]public struct MoveForm
    {
        public int X;
        public int Y;
    }

....
....
...

    public partial class frmZero : Form
    {

        MoveForm mv = new MoveForm();

        #region Movendo o Form
        private void frmZero_MouseDown(object sender, MouseEventArgs e)
        {
            if (e.Button != MouseButtons.Left) return;
            mv.X = this.Left - MousePosition.X;
            mv.Y = this.Top - MousePosition.Y;
        }
        private void frmZero_MouseMove(object sender, MouseEventArgs e)
        {
            if (e.Button == MouseButtons.Left)
            {
                this.Left = mv.X + MousePosition.X;
                this.Top = mv.Y + MousePosition.Y;
            }
        }
        #endregion
    }

e também funciona legal...

qual a vantagem de usar essas APIs??

[Graymalkin]

Realmente deu certo, kuroi. Eu já havia tentado isso antes (sem as funções da API Win32) e não tinha funcionado. Bom, acho que isso vale um tópico na seção Dicas e Tutoriais! :)

Parabéns pelo código!

Abraços,

Graymalkin

[kuroi]

  Graymalkin disse:

Realmente deu certo, kuroi. Eu já havia tentado isso antes (sem as funções da API Win32) e não tinha funcionado. Bom, acho que isso vale um tópico na seção Dicas e Tutoriais! :)

Parabéns pelo código!

hahaha valeu. na verdade é bem simples, apesar de que me enrolei um poco pra fazer.

tópico criado aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=105586

[Graymalkin]

  kuroi disse:

  Graymalkin disse:

Realmente deu certo, kuroi. Eu já havia tentado isso antes (sem as funções da API Win32) e não tinha funcionado. Bom, acho que isso vale um tópico na seção Dicas e Tutoriais! :)

Parabéns pelo código!

hahaha valeu. na verdade é bem simples, apesar de que me enrolei um poco pra fazer.

tópico criado aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=105586

Beleza, mas coloca também a versão .NET (na respectiva sala, é claro).

Abraços,

Graymalkin

[kuroi]

ta la: http://scriptbrasil.com.br/forum/index.php?showtopic=105640