Mensajes

No se si específicamente ese si. Pero se debería, de todas formas, yo te recomendaría pasarte a la CS4 como mínimo ^^

No hay forma de rellenarlo automáticamente (o al menos nunca, repito, nunca, lo encontré) en el WebBrowser comun. La única formas es enviarle click y que el usuario elija el archivo (tal vez se podría hookear o hacer click automático )

Busca el flag EXPORT C (creo que era asi )

Buenas :3

Estoy acostumbrado a abrir chromium y entrar directamente a algunos links que estan en la barra de marcadares al azar al mas estilo ninja (Entrar y abrir los 5 primeros marcadores en 5 pestañas nuevas en 1 solo segundo ). Ademas de que, por ej cuando entro al foro, veo mis temas no leidos, los que me interesen los abro en una nueva pestaña, una vez lista la lista empiezo a leer y cuando voy a alguna pestaña que deje cargando... esta en blanco y sin la URL o a veces "about:blank"  a alguien le a pasado? (El problema es el mismo en el primer escenario, cuando abro 5 marcadores a lo loco) uso la ultima versión de SWIron

El problema viene pasando desde hace un poco :/ ni si quiera he instalado nuevas extensiones

Alguien sabe? No quiero ir a Firefox

Mejora los recortes Aca tienes un tuto aprovechando el PS CS5
Mejora la foto, tiene potencial

Orale es verdad!!! Bajan los FPS que pueden detectar mis ojos!

Seguro muchos o algunos pocos recordarán mi ucTabStrip
Por ahí las imágenes les refresca la memoria




Bueno, esta vez les traigo lo mismo pero con un poco de "magia" Logre quitar la dependencia al "OleGuids3.tlb" que tanto molestaba a veces
Lo malo es que esta experimental, todavía no lo pruebo a fondo, por eso el "Beta Testing" pero es prometedor.

Como saque el TLB? Bueno, los secretos no se comparten , solo diré que la funcion ObjPtr devuelve un puntero a una interfaz del tipo IUnknown y que desde ella se pueden acceder a todas las interfaces (en este caso las de OLE) que estén implementadas en dicho objeto.

Link: http://www.mediafire.com/?8wt2npp5di7tp1c

Pruebenlo y traten de encontrarle errores

vbNewLine = vbCrLf = vbCr & vbLf = Chr$(10) & Chr(13)
Misteriosamente no me a funcionado reemplazar vbCr con vbLf y sigue quedando vbNewLine

Sobre el bucle, cierto, lo que pasa es que experiencias anteriores me dijeron hacer directamente eso

Estuve probando el testeo, y si lo hago asi

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
    Dim bRes As Boolean, iRes As Boolean
    Dim leTest As String
    leTest = "1..3|+33.2|11111111111111111111|12,12|12.12|133.23.330|36.658,30|81,838.59|-65,1|12,23,34|asdf|a12f|1..1|1,,1|1..2..3|&HAF|" & _
                "&H221231321| &H2212313215646546546546516516512|9999999999999999999999999999999999999999999999999999| 0. 0|3" & Chr(10) & "0|3000" & Chr(10) & "0|    &H1000000000|  s  &H1000000000" & _
                "|  +.  &H1000000000|  +. &H1000000000|  +.a &H1000000000|  +.a &H100000000v|  +.a &H1000000  00v" & _
                "|&H1000000  00v|&H1000000  00|+1.0e45|+e1. .2|+0e+11|.+0e+11|+1.0d45|+d1. .2|+0d+11|.+0d+11|" & _
                "|+1. .2|0|+0.|+.  0|+|+  0|" & Chr(10) & "-0|." & vbTab & " .+0|.0" & vbTab & vbNewLine & vbTab & vbNewLine & vbTab & vbNewLine & " .+0" & _
                "|" & vbTab & vbNewLine & vbTab & vbNewLine & vbTab & vbNewLine & " +.0 " & _
                "|" & vbTab & vbNewLine & vbTab & vbNewLine & vbTab & vbNewLine & " +00.0 " & _
                "|" & vbTab & vbNewLine & vbTab & vbNewLine & vbTab & vbNewLine & " --.0 " & _
                "|" & vbTab & Space(10) & vbNewLine & " +-+-.+.0|" & vbTab & " +.0"
    Dim sTest() As String, i As Integer
    sTest = Split(leTest, "|")
    For i = LBound(sTest) To UBound(sTest)
        bRes = IsNumeric(sTest(i))
        iRes = IsNumeric_r338v3(sTest(i))
        Debug.Print bRes, iRes, IIf(bRes <> iRes, "ERROR", "")
    Next
    Call Unload(Me)
End Sub


No tira error ...

En cambio si cambio en el for pongo esto como hace en su Test BlackZeroX

Código (vb) [Seleccionar] Expandir


If Not (IsNumeric_r338v3(sTest(i))) Then Debug.Print "ERROR", i Else Debug.Print i


Devuelve "errores" al azar :-/ así que no quiere decir que sea realmente un error

Y por si alguno pensó que los caprichos de BlackZeroX es imposible de otra forma de la que lo hizo él. Acá le cierro la boca

Código (vb) [Seleccionar] Expandir


Private Function IsNumeric_r338v3(ByVal str As String) As Boolean
    Const vbSpace As String = " "
    Dim cReg As Object
    Set cReg = CreateObject("VBScript.RegExp")
    str = Replace$(str, vbCr, vbSpace)
    str = Replace$(str, vbLf, vbSpace)
    str = Replace$(str, vbTab, vbNullString)
    str = Trim$(str)
    If str = vbNullString Or str = "+" Or str = "-" Then Exit Function
    With cReg
        ' Hexadecimal y Notacion cientifica
        .Pattern = "^(?:&H[\dA-F]{1,16}|[+\-]?\d(?:\.\d+)?[de][+\-]?\d+)$"
        .Global = True
        .IgnoreCase = True
    End With
    IsNumeric_r338v3 = cReg.Test(str)
    If Not IsNumeric_r338v3 Then
        ' Testeamos con . como separador de miles y , como separador de decimales
        ' Personalmente seria para mi "^[+\-]?(?:\d{1,3}(?:\.\d{3})*|\d*)\,?\d*$"
        ' ya que 133.23.330 no es un numero aunque IsNumeric diga que si ¬¬
        cReg.Pattern = "^[+\-]?\s*(?:\d{1,3}(?:\.\d{1,3})*|\d*)\,?\d*$"
        IsNumeric_r338v3 = cReg.Test(str)
        If Not IsNumeric_r338v3 Then
            str = Replace$(str, "..", vbNullString)
            ' Testeamos con , como separador de miles y . como separador de decimales
            cReg.Pattern = "^[+\-]?\s*(?:\d{1,3}(?:\,\d{3})*|\d+)\.?\d*$"
            IsNumeric_r338v3 = cReg.Test(str)
        End If
    End If
    Set cReg = Nothing
End Function


Tiene soporte Hexadecimal y un poco de notación científica (la verdad, le falta mas creo, es que nunca vi ese tipo de notación)
Haber... seguro que no es tan rápida, pero es segura