Informatica-prohibida: caida

<center>
<script async="" src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle" data-ad-client="ca-pub-6123383525339038" data-ad-slot="3276222169" style="display: inline-block; height: 280px; width: 336px;"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script>
<script async="" src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle" data-ad-client="ca-pub-6123383525339038" data-ad-slot="4728944563" style="display: inline-block; height: 60px; width: 468px;"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script></center>
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhsyjdA3niTATSEdJyJpCjsVa6OQj4MF06UKvIf-Li5PYbp4LeBMq8H34ZNLrVaJRi_62iwnkj1_4-QqCrzbI6Sn6bD_b0Kw4re_kjSQ5bHiuF8AOE8bgjPQXo22_B9liKz4dhX6P7oynee/s1600/avatar.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhsyjdA3niTATSEdJyJpCjsVa6OQj4MF06UKvIf-Li5PYbp4LeBMq8H34ZNLrVaJRi_62iwnkj1_4-QqCrzbI6Sn6bD_b0Kw4re_kjSQ5bHiuF8AOE8bgjPQXo22_B9liKz4dhX6P7oynee/s1600/avatar.jpg" /></a>Hola a todos. 
Vengo a traerles este efecto que se me ocurrió hoy y que quedo bastante bueno. 
Empecemos: 
Para este tuto hice uso del programa VB Shaped Form Creator, así que si no lo tienes consíganselo. 
Lo que hice fue crear una imagen de cada letra de "By Expermicid". Así: 
 
 
 
 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEghj8F9GQq07QQCUHN8WrAJ11Us2e_uk2dpTfdW7Q09NFptFG5oEPVk8pVlOMGheZ0GKPvl2O1vwuSp1kIbOuYtpmHqKjgCNMveIHuE5wvbUJ9u_N-bC3M-Uw-ujUKlhuTawpP7xE8FmTB9/s1600/Screenshot_2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="342" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEghj8F9GQq07QQCUHN8WrAJ11Us2e_uk2dpTfdW7Q09NFptFG5oEPVk8pVlOMGheZ0GKPvl2O1vwuSp1kIbOuYtpmHqKjgCNMveIHuE5wvbUJ9u_N-bC3M-Uw-ujUKlhuTawpP7xE8FmTB9/s1600/Screenshot_2.png" width="640" /></a></div>
Para la 'i' cree una sola imagen, no es necesario hacer dos. 
Ahora utilizando el VB Shaped creamos un form por cada letra y para esto son las imágenes, 
ayudándonos con ellas podemos obtener mucho más fácil las formas. 
Una vez hecho eso, abrimos VB6 y generamos un nuevo proyecto. 
Agregamos los form antes creados y uno más que llame Principal. 
Quedándonos en total 13 forms. 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgFY-8JHb9TjhktjtErM4uGE3eWts9UR5bxNUyVEgjukEzsR4YfyPJ2HrpJZhOlfZ5h8xeFL4ncTC8fmbsCKeActNolPS2hCOUmwloej1eolsIc77zrN0kVKyH2IqeEaxkJLJd1SxDI_0iN/s1600/Screenshot_3.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="318" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgFY-8JHb9TjhktjtErM4uGE3eWts9UR5bxNUyVEgjukEzsR4YfyPJ2HrpJZhOlfZ5h8xeFL4ncTC8fmbsCKeActNolPS2hCOUmwloej1eolsIc77zrN0kVKyH2IqeEaxkJLJd1SxDI_0iN/s1600/Screenshot_3.png" width="320" /></a></div>
Al código que te crea el VB Shaped le borre el del evento MouseDown de cada Form para que no 
se puedan mover con el mouse. 
Y les cambie el atributo BackColor por &H00FF0000&, que es un color azul. 
Bien ahora empecemos con el código. 
Al form Principal simplemente usando el evento Load lo posicionamos en el medio de la pantalla. 
------------------------------------ 
Private Sub Form_Load() 
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 
End Sub 
------------------------------------ 
Voy a tomar al form Emay como el de la cabecera (el que se ejecuta primero). 
Así que a los demás también solo lo que voy a utilizar por ahora va a ser el evento Load para 
posicionarlos. 
Form B: 
------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move r.Left + 500, -2500 
End Sub 
-------------------------- 
Form c: 
-------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
-------------------------- 
Move i.Left + i.Width - 60, -2500 
End Sub 
-------------------------- 
Form d: 
-------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move i2.Left + i2.Width - 120, -2500 
End Sub 
-------------------------- 
Form emin: 
-------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move p.Left + p.Width - 170, -2500 
End Sub 
-------------------------- 
Form i: 
-------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move m.Left + m.Width - 200, -2500 
End Sub 
-------------------------- 
Form i2: 
-------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move c.Left + c.Width - 200, -2500 
End Sub 
-------------------------- 
Form m: 
-------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move r.Left + r.Width - 120, -2500 
End Sub 
-------------------------- 
Form p: 
-------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move X.Left + X.Width - 200, -2500 
End Sub 
-------------------------- 
Form r: 
-------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move emin.Left + emin.Width - 120, -2500 
End Sub 
-------------------------- 
Form x: 
-------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move Emay.Left + Emay.Width - 70, -2500 
End Sub 
-------------------------- 
Form y: 
-------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move B.Left + B.Width, -2500 
End Sub 
-------------------------- 
Las primeras 2 líneas en todos los casos las crea en VB Shaped, lo único que agregue yo fue la línea 
de Move para posicionarlas en su lugar correcto horizontalmente y en todas le puse un -2500 en 
altura para que no se vean en la pantalla. 
 
