the Closest places at work

Video que muestra el paisaje cercano a donde trabajo... chequen....

De viaje 3 y 4

Las ultimas partes de la serie "De viaje"

Tercera Parte...

De viaje 3

Cuarta Parte....

De viaje 4

De viaje la serie, Segunda Parte

SEgunda Parte del Viaje a Aguascalientes, si vieron la primera segunda esta mas ao menos pero la tercera esperenla..

http://www.livevideo.com

Carrusel de Imagenes en Visual Basic

Bien, ahora mostrare como hacer un pequeño carrusel en VB si asi es sencillo y facil, pueden usar su imaginacion si quieren pero lo hare lo mas facil que se pueda se aceptan comentarios..

Para hacer esto

Hacemos esto:

1 Abrimos nuevo y le ponemos nombre despues creamos nuestro espacio de trabajo es esto arrastramos nuestro objetos hacia el formulario ..

Necesitamos:

2 timer Por que dos bueno luego, esperen

y minimo tres image containers,

pueden ubicarlos donde sea me refiero a los timers, y las image bueno centrenlas si a si lo desean

Dentro de los objetos image pueden poner lo que quieran no importa o depende para que las vayan a usar...

Muy bien ahora creamos un modulo en nuestro proyecto ahi agregamos esto..

Public Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

Esta pequeña funcion agregara un efecto atu galeria....

despues le damos codigo al proyecto...

Despues entro Form_load del formulario hacemos esto..

Private Sub Form_Load() FrmPpal.Picture = LoadPicture("C:\SWADRIN\fondo2.jpg") Timer1.Enabled = True Timer2.Enabled = True Image2.Visible = True Image3.Visible = False Image4.Visible = False Image5.Visible = False Image6.Visible = False Image7.Visible = False Image8.Visible = False Image9.Visible = False Image10.Visible = False End Sub

Yo aqui agregue una imagen de fondo para que no se vea tan feo. y como ven le di la propiedad enabled a timer y la propiedad Visible a false a cada una de la Image que agregue...

Despues Vamos con los timers..

Teniendo ya los timers con las propiedades hacemos..

Private Sub Timer1_Timer() Dim rc As Long rc = FlashWindow(hwnd, True) End Sub con un Intervalo de 100 para que cada segundo empiece de nuevo bueno lo veran...

despues dentro del timer 2 y de su intevalo a 1000

haremos asi Private Sub Timer2_Timer() If Image2.Visible = True Then Image2.Visible = False Image3.Visible = True Else If Image3.Visible = True Then Image3.Visible = False Image4.Visible = True Else If Image4.Visible = True Then Image4.Visible = False Image5.Visible = True Else If Image5.Visible = True Then Image5.Visible = False Image6.Visible = True Else If Image6.Visible = True Then Image6.Visible = False Image7.Visible = True Else If Image7.Visible = True Then Image7.Visible = False Image8.Visible = True Else If Image8.Visible = True Then Image8.Visible = False Image9.Visible = True Else If Image9.Visible = True Then Image9.Visible = False Image10.Visible = True Else If Image10.Visible = True Then Image10.Visible = False Image2.Visible = True End If End If End If End If End If End If End If End If End If End Sub

Listo Pruebenlo y veran los efectos de hecho es un poco tedioso con tanto if pero funciona, bueno que les parecio SENCILLO NO?