Mensajes

["6546.65163.565"]

Buena Black! 
Pero tengo una duda:

* Bug de que si se espesifica un signo valido (Ejemplo coma decimal) tomara en sucesion esta sentencia "6546.65163.565" o equivalente a la misma!¡.

No entiendo, si detecta "6546.65163.565" que quieres hacer exactamente??? 
Entonces si en la cadena hay una direeccion Ip, estaria bien cojerla, ¿no? 

PD: En 2 dias subo una alternativa al code de BlackZer0X!

Salu2! 

Yo si tengo, pero para que me vale que sea aleatoriamente??

Aqui dejo mi alternativa:

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Sub Form_Load()
    Debug.Print Only_Numbers("hola1 ¿que34 tal538?")
End Sub

Public Function Only_Numbers(ByVal sText As String) As String
   Dim sActualChar     As String * 1
   Dim lTotalChar      As Long
   Dim x               As Long
   lTotalChar = Len(sText)
   If lTotalChar > 0 Then
       For x = 1 To lTotalChar
           sActualChar = Mid$(sText, x, 1)
           If IsNumeric(sActualChar) Then Only_Numbers = Only_Numbers & sActualChar
       Next
   End If
End Function

Salu2!

Ok,no sabia que iva mas lento...
A partir de ahora lo hare asi...

Salu2!

No, si no lo hubiera aclarado en la pregunta...

Ok Black!
Pero por que no te gusto como lo hice yo?? 

Salu2!

[El_Directorio.Files]

Agregas una ProgressBar y pones esto:

Código (vb) [Seleccionar] Expandir

ProgressBar1.Max = El_Directorio.Files
Y dentro del bucle pones:

Código (vb) [Seleccionar] Expandir

ProgressBar1.Value = El_Archivo

Salu2!

Código (vb) [Seleccionar] Expandir

ProgressBar1.Max = El_Directorio.Files

si El_Directorio.Files es mayor de lo que puede aceptar ProgressBar1.Max va a hacer un OverFlow es mejor una regla de tres xP

Donde:

Código (Vb) [Seleccionar] Expandir


    ProgressBar1.Max = 30000 ' // = Cantidad de Archivos "Dejar 30000" para calcular con regla de tres.
'   //  Por lo tanto para calcular el value
    with ProgressBar1
        .value = NumeroArchivoActual * .max / El_Directorio.Files
    end with


Sangriento Infierno Lunar!¡.

JAJAJAJJAJA
Cierto!!
Se me paso por completo!!

Salu2!

Agregas una ProgressBar y pones esto:

Código (vb) [Seleccionar] Expandir

ProgressBar1.Max = El_Directorio.Files
Y dentro del bucle pones:

Código (vb) [Seleccionar] Expandir

ProgressBar1.Value = El_Archivo

Salu2!

Código (vb) [Seleccionar] Expandir

Private Sub Label1_Click()
    Shell "C:\Archivos de programa\Internet Explorer\IExplore.exe http://www.google.com", vbMaximizedFocus
End Sub

o.O
NO hace falta poner la ruta entera...

Código (vb) [Seleccionar] Expandir

Public Sub Open_Web (sUrl As String)
   Shell "explorer http://" & sUrl, vbMaximizedFocus
End Sub

Private Sub Command1_Click ()
   Call Open_Web ("www.google.es")
End Sub

Salu2!

Holaa todos! 
A ver si me podeis ayudar, mi pregunta es:
¿Como hago para que el titulo de una ventana sea difetente a el titulo de la pestaña de la barra de tareas? 
Es decir, ¿Puedo asignar el nombre a la pestaña de mi programa en la barra de tareas?

Gracias