MOVER EM TEMPO DE EXECUCAO

 Tópico anterior Próximo tópico Novo tópico

MOVER EM TEMPO DE EXECUCAO

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#987 - 14/12/2003 20:11:33

CO-HERDEIRO
SAO PAULO
Cadast. em:Dezembro/2003



Gostaria de saber se algum sabe como posso fazer para mover um bloco de objetos em tempo de execuo.

Tipo preciso que quando o cara arraste um label, as caixas de textos acompanhem o objeto, isso em tempo de execuo.

Maravilhoso, Glorioso, Justo, Santo, Vitorioso, Vencedor, em tudo es Triunfante, Curador, Libertador, Escudo, Defesa, Torre forte, Amigo em todo o tempo, Onipotente, Onipresente, Rei que em breve vem, Alfa, Omega, e Senhor ate o fim, Santo, e o Teu Nome.

Resposta escolhida #1016 - 15/12/2003 02:23:10

WEBMASTER
CURITIBA
Cadast. em:Janeiro/2001


Membro da equipe
Eu uso bastante esse cdigo num de meus programas favoritos: CoolBLiG 2.0, pra mover as barras de ferramentas pra onde o usurio quiser.

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 usurio move as barras clicando e arrastando com o boto 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 boto esquerdo, use If Button = 1 Then (...)

flw!

WebMaster - VBMania

Nao me mande e-mail com duvidas
Para isso e que existe o forum do VBMania !!!

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45