[SRC] MSN Horóscopo

[seba123neo]

Hola, hoy estaba aburrido y hice este programita para sacar el Horóscopo de la pagina principal de MSN...trate de hacerlo igual a como se ve en la pagina principal:



Descargar: MSN Horóscopo

saludos.

[BlackZeroX]

a mi me a gustado aun que le quite el botón ver por que me molestaba estar cambiando y dando click a dicho boton para ver mi horóscopo, le puse la acción de que se visualice el horóscopo 'X' con girar la scroll del mouse o al secionar el horóscopo solo si esta con el foco en el ComboBox.

Solo modifique estos dos procesos quitando el proceso Private Sub cmdBuscar_Click()

Código (vb) [Seleccionar] Expandir



Private Sub cboSignos_Click()
Static SignoPrev As String
   If Not SignoPrev = cboSignos.Text Then
       Call oHoroscopo.DescripcionSigno(cboSignos.ListIndex)
   
       lblDescripcion.Caption = oHoroscopo.Descripcion
       lblTitulo.Caption = cboSignos.Text
   
       Set picSignos.Picture = oHoroscopo.ImagenSigno
       SignoPrev = cboSignos.Text
   End If
End Sub

Private Sub Form_Load()
   Set oHoroscopo = New cHoroscopo
   
   Call CargarSignos
   Call cboSignos_Click
End Sub



Saludos

Temibles Lunas!¡.
.

[seba123neo]

gracias ░▒▓BlackZeroҖ▓▒░ inicialmente lo habia realizado asi, es mucho mas rapido, pero como lo quise hacer igual a la pagina del MSN, y solo con el boton se puede.

saludos.

[ssccaann43 ©]

Bueno, bueno seba... Esta espectacular... Yo pense en armar uno con las Widgets, de hecho estoy con un Directorio tipo Iphone, pero bueno el laburo me consume mucho tiempo y ya los clientes no me dejan ni respirar... De igual manera apenas tenga algo, lo posteo... Saludos seba...

[Dessa]

Está bueno Seba, me gustó.