MOVER FORM COM LABEL

USUARIO.EXCLUIDOS 21/08/2007 09:13:56
#231781
Galera preciso saber o comando que move um form, com a label, pois tirei o controlbox e coloquei uma label, deve ser simples.
abraçoss
valewww
USUARIO.EXCLUIDOS 21/08/2007 09:43:22
#231786
como assim???
USUARIO.EXCLUIDOS 21/08/2007 09:48:38
#231789
sabe a barra normal do windows
onde tem o maximinizar o minimizar
estou criando uma com uma label, ela vai te a mesma funçao de movimentar o form pela tela
tendeu?
USUARIO.EXCLUIDOS 21/08/2007 10:30:13
#231806 Resposta escolhida
Amigo... eu não julgo ser tão simples não...

é meio complicado, pra dar um feito perfeito não é tão simples quanto parece.


Porém existem controles já prontos que fazem isto, eu uma vez achei um tal de Rotative Label em algum lugar por aí, eu particularmente gostava dele, mais não consegui encontra-lo agora.


Vou dar uma procurada em uns controles por aqui, e volto a postar.
USUARIO.EXCLUIDOS 21/08/2007 10:36:18
#231810
Marcelo, é como eu falo, pra quem ve um sistema ja pronto parece ser simples, kkkkkkkkk
Realmente nao é tao simples, mas valew a dica do rotative irei pesquisar sobre, mas se voce acha posta sim ficarei grato.
agradeço des de ja
abraços
USUARIO.EXCLUIDOS 21/08/2007 10:50:35
#231824
Então cara... Não achei o componente...
Aí tentei fazer aqui, achei que era mais complicado! rsrs

Da uma olhada!!


Dim Mover As Boolean
Dim PosX As Long
Dim PosY As Long

[c]Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Mover = True
    
    PosX = Me.Width - (Me.Width - X)
    PosY = Me.Height - (Me.Height - Y)
End Sub


Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Mover Then
        Me.Top = Me.Top + Y - PosY
        Me.Left = Me.Left + X - PosX
        
        DoEvents
    End If
End Sub


Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Mover = False
End Sub

[/c]
USUARIO.EXCLUIDOS 21/08/2007 11:04:20
#231831
Ahhhhhhhh cara que preza kkkkkkkkkkkkk

Ficou otimo, parabens marcelo e mais uma vez agradeço pela ajuda.
Abraços.
USUARIO.EXCLUIDOS 21/08/2007 11:14:06
#231837
Esquenta não cara... qualquer coisa posta ae!!


Abs!
Tópico encerrado , respostas não são mais permitidas
Voltar