[Ajudar] mover janela

goldslash escreveu:Hum não entendi.

De que janela está falando??
É com vb lá nos forms creio eu.

eu sempre intendo esses kara pq eu tbem ja tiveh as mesma duvida kkkkkkkkkkk

tah vamo la


Abra o Cliente

1 - Vá até Ex:

Código:

Private Sub picParty_MouseDown


Obs.:Tem que ter o "Nome da janela" + _MouseDown

2 - Coloque o código:

Código:

SOffsetX = X
    SOffsetY = Y

3 - Vá até Ex:
Private Sub picParty_MouseMove

Obs.:Tem que ter o "Nome da janela" + _MouseMove

4 - Coloque o código:

Código:

Call MovePicture(frmMain."Nome da janela", Button, Shift, X, Y)


(Substitua o "Nome da janela" pelo o nome da pic)

Obs.: Se a janela não tiver o "MouseMove", como o picOptions por exemplo, você tem que criar o picOptions_MouseDown e o picOptions_MouseMove:

Código:

Private Sub picOptions_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    SOffsetX = X
    SOffsetY = Y

End Sub

Private Sub picOptions_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Call MovePicture(frmMain.picOptions, Button, Shift, X, Y)

End Sub


Obs2.:Em picInventory_MouseMove o código:

Código:

Call MovePicture(frmMain.picInventory, Button, Shift, X, Y)


Deve ser colocado após:

Código:

If DragInvSlotNum > 0 Then
        If InTrade > 0 Then Exit Sub
        If InBank Or InShop Then Exit Sub
        Call BltInventoryItem(x + picInventory.Left, y + picInventory.top)
    Else

Irá ficar assim:

Código:

If DragInvSlotNum > 0 Then
        If InTrade > 0 Then Exit Sub
        If InBank Or InShop Then Exit Sub
        Call BltInventoryItem(x + picInventory.Left, y + picInventory.top)
    Else
        Call MovePicture(frmMain.picInventory, Button, Shift, x, y)
        InvNum = IsInvItem(x, y)

Obs3.:Em picSpells_MouseMove o código

Código:

Call MovePicture(frmMain.picSpells, Button, Shift, X, Y)


Deve ser colocado após:

Código:

If DragSpell > 0 Then
        Call BltDraggedSpell(x + picSpells.Left, y + picSpells.top)
    Else

Créditos:
Valentine (por faze eu acho )
eu Dazateam por postar

Qualquer duvida só posta aki que eu tih ajudo ou otra pessoa sei la

dazateam escreveu:

goldslash escreveu:Hum não entendi.

De que janela está falando??
É com vb lá nos forms creio eu.

eu sempre intendo esses kara pq eu tbem ja tiveh as mesma duvida kkkkkkkkkkk

tah vamo la


Abra o Cliente

1 - Vá até Ex:

Código:

Private Sub picParty_MouseDown


Obs.:Tem que ter o "Nome da janela" + _MouseDown

2 - Coloque o código:

Código:

SOffsetX = X
    SOffsetY = Y

3 - Vá até Ex:
Private Sub picParty_MouseMove

Obs.:Tem que ter o "Nome da janela" + _MouseMove

4 - Coloque o código:

Código:

Call MovePicture(frmMain."Nome da janela", Button, Shift, X, Y)


(Substitua o "Nome da janela" pelo o nome da pic)

Obs.: Se a janela não tiver o "MouseMove", como o picOptions por exemplo, você tem que criar o picOptions_MouseDown e o picOptions_MouseMove:

Código:

Private Sub picOptions_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    SOffsetX = X
    SOffsetY = Y

End Sub

Private Sub picOptions_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Call MovePicture(frmMain.picOptions, Button, Shift, X, Y)

End Sub


Obs2.:Em picInventory_MouseMove o código:

Código:

Call MovePicture(frmMain.picInventory, Button, Shift, X, Y)


Deve ser colocado após:

Código:

If DragInvSlotNum > 0 Then
        If InTrade > 0 Then Exit Sub
        If InBank Or InShop Then Exit Sub
        Call BltInventoryItem(x + picInventory.Left, y + picInventory.top)
    Else

Irá ficar assim:

Código:

If DragInvSlotNum > 0 Then
        If InTrade > 0 Then Exit Sub
        If InBank Or InShop Then Exit Sub
        Call BltInventoryItem(x + picInventory.Left, y + picInventory.top)
    Else
        Call MovePicture(frmMain.picInventory, Button, Shift, x, y)
        InvNum = IsInvItem(x, y)

Obs3.:Em picSpells_MouseMove o código

Código:

Call MovePicture(frmMain.picSpells, Button, Shift, X, Y)


Deve ser colocado após:

Código:

If DragSpell > 0 Then
        Call BltDraggedSpell(x + picSpells.Left, y + picSpells.top)
    Else

Créditos:
Valentine (por faze eu acho )
eu Dazateam por postar

Qualquer duvida só posta aki que eu tih ajudo ou otra pessoa sei la

dazateam escreveu:dexa eu v c eu intendi vc arrasta ela pra picscreen (tela do game) ?

ai ela some ?