elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [Source] Water Image - Efecto para mostrar logos o imagenes
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Source] Water Image - Efecto para mostrar logos o imagenes  (Leído 4,285 veces)
Mad Antrax
Colaborador
***
Desconectado Desconectado

Mensajes: 2.164


Cheats y Trainers para todos!


Ver Perfil WWW
[Source] Water Image - Efecto para mostrar logos o imagenes
« 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!!


En línea

No hago hacks/cheats para juegos Online.
Tampoco ayudo a nadie a realizar hacks/cheats para juegos Online.
DrakoX

Desconectado Desconectado

Mensajes: 191



Ver Perfil
Re: [Source] Water Image - Efecto para mostrar logos o imagenes
« Respuesta #1 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


En línea

~~
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.981


Ver Perfil WWW
Re: [Source] Water Image - Efecto para mostrar logos o imagenes
« Respuesta #2 en: 8 Abril 2007, 19:41 pm »

Joer Mad, q creatividad con los pixel's la tuya  :xD gracias por el ejemplo  ;D
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Big Update 22/03 PNG Image and Imagelist controls (SOURCE) « 1 2 »
Programación Visual Basic
cobein 12 6,603 Último mensaje 18 Abril 2008, 06:21 am
por SERBice
Inconveniente para mostrar imágenes obtenidas con cURL
PHP
4rkn63l 3 3,252 Último mensaje 29 Noviembre 2011, 03:29 am
por 4rkn63l
Cargar y mostrar image BMP c++
Programación C/C++
razormta 3 3,226 Último mensaje 1 Marzo 2014, 02:54 am
por razormta
convertir o mostrar binary image de la base de datos
PHP
gAb1 0 871 Último mensaje 24 Septiembre 2014, 00:45 am
por gAb1
Gridview para mostrar imágenes storage Firebase
Java
rubia28 1 1,697 Último mensaje 17 Diciembre 2021, 22:01 pm
por rub'n
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines