MOVER EM TEMPO DE EXECUCAO
Gostaria de saber se alguém sabe como posso fazer para mover um bloco de objetos em tempo de execução.
Tipo preciso que quando o cara arraste um label, as caixas de textos acompanhem o objeto, isso em tempo de execução.
Eu uso bastante esse código num de meus programas favoritos: CoolBLiG 2.0, pra mover as barras de ferramentas pra onde o usuário quiser.
Nesse trecho, o usuário move as barras clicando e arrastando com o botão direito. Isso, de exemplo, porque você deve inserir cada objeto dentro do trecho:
obj.Left = obj.Left + X
obj.Top = obj.Top + Y
Pra trocar pelo botão esquerdo, use If Button = 1 Then (...)
flw!
Private Sub fraInf_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
cmdInf.Left = cmdInf.Left + X
cmdInf.Top = cmdInf.Top + Y
fraInf.Left = fraInf.Left + X
fraInf.Top = fraInf.Top + Y
End If
End Sub
Nesse trecho, o usuário move as barras clicando e arrastando com o botão direito. Isso, de exemplo, porque você deve inserir cada objeto dentro do trecho:
obj.Left = obj.Left + X
obj.Top = obj.Top + Y
Pra trocar pelo botão esquerdo, use If Button = 1 Then (...)
flw!
Tópico encerrado , respostas não são mais permitidas