SoloCodigo

Hola.

Para asociar una determinada extensión con una aplicación determinada, podéis echarle un ojo a http://foros.solocodigo.com/index.php?showtopic=6041.

Según el ejemplo, tenéis que tener en cuenta que la aplicación debe estar preparada para recibir como parámetro el nombre de archivo en cuestión.

Acerca de lo que jomace pretende, creo que la solución es ingenua: cambiarle la extensión al archivo en cuestión poco puede protejer (tal vez despistar un poco sí) el archivo de un uso indeseado. El ejecutable vb comprobaría la contraseña y a continuación abriría el archivo con la aplicación adecuada. El fallo es evidente, basta con saltarse la llamada al pgm vb cambiando la extensión por la correspondiente y abriédolo con la correspondiente aplicación.

La forma más sencilla que veo para hacer lo que pretendes es cambiando la estructura de los archivos en cuestión: Crear un nuevo archivo con, por ejemplo, determinada estructura de encabezamiento en el que se incluya de alguna forma la clave, a partir de un determinado offset grabar el contenido del archivo original y finalizar el archivo con algún otro dato. Cuando quieras reproducir/visualizar el archivo, el programa comprobaría los datos y contraseña del encabezado, grabaría en un archivo temporal los datos del archivo original y reproduciría este último archivo.

Esta método también es completamente inseguro, pero por lo menos la cosa se complica un poco más (requiere un mínimo de manipulación del archivo). La solución final de reproducir el original con su correspondiente aplicación es un poco marrullera... desde luego lo ideal sería que la aplicación que reproduzca el contenido fuese la que hiciste en vb, pero eso es mucho nivel (crear tus propios formatos de archivos de imagen u otras historias, compresiones, quebraderos de cabeza varios...) aparte de poco operativo con un lenguaje con las características de vb.

En fin... tu mismo.

Suerte.

Hola Fernando P.

Supongo que te refieres al manejo y supervisión de errores... Así por encima, ten en cuenta estas cosas:

En un método, mediante la instrucción On Error ... indicarás cúal es la opción a tomar en caso de que se produzca un error y con Resume ... estableces el punto donde continuará la ejecución del código.

Mediante el objeto Err puedes obtener información del error que se ha producido.

La primera de las instrucciones (On Error) seguida de una instrucción GOTO etiqueta indica que en caso de producirse un error la ejecución del código continuará en la etiqueta (o número de línea) indicada. Es en esta etiqueta donde introduces el código necesario según el tratamiento que le quieres dar al error. Mediante las propiedades del objeto Err Number y Description conocerás el número de error producido y el texto del mismo.
Cada vez que utilizas On Error, indicas la forma de controlar los errores.

Con Resume, una vez que has identificado el error y actuado en consecuencia, puedes que hacer que el flujo del programa se dirija a donde tú quieras: utilizando
Resume Next haces que la ejecución continúe en la siguiente instrucción; utilizando Resume Etiqueta, haces que la ejecución continúe en la etiqueta especificada.

Normalmente Cada Error necesita un Resume antes de que pueda producirse el siguiente, y no puede haber un Resume sin Error, sin embargo es posible no utilizar Resume si el tratamiento del error está al final del método, es decir antes de End Sub o End Function.

Se puede utilizar la instrucción On Error de la forma On Error Resume Next, que en la práctica no detendrá la ejecución del código y continuará con la siguiente instrucción. Deberás ser cuidadoso, pues esto puede producir resultados inesperados en la ejecución del programa, o puede causar que entre en algún bucle del que no puede salir provocando que el programa se cuelgue.

Analiza el ejemplo.

Espero que esto sea lo que necesitas, porque después de tanta escritura ya tengo peladas las yemas de los dedos.

Abur.

Hola dantrax.

Me refiero a que utilices una estrutura de datos y funciones para realizar operaciones con esas estructuras. Fíjate en el código:

Suerte.

Hola Fernando_P.

Échale un vistazo a este tema http://foros.solocodigo.com/index.php?showtopic=4339 al final del mismo tienes un ejemplo de función para abrir un cuadro de diálogo para guardar un archivo. El ejemplo se puede utilizar para un diálogo para abrir cambiando la fn api GetSaveFileName por [/b]GetOpenFilename[/b].

