[DUVIDA] MUDAR LABEL COM ARRASTAR DO MOUSE

SZBRUUNO 05/10/2009 02:06:45
#324403
Por Exemplo,eu queria saber como faço para segurar o botão do mouse em uma label,e quando eu o fizer,ela ir aumentando de valor se eu mover o mouse pra la > e diminuir se eu mover o mouse pra ca <

Muito Grato,abrassos,Bruno.
SZBRUUNO 05/10/2009 17:39:20
#324491
Desculpe pelo double post,mas eu pénsei um pouco e consegui resolver sozinho o meu problema.

Edit : Agora que eu vi o botão de edit,perdão ele ta bem escondidinho rsrs

Ai vai o Código :



  Private Sub lblimgla_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then


If comparei_x < X Then

If lblimgla.Caption < 640 Then
lblimgla.Caption = lblimgla.Caption + 1

End If



End If

If comparei_x > X Then
If lblimgla.Caption > 0 Then
lblimgla.Caption = lblimgla.Caption - 1

End If

End If



End If
comparei_x = X

End Sub


E Declarei uma variavel publica no começo do projeto

  Dim comparei_x As Integer


See Ya
ASHKATCHUP 05/10/2009 17:41:44
#324493
[EDITADO]

Desculpe, eu achei que era para aumentar o tamanho.
SZBRUUNO 05/10/2009 17:44:08
#324494
Opa,valeuzão esse raciocinio que voce usou vai me ser util também,no caso aqui era pra editar o valor dentro da label,estilo os menus do after effects (nao sei se voce ja chegou a ver xD) .

Obrigado pela ajuda [S20]
FOXMAN 18/03/2011 10:21:52
#368395
[txt-size=1]PUTZ, SE RESOLVEU O PROBLEMA PORQUE NÃO FECHOU O TÓPICO.......
[/txt-size]
Tópico encerrado , respostas não são mais permitidas
Voltar