Ahora vemos con el form Emay. 
Primero que nada le agrego un Timer. 
Con un valor de Interval de 500. 
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhNfk73lEsGqJLIjd_JQc72MqPy6f7hqsoEvbj2gKG-xBGL6nE7rIKwuCt-ybkrJtL3EyzwlfB5svfP8T906x5sBUW-9psG2UwG2ok5gsOMtoHYvPhGHpnDCboS23bNi-ijeRbdc52qGUZY/s1600/Screenshot_4.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhNfk73lEsGqJLIjd_JQc72MqPy6f7hqsoEvbj2gKG-xBGL6nE7rIKwuCt-ybkrJtL3EyzwlfB5svfP8T906x5sBUW-9psG2UwG2ok5gsOMtoHYvPhGHpnDCboS23bNi-ijeRbdc52qGUZY/s1600/Screenshot_4.png" /></a>Bien, ahora declaramos la Api para la función Sleep: 
--------------------- 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
--------------------- 
Ponemos esto en el evento Load: 
---------------------------------- 
Private Sub Form_Load() 
Dim nRet As Long 
nRet = SetWindowRgn(Me.hWnd, CreateFormRegion(1, 1, 0, 0), True) 
Move (Screen.Width - Width) \ 2 - 5000, -2500 
X.Show 
p.Show 
emin.Show 
r.Show 
m.Show 
i.Show 
c.Show 
i2.Show 
d.Show 
B.Show 
y.Show 
End Sub 
------------------------------------- 
Nuevamente las 2 primeras líneas las crea el VB Shaped, luego posicionamos el form y mostramos 
todos los demás. 
 
Ahora ponemos este Sub: 
----------------------------- 
Private Sub CaidaLibre(formulario As Form, altura As Long) 
Dim i As Integer 
Do While formulario.Top < altura 
formulario.Top = formulario.Top + 1 
DoEvents 
Sleep 0.5 
Loop 
i = 0 
Do While i < 2500 
formulario.Top = formulario.Top - 1 
i = i + 1 
DoEvents 
Sleep 0.5 
Loop 
i = 0 
Do While i < 2500 
formulario.Top = formulario.Top + 1 
i = i + 1 
DoEvents 
Sleep 0.5 
Loop 
--------------------------- 
End Sub 
-------------- 
Que es el que se va a encargar de hacer el efecto de Caída Libre. 
Se le pasan como parámetro un form y una altura limite. 
Y lo que hace es hacer 'caer' al form hasta la altura requerida y luego en los otros dos While hace 
un efecto de rebote. 
Y para finalizar usando el evento Timer del Timer: 
---------------------- 
<script async src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle"
 style="display:inline-block;width:234px;height:60px"
 data-ad-client="ca-pub-6123383525339038"
 data-ad-slot="5218675366"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script> 
Private Sub Timer1_Timer() 
CaidaLibre Emay, (Screen.Height - Height) \ 2 
CaidaLibre X, (Screen.Height - Height) \ 2 
CaidaLibre p, (Screen.Height - Height) \ 2 
CaidaLibre emin, (Screen.Height - Height) \ 2 
CaidaLibre r, (Screen.Height - Height) \ 2 
CaidaLibre m, (Screen.Height - Height) \ 2 
CaidaLibre i, (Screen.Height - Height) \ 2 
CaidaLibre c, (Screen.Height - Height) \ 2 
CaidaLibre i2, (Screen.Height - Height) \ 2 
CaidaLibre d, (Screen.Height - Height) \ 2 
CaidaLibre B, r.Top - B.Width - 300 
CaidaLibre y, B.Top 
Sleep 1000 
Unload B 
Unload c 
Unload d 
Unload Emay 
Unload emin 
Unload i 
Unload i2 
Unload m 
Unload p 
Unload r 
Unload X 
Unload y 
Principal.Show 
End Sub 
------------------ 
Vamos a ir llamando al Sub anteriormente creado con todos los forms. 
Y luego cerrarlos y mostramos el Form Principal, que sería nuestro programa. 
Y terminamos. 
Verificamos que nuestro proyecto se ejecute con el form Emay. 
Para esto vamos a Proyecto > Propiedad de Proyecto, y en Objeto inicial elegimos el form Emay. 
Espero que les guste. 
Saludos. cualquier duda que tengan comenten o deja un buen comentario en apoyo a mi trabajo 
No olviden visitar mi Web Oficial |<a href="http://no-mames.com/" style="background-color: white; color: #999999; font-family: Verdana, Geneva, sans-serif; font-size: 12px; line-height: 19.200000762939453px; text-decoration: none;">no-mames.com</a>| solo por apoyo ya que hay no hablo nada sobre programación hay es algo mas ligero y solo de pasatiempo así que espero tener su apoyo en mi humilde web y pues a un que sea me den un me gusta o algo a si bueno ya mucho bla bla bla  
Empezando con tutoriales super básicos apoyame con un me gusta si el post su de tu agrado 
<center><script async src="//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js"></script>

<ins class="adsbygoogle"
 style="display:inline-block;width:336px;height:280px"
 data-ad-client="ca-pub-6123383525339038"
 data-ad-slot="3276222169"></ins>
<script>
(adsbygoogle = window.adsbygoogle || []).push({});
</script></center>

Efecto Caída Libre visual basic 6.0

Hola a todos. Vengo a traerles este efecto que se me ocurrió hoy y que quedo bastante bueno. Empecemos: Para este tuto hice uso ...