HOLA!!!

Nota: El codigo que escribi puede llegar a tener un minimo desfasaje.

GRACIAS POR LEER!!!

HOLA!!!

Bueno aca lo tenes, ejecutara el codigo una vez por cada intervalo de tiempo.

Te dejo las 2 maneras que se me ocurrieron: (prefiero la primera)

Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private Sub Bucle()
    Dim X As Long
    Dim Milisec As Long 'cantidad de milisegundos por bucle
    Dim Vueltas As Long 'cantidad de vueltas
    Dim Time_Start As Long
    Milisec = 1000
    Vueltas = 10
    Time_Start = GetTickCount()
    For X = 1 To Vueltas
        'Codigo a ejecutar si queres que lo haga apenas empieza el bucle sino lee abajo.
        Do While Time_Start - getticount() < Milisec
            DoEvents
        Loop
        Time_Start = Time_Start + Milisec
        'El codigo a ejecutar si queres que lo haga despues del primer intervalo sino lee arriba.
    Next
End Sub

Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private Sub Bucle()
    Dim X As Long
    Dim Flag As Boolean ' Si esta en true Ejecuta el codigo
    Dim Milisec As Long 'cantidad de milisegundos por bucle
    Dim Vueltas As Long 'cantidad de vueltas
    Dim Time_Start As Long
    Milisec = 1000
    Vueltas = 10
    Flag = True ' aca si queres que la primera ejecucion sea cuando pase el primer intervalo quita esta linea
    Time_Start = GetTickCount()
    Do While X <= Vueltas
        DoEvents
        If Flag Then
            'El codigo a ejecutar
            Flag = False
        End If
        If (Time_Start - GetTickCount()) >= Milisec Then
            X = X + 1
            Flag = True
            Time_Start = Time_Start + Milisec
        End If
 
    Wend
End Sub

GRACIAS POR LEER!!!

HOLA!!!

Yo lo haria con Doevents y GetTickCount para saber cuanto tiempo vas...

El problema de Sleep es que te congela la pc osea No permite ninguna otra ejecucion simultanea, cosa que doevents si permite 

GRACIAS POR LEER!!!

HOLA!!!

Muy buena idea!

 

GRACIAS POR LEER!!!

HOLA!!!

Estuve buscando otras maneras de hacerlo, pero cuanto mas ganaba velocidad la funcion mas se asemejaba a las que habian posteado, asi que no vale .

En fin quiten la mia del test que solo realentiza...

Ahh, aca les dejo la version mas lenta que puede haber

Agreguen en referencias Microsoft Scripting Runtime

Private Function VeryVerySlow7193(sPath as string) as string
Dim fso As New FileSystemObject
Dim Archivo as File
Set Archivo = fso.GetFile(sPath)
If Not (Fi  Is Nothing) Then VeryVerySlow7913 = Fi.Name : Exit Function
VeryVerySlow7913 = "Error, asegurese que el archivo existe (This Function Sucks)"
End Function

GRACIAS POR LEER!!!

HOLA!!!

Pff que bajon era re lenta, aho ra mo pongo a hacer otra funcion, daba asco la primera, pero testeenla por que no tengo vb aca

GRACIAS POR LEER!!!

HOLA!!!

No tengo el VB aca asi que solo dejo el codigo(sin testear):

Private Declare Function GetFileTitle Lib "comdlg32.dll" Alias "GetFileTitleA" (ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer) As Integer
 
Private Function Fn7913(sPath As String) As String
     Dim Mem As String
     Mem = String(255, 0)
     GetFileTitle sPath, Mem, 255
     Fn7913 = Trim(Mem)
 End Function

GRACIAS POR LEER!!!

HOLA!!!

@Mr Frog: jajaja una de las mejores paginas que vi!!! XD

GRACIAS POR LEER!!!

HOLA!!!

Creo que asi te va a servir:

Private sub check1_click()
Command1.Enabled = check1. Value
End sub

GRACIAS POR LEER!!!

HOLA!!!

:S estoy empezando la previa asi que mañana jugare xD

GRACIAS POR LEER!!!