Mensajes

Gracias Karcrack!!
voy a echarle un vistazo...

Salu2!

Gracias BlackZeroX▓▓▒▒░░ !!!
Esta muy bien el tuyo!!
x cierto:

Si creais un boton y pones la llamada funciona!!
Y si soy sincero no se porque, se os ocurre algo?¿

Salu2!

Ya se lo que pasa...
A que lo habeis llamado asi:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
   Call Persiana(Me, 10, False, True, True)
End Sub
Si creais un boton y pones la llamada funciona!!
Y si soy sincero no se porque, se os ocurre algo?¿

Salu2!

mmmmmmmmm
comprendo, el caso es que a mi me funciona, bajaros el proyecto:


http://www.mediafire.com/?z12mynyjwgt (olvidadlo que tiene fallos, el code que esta posteado funciona bien)
A ver si asi...

Salu2!

mmmmmmm
q es exactamente lo que te pasa?¿
recuerda que:

IMPORTANTE: DEBEIS PONER LA PROPIEDAD BORDERSTYLE EN NONE

Seguramente lo que te pase es que se pliega, pero se queda asi, verdad¿?
Poniendo esto no deberias tener problemas...
Salu2!

Hola a todos, he estado trabajando para convertir tus Forms en persianas , si, como oyes, en persianas.
Ahora SI funciona, os lo prometo, sino, os devuelvo el dinero...
IMPORTANTE: DEBEIS PONER LA PROPIEDAD BORDERSTYLE EN NONE
Aqui va el code, (esto deberia estar en módulo):

Código (vb) [Seleccionar] Expandir


' ////////////////////////////////////////////////////////////////
' // *Autor: *PsYkE1* (miguelin.majo@gmail.com)                 //
' // *Podeis agrandar o reducir el codigo, siempre y cuando se  //
' // respete la autoria y se me comuniquen esos cambios.        //
' // *Agradecimientos a BlackZeroX.                             //
' // *Visita http://foro.rthacker.net                           //
' ////////////////////////////////////////////////////////////////

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub Persiana(miForm As Form, Vel As Integer, Desplegar As Boolean, Alto As Boolean _
, Acabar As Boolean)
   Dim Largo As Integer
   With miForm
       If Desplegar = True Then
           If Alto = True Then
               Largo = .Height
               .Height = 0
               While Not .Height >= Largo
                   .Height = .Height + 2
                   Sleep Vel
               Wend
           Else
               Largo = .Width
               .Width = 0
               While Not .Width >= Largo
                   .Width = .Width + 2
                   Sleep Vel
               Wend
           End If
       Else
           If Alto = True Then
               While Not .Height <= 10
                   .Height = .Height - 10
                   Sleep Vel
               Wend
           Else
               While Not .Width <= 10
                   .Width = .Width - 2
                   Sleep Vel
               Wend
           End If
       End If
   End With
   If Acabar = True Then End
End Sub

Bien, ahora para llamarlo desde un Form pondríamos esto:

Código (vb) [Seleccionar] Expandir


Private Sub Form_Activate()
   Call Persiana(Me, 5, False, True, True)
End Sub
( esta llamada se ejerceria sobre el Form actual, con una velocidad de 5(si quereis que vaya mas despacio aumentar el valor, no bajarlo ), para que se cierre la persiana, de abajo a arriba y que al completarse se finalice el programa)

Quizas alguien tenga alguna duda preguntar, que es gratis...

Salu2!

Por cierto, si se os ocurre alguna mejora, o funcion a añdirle seri genial!
Salu2!

[Nominado Premio elhacker.net 2010 a la ovbiedad del año]

Nominado Premio elhacker.net 2010 a la ovbiedad del año

JAJAJAJA

Si eso es lo que quiero pero no "responde" no son identicos los 2 codes?? 

No te rias de mi raul388, conteste eso porque el preguntó cual era l diferencia (onque podia haberlo expilcado un poco, tienes razon)...

Salu2!

Se me ocurre una cosa, pero seguramente sea un chapuzada:

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
WebBrowser1.Navigate "http://www.potenciaweb.net/radiotour/playerRadioMorris.php"
End Sub
Private sub Command1_Click()
WebBrowser1.Navigate ""
End sub
AJAJAJAJA
al menos deberia funcionar...

Si eso es lo que quiero pero no "responde" no son identicos los 2 codes?? 

La diferencia del tuyo y el mio es que yo utilizo la propiedad Scroll y tu utilizas Change...

No entendiste ninguna de las 2 dudas xD, pero gracias... Me explico, ese code que tu pusiste es casi igual al mio... perop si usas mi code podras ver que cambia de color el fondo, pero solo cuando sueltas el tambor de la scrollbar... yo quiero (y se que se puede) que cambie apenas mueva el scroll bar, no solo cunado lo suelte... Como hago?

Como te dice raul388 no se porque no te va, deberia funcionar a la perfeccion...
(A mi en mi casa me funciona)...

Salu2!