Bom,levando pela lógica,ao clicar para arrastar um item no inventario ou na janela de magias,a janela iria junto com o item...

okabe escreveu:Bom,levando pela lógica,ao clicar para arrastar um item no inventario ou na janela de magias,a janela iria junto com o item...

Depende do lugar onde você coloca o código do inventário e no menu de magias, se você coloca aqui

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

Depois desse Else não irá ter problema nenhum.

Aqui Também Funcionou!
=S

Hum,peço desculpas,falha minha...

Não consigo fazer mecher a quest, quando ela vai mecher ela vai forma 2 e qndo solta o mouse ela some e não abre +

Código:

Private Sub picQuestLog_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

    SOffsetX = x
    SOffsetY = y

End Sub

Private Sub picQuestLog_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

Call MovePicture(frmMain.picQuestLog, Button, Shift, x, y)

End Sub

Muda o Scale Mode da janela para 3 - pixel

e.e eu ja sabia fazer isso ! e.e
+1 credito marlos !

porem tem 1 problema ...
ao vc por o inventario para dar para move-lo ao tentar mover 1 item nao vai conssegir pos a pic inventario vai se mover e o item nao .. a msm coisa com as skills, na hotbar e outro do tipo ! ;D
vc vai ter q arrumar isso


@edit: opa ja vi q tu ja arrumo, ja respondeu ali o cara ! ;D

Algum poderia explicar mais detalhadamente esse TUTORIAL? ja tem horas e horas que to tentando e não consigo nada.

Otimo tuto valeu ai marlos

Drowlife oq vc nao ta consseguindo fazer ?