Carrusel de Imagenes en Visual Basic

4 ago. 2008

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

swadrin_nafondo

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?

1 Comentarios:

Anónimo dijo...

Privarse de nutrientes necesarios que tu cuerpo necesita no
es la respuesta. Las dietas de moda estn diseados
para fallar usted puede crear fcilmente su propia receta.
dietas para bajar de peso rapido
El dicho: Despus de una dieta Si no oz, cinco galletas saladas, el t negro o
caf. Algunas versiones permiten o requieren edulcorante artificial.


Los granos enteros son muy fibrosos y te llenan ms rpido.

No slo perder 10 kilos en un mes con una dieta y ejercicios.

bajar de peso Deluje protivnetnoStanje vnetja je
najpomembnej i razlog za razvoj artritisa, sr ne bolezni in tevila drugih avtoimunih bolezni.
cul es la mejor dieta para perder kilos rapido, Revisa
la siguiente informacin.

Related Posts Plugin for WordPress, Blogger...