ONDAS CIRCULARES EM UMA PICTUREBOX

PROGRAMADORVB6 25/08/2006 10:29:30
#167214
Por acaso alguém sabe com fazer ondas cirulares numa picture quando a seta do mouse Passa em cima da picture; ou seja : as ondas são de uma forma crescente apartir do ponto ond se posiciona a seta do mouse .
USUARIO.EXCLUIDOS 25/08/2006 10:37:46
#167216 
   Dim CX, CY, Radius, Limit   ' Declare variable.
   ScaleMode = 3   ' Set scale to pixels.
   CX = ScaleWidth / 2   ' Set X position.
   CY = ScaleHeight / 2   ' Set Y position.
   If CX > CY Then Limit = CY Else Limit = CX
   For Radius = 0 To Limit   ' Set radius.
      Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
   Next Radius


Esse código desenha circulos no fundo do formulario... não sei se ajuda, mas, já é alguma coisa...
LIONHEART 25/08/2006 10:46:19
#167220
vc tá querendo fazer aquele efeito de onde de agua ou só um circulo em volta do mouse?
LIONHEART 25/08/2006 10:54:41
#167225 Resposta escolhida
coloca isso no seu form.


Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.Cls
    Picture1.Circle (X, Y), 100, vbRed
End Sub



o vbRed é opcional. Pode ser qualquer cor, ou uma combinaçao de cores, ou nao declarado (=preto).


Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.Cls
    Picture1.Circle (X, Y), 100, RGB(150, 150, 150)
End Sub
LIONHEART 25/08/2006 11:35:33
#167241
:)
USUARIO.EXCLUIDOS 29/08/2006 11:15:11
#168104
Cara, o exemplo do LION tá muito legal, acho q está querendo demais, dê uma pesquisada no site por efeitos e veja se encontra um efeito parecido, dái é só adaptar para q ele seja acionado ao passar o mouse...flw
Tópico encerrado , respostas não são mais permitidas
Voltar