También podrías usar un control CommonDialog pero a mi no me va mucho...

Suerte.

Hola Kev.

Round redondea 'hacia abajo', es decir 14,85 lo redondeará como 14,8 y 14,86 como 14,9.

Puedes utilizar la función Format: Format(14.85, "#,##0.0") devolverá 14,9

Imagino que ya lo has tenido en cuenta... el redondeo puede ser causa frecuente de errores en el importe total de por ejemplo una factura: en el caso de los euros, cada línea de factura debe calcularse multiplicando la cantidad por el precio redondeado con 3 decimales (en algunos casos a más) y el importe del total de la factura es la suma del importe de cada una de las líneas redondeada a 2.

Suerte.

Hola mcrex.

Pues no sé a que se puede deber esa diferencia (aunque supongo que la diferencia la marca el funcionamiento del grid con el número de filas que carga). De todas formas 150.000 registros de una tabla a mostrar en un grid es un poco para masocas: a ver quién es el usuario que lo maneja...

Lamento no poder ser de más ayuda. Chao.

Veo que sigues con lo mismo: http://foros.solocodigo.com/index.php?show...t=0&#entry19325 ... A lo mejor si cerraras los temas la cosa iría mejor.

Abur.

Hola.

Entonces veo dos posibles soluciones, aunque ninguna de las dos acaba de gustarme mucho:

1- Crea dos formularios 'principales' uno con el ocx y otro sin él. Aplica el código de antes pero desde una sub 'Main' que debe ser el inicio de la aplicación. Esta solución es redundante pero efectiva 100%.

2- Puedes intentar añadir dinámicamente el control ocx, pero con unas consideraciones...
Fíjate en este código para un formulario: añade un CommandButton en tiempo de ejecución.
Podrías hacer lo mismo sustituyendo el tipo CommandButton por el de tu ocx, pero si el ocx no existe, el programa casca en la declaración de la variable cmd1, con lo que estás en la misma de antes: sólo puedes interceptar este error desde un método que llame al formulario.
Una posible solución a esto podría ser declarar la variable como 'Object' e interceptar el posible error en el evento Load del form. Esta solución sería ideal si no fuera porque no podrás interceptar los eventos del control (una variable 'Object' no se puede declarar 'WithEvents'), sin embargo, si sólo utilizas ciertos métodos del control y no te importan los eventos que puede generar el ocx, estás de suerte, este es la forma que mejor se adapta a tus necesidades... El código quedaría algo asi:
Luego claro está, en el código deberías habilitar o no ciertas opciones, controlar si la variable miOcx = Nothing y cosas por el estilo


A ver si esto te ayuda algo más. Suerte.

Hola dantrax.

Podrías crear una estructura de datos para esas fracciones, de forma que almacenes por un lado el numerador y por otro el denominador. Crea una cuantas funciones para realizar las operaciones básicas con este tipo de datos y otra más para simplificar. El único problema lo encontrarás probablemente si intentas usar como un parámetro una variable de este tipo, pero eso lo puedes solucionar creando un componente o usando un par de variables públicas a nivel de módulo.

Suerte.

Hola.

Si tienes instanciado un objeto Excel.Application, utiliza su método Quit y listo.

Suerte.

Hola juez.

No comprendo muy bien lo que pretendes, pero haz lo siguiente:

Graba una nueva macro con las acciones que pretendes realizar. Ve al editor de Vb y busca en un módulo el código que corresponde a la macro que acabas de grabar, y ahí tienes el código que necesitas.

Suerte.

Hola erikmiguel.

Básicamente podrías necesitar un control DriveListBox otro DirListBox y otro FileListBox para gestionar el sistema de archivos (Tal vez podrías optar por usar un diálogo 'Abrir archivo' con un control CommonDialog o con la api GetOpenFileName).

Para abrir un archivo con la aplicación cuya extensión tenga asociada, debes usar la función api ShellExecute. Por ejemplo:

En cuanto a lo de buscar archivos, puedes usar la instrucción de VB Dir o usar las apis FindFirstFile, FindNextFile y FindClose que al fin y al cabo, usadas conjuntamente realizan la misma función que Dir.

Para copiar archivos: FileCopy.
Para borrarlos: Kill.


Suerte.