Sistema de mover janelas pela Gui
Bom galera fiz esse sistema para mim usar porem vi que todos os tutoriais que tinha sobre isso não funcionava e era muito alto o novel de pessoas procurando o sistema então decidi postar aqui, só peço que se for usar de os créditos a mim e claro não postar em nenhum outro lugar o sistema é exclusivo da ALDEIARPG.
Tutorial:
Bom vou demonstrar na picCharacter ai vocês terminam nas outras Pics.
1° - Vamos encontrar a sub da picCharacter então procure:
- Código:
Private Sub picCharacter_Click()
Feito isso substitua ela por essa:
- Código:
Private Sub picCharacter_MouseDown(Button As Integer, Deslocamento As Integer, X As Single, Y As Single)
depois de ter substituído logo abaixo vai ter esse código:
- Código:
Dim EqNum As Long
Depois do código acima coloque essas duas linhas:
- Código:
SOffsetX = X
SOffsetY = Y
2° - Nesse mesmo mod procure essa sub que por visto fica um pouco abaixo da que usamos no 1° passo:
- Código:
Private Sub picCharacter_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Depois de ter encontrado coloque o código a seguir logo abaixo:
- Código:
Call MovePicture(frmMain.picCharacter, Button, Shift, X, Y)
É só isso agora basta presta atenção na linhas adicionadas e colocar nas outras pics, epero que tenha gostado.
Créditos: Kielleds