leosoft

Para renombrar un archivo yo utilizo las instrucciones de acceso al sistema de archivos, te doy un ejemplo: Dim ArchivoOrigen As String Dim ArchivoDestino As String Set fs = CreateObject("Scripting.FileSystemObject") ArchivoOrigen =...

Es un control bastante complicado para hacerlo andar, no hay mucha ayuda disponible, pero acá te mando una solución que a mi me funciono: Wi es el nombre que yo le di al control WebBrowser, vos cambialo por el tuyo W1. SetFocus W1.ExecWB...

Para poder imprimir como vos queres solo existe una opcion y es API, te paso el codigo: Agrega un modulo y pone las siguientes declaraciones: Private Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As...

Para ejecutar un programa tienes que utilizar la instrucción Shell Te doy un ejemplo: Supongamos que tengo una base datos con archivos en formato PDF, para ver esos archivos tengo que llamar al Adobe Acrobat y también decirle que archivo quiero que...

Todos los controles a los cuales le generas una matriz, tienen un numero de indice, por ejemplo en tu caso tienes una matriz de 15 botones, y voz te referís a alguno en espacial indicando su indice Command1(indice), de igual manera al hacer click en...

Ahora te preparo el ejemplo para trabajar datos dentro de celdas y te lo envío junto con el control timmer, disculpa la demora, tuve un fin de semana complicado y ayer lunes fue feriado nacional y trabaje solo de mañana, y si lleo a necesitar algo de...

Disculpa la demora, no vi tu mensaje antes, para deshabilitar el teclado y el mouse tienes que utilizar la API, Agrega un modulo en tu aplicación y pone esto Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long ahora al poner...

Manejar los cambios de resolución no es fácil, tienes que preparar tu programa para acomodar el tamaño de los Forms y la posición de los objetos según la resolución que detecte al arrancar, para eso utilizas el Control Microsoft Sysinfo Control El...

Me parece raro que con un control timer no te funcione, si le pones la Propiedad Timer1. Interval=500 y con un codigo como este: Timer1. Timmer() If Label1.Visible = True Then Label1.Visible = False Else Label1.Visible = True End If End Sub El label...

El problema tal ves sea con la función Format(now,"ddmmyy") el formato que te entraga la funcion Format en relacion a fechas depende un poco de la configuracion regional que tengas en la maquina, igualmente una forma correcta seria...