Aporte: Sacudir ventana tipo Mac OSX

[haggenx]

Que tal:

Deseo aportar éste código fuente para crear un bonito efecto para nuestras aplicaciones, en mac osx al iniciar sesión si ingresamos la contraseña incorrecta la ventana de login se sacude, bueno he creado algo similar para nuestras ventanas en vb.net, podemos sacudir la ventana en forma horizontal o vertical y así simular el efecto descrito, espero les guste, saludos:


'#### Purpose: Earth quake in the window!!!!!!!!!!!
'#### Created date: 03/03/2012
'#### Created by username: Juan Manuel Mar Hdz.
'#### Last modified date: 10/03/2012
'#### Last modified username: Juan Manuel Mar Hdz.
'#### Thanks to http://www.forosdelweb.com/wiki/Efec...n_el_navegador
Public Sub drawFxEarthQuakeToWindow(window As Form, direction As Long, Optional times As Long = 3)

Select Case direction

Case 1:
xdirectionearthquake(window, 3)

Case 2:
ydirectionearthquake(window, 3)

Case Else:
xdirectionearthquake(window, 3)

End Select

End Sub

'#### Purpose: Earth quake in the window!!!!!!!!!!!
'#### Created date: 03/03/2012
'#### Created by username: Juan Manuel Mar Hdz.
'#### Last modified date: 10/03/2012
'#### Last modified username: Juan Manuel Mar Hdz.
'#### Inspired in http://www.forosdelweb.com/wiki/Efec...n_el_navegador
'#### Thanks to http://bytes.com/topic/visual-basic-...leep-5-minutes
Private Sub xdirectionearthquake(window As Form, times As Long)

Dim i As Long, j As Long, space As Long = 2, movetimes As Long = 4
Dim winleft As Long, sleeptime As Long = 25

winleft = window.Left

For j = 1 To times - 1

window.Left = winleft

For i = 1 To movetimes

My.Application.DoEvents
window.Left = window.Left + (i * space)
System.Threading.Thread.Sleep(sleeptime)

Next

For i = movetimes To 1 Step -1

My.Application.DoEvents
window.Left = window.Left - (i * space)
System.Threading.Thread.Sleep(sleeptime)

Next

For i = 1 To (-1 * movetimes) Step -1

My.Application.DoEvents
window.Left = window.Left - (i * space)
System.Threading.Thread.Sleep(sleeptime)

Next

For i = (-1 * movetimes) To 1

My.Application.DoEvents
window.Left = window.Left + (i * space)
System.Threading.Thread.Sleep(sleeptime)

Next

Next

End Sub

'#### Purpose: Earth quake in the window!!!!!!!!!!!
'#### Created date: 10/03/2012
'#### Created by username: Juan Manuel Mar Hdz.
'#### Last modified date: 10/03/2012
'#### Last modified username: Juan Manuel Mar Hdz.
'#### Inspired in http://www.forosdelweb.com/wiki/Efec...n_el_navegador
'#### Thanks to http://bytes.com/topic/visual-basic-...leep-5-minutes
Private Sub ydirectionearthquake(window As Form, times As Long)

Dim i As Long, j As Long, space As Long = 2, movetimes As Long = 4
Dim winleft As Long, sleeptime As Long = 25

winleft = window.Top

For j = 1 To times - 1

window.Top = winleft

For i = 1 To movetimes

My.Application.DoEvents
window.Top = window.Top + (i * space)
System.Threading.Thread.Sleep(sleeptime)

Next

For i = movetimes To 1 Step -1

My.Application.DoEvents
window.Top = window.Top - (i * space)
System.Threading.Thread.Sleep(sleeptime)

Next

For i = 1 To (-1 * movetimes) Step -1

My.Application.DoEvents
window.Top = window.Top - (i * space)
System.Threading.Thread.Sleep(sleeptime)

Next

For i = (-1 * movetimes) To 1

My.Application.DoEvents
window.Top = window.Top + (i * space)
System.Threading.Thread.Sleep(sleeptime)

Next

Next

End Sub

[Aquaventus]

Excelente aporte haggenx. Me parece correcto que hayas colocado las fuentes de donde obtuviste una guia. Gracias por tu colaboración. Saludos!.

[haggenx]

que bueno que les es de utilidad

[Carlojas]

Excelente el aporte haggenx....




Saludos