|
Título: [Source] Water Image - Efecto para mostrar logos o imagenes Publicado por: Mad Antrax en 8 Abril 2007, 19:17 pm He programado este sencillo efecto en VB, a partir de una imagen te genera otra igual pero con los píxeles más grandes y aleatórios, dando un efecto de "marca de agua" muy particular, esto lo veo apropiado para poner en las típicas ventanas de about o acerca de... de nuestros proyectos.
Código: Private Sub Form_Load() On Error Resume Next Picture2.Height = Picture1.Height Picture2.Width = Picture1.Width 'Cargamos 100 Timer's y los activamos For i = 0 To 100 'Bajar el valor para hacerlo mas lento Load Timer1(i) Timer1(i).Enabled = True Next i End Sub Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'Pintamos por donde movemos el mouse On Error Resume Next Randomize Picture2.ForeColor = Picture1.Point(X, Y) Picture2.PSet (X, Y) Picture2.DrawWidth = 5 End Sub Private Sub Picture2_Click() 'Borramos si hacemos click Picture2.Cls End Sub Private Sub Timer1_Timer(Index As Integer) 'Pintamos puntitos aleatórios On Error Resume Next Randomize a = Int((Rnd * Picture1.Width) + 1) b = Int((Rnd * Picture1.Height) + 1) Picture2.ForeColor = Picture1.Point(a, b) Picture2.PSet (a, b) Picture2.DrawWidth = Int((Rnd * 5)) End Sub Si no os funciona, bajaros el código completo que está adjunto a este post (solo usuarios registrados), funciona 100% Saludos!! Título: Re: [Source] Water Image - Efecto para mostrar logos o imagenes Publicado por: DrakoX en 8 Abril 2007, 19:31 pm etsa bueno,
la verda nunk se me hubiese ocurrido hacer algo de esto xD ni por mas aburrido que este :P jaja salu2 y gracias Título: Re: [Source] Water Image - Efecto para mostrar logos o imagenes Publicado por: ~~ en 8 Abril 2007, 19:41 pm Joer Mad, q creatividad con los pixel's la tuya :xD gracias por el ejemplo ;D
|