Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - 79137913

#971
HOLA!!!

Tengo una pequeña duda, hay posibilidades de "animar" los iFrames de tal manera que aparezcan* en x tiempo y desaparezcan* a los y segundos de aparecidos?

El iFrame contendria: Http://www.chalecosmdq.com.ar/clima/index.php

*Al decir aparezcan y desaparezcan me refiero a algun tipo de bucle temporal que vaya modificando el alfa del iframe.

GRACIAS POR LEER!!!
#972
HOLA!!!

Estoy con Raul, mejor srtcomp()

En cuanto a "<>" es un operador que significa distinto.

Osea: a <> b
Significa: a distinto de b

GRACIAS POR LEER!!!
#973
HOLA!!!

Nota: en el if de abajo:
1) Al final del if en vez de un Then o un GoTo hay otro if .
2) En el if ese en vez de poner text1.text = text2.text then : else : msgbox "no coinciden"
Podes poner text1.text <> text2.text then : msgbox "no coinciden"
O tambien not(text1.text = text2.text) then : msgbox "no coinciden"

GRACIAS POR LEER!!!
#974
HOLA!!!

Gracias Frog, solucionado.

GRACIAS POR LEER!!!
#975
HOLA!!!

Te dejo el codigo ;) ... igual era ver las propiedades del control nada mas  :¬¬.

Código (vb) [Seleccionar]
If ProgressBar1.Value = ProgressBar1.Max Then
   Call Form2.Show
   Unload Me
End If


GRACIAS POR LEER!!!
#976
HOLA!!!

Gracias Nov, solucionado.

GRACIAS POR LEER!!!
#977
HOLA!!!

Bueno, mas que el titulo no puedo decir, es simplemente eso dejo el codigo y un ejemplo.

Código (vb) [Seleccionar]
Private Sub Form_Load()
Dim hola() As String
hola = CharSplit7913("hola")
' Devuelve
' Hola(0) = "h"
' Hola(1) = "o"
' Hola(2) = "l"
' Hola(3) = "a"
End Sub

Private Function CharSplit7913(expression As String) As String()
   Dim X        As Long
   Dim lExp     As Long
   Dim ExpB()   As Byte
   Dim AuxArr() As String

   ExpB = expression
   lExp = UBound(ExpB)
   ReDim AuxArr(lExp)

   For X = 0 To lExp Step 2
       AuxArr(X / 2) = ChrW$(ExpB(X))
   Next

   ReDim Preserve AuxArr(lExp \ 2)

   CharSplit7913 = AuxArr

End Function



GRACIAS POR LEER!!!
#978
HOLA!!!

Mas facil, Mas caro Cámaras IP

http://es.wikipedia.org/wiki/C%C3%A1mara_IP

GRACIAS POR LEER!!!
#979
HOLA!!!

>:( bueno :/

GRACIAS POR LEER!!!
#980
HOLA!!!

Nota: La mayoria de los usuarios standard (los que son infectables) no modifican las opciones de seguridad de macro del Office. Por ende a la victima le aparecera un cartel que dice que microsoft office ha anulado los macros por cuestion de seguridad y tu macro no funcionara a no ser que el usuario los habilite manualmente.

GRACIAS POR LEER!!!