SoloCodigo

Saludos soy nuevo en VB ...seguro para ustedes sera muy sencillo, tengo este codigo:

Private Sub Command1_Click()
   Dim i%
   Dim Result As Boolean
   Dim FileName As String

    Result = SapAcquisition1.Buffer.Save("F:datospbaprueba.jpg", "-format jpg", 0, 1)
End Sub

...lo que quiero es que cuando yo le de click a este button me guarde en esa carpeta un archivo prueba1.jpg, ... asi la cantidad de veces que sea, de tal forma que yo pueda llegar a tener un archivo prueba1552.jpg si le di click 1552 veces.
..tambien si yo cierro el programa, apago la maquina y en un mes lo buelo a abrir y le doy de nuevo click me guarde el que continuaria osea prueba1553.jpg
Gracias

Efectivamente es muy simple....

Básicamente debes trasladar el código del botón a una función, para tenerlo más ordenado. La función debe recibir 3 ó 4 parámetros : ruta donde guardar, nombre del archivo, último nº usado y el formato con que se guardará.

El código sería algo parecido a: (las explicaciones al final... )


De entrada la configuración que ha de permanecer entre sesiones se guarda en un simple fichero llamado config.ini que se localiza en la misma carpeta en la que está ala aplicación (app.path)
Cuando se arranca el formulario, se lee dicha configuración, si no existe el archivo se crea, y si existe pero tiene datos no válidos garantiza datos válidos, sisucede un error al tratar de leer y rescribir la configuración la aplicación se finaliza, esto lo podrás cambiar a tu gusto...

Tras leer la configuración esta se almacena en una estructura, cuando se invoca a la función de guardar imágenes, se utilizan los valores de la estructura.
Estos valores deberían poderse cambiar desde la interfaz cambiando cuando interese la ruta, el nombre para el archivo y si se desea el índice de la imagen, usando para ellos los controles necesarios... quizás un menú y un pequeño formulario de entrada de datos, al cargarse el formulario se escribirían los datos de la estructura en los controles, si se pulsa un botón cambiar, recogería dichos datos en la estructura e invocaría a la función de guardar el archivo config, si se cierra el formulario sin pulsar dicho botón se descaratarían los cambios.... antes de guardar los datos en la estructura habría que validar (evento validate) que los valores tienen valores correctos...

En la función de guardar la imagen se envían los parámetros actuales de la estructura (de configuración), el numero que se une al nombre del fichero, sólo se actualiza cuando tuvo éxito guardar la imagen.

Importante: el formato que recibe la función no es real es decir se ha simulado una enumeración que se supone que tiene el control 'sapAdqui... ', es decir deberás localizar dicha enumeración si existe, y sustituirla por lo que yo he puesto, si no existe una enumeración pero utiliza valores tu mismo podrás crear una enumeración... si tratas de usar la enumeración que yo he 'supuesto' salvo pura casualidad te saldrá un error de objeto no encontrado....  para simular esta enumeración puede utilizarse el siguiente código de ejemplo añadido al código de arriba, y activando y desactivando las líneas oportunas en la función de salvar_imagen... que in situ se comenta.


La función que trata la extensión del archivo deberá igualmente atenerse a las indicaciones que señalan en el párrafo anterior...

Adicionalmente podrías incluir el formato a la estructura de configuración....
Desconozco el significado de los últimos parámetros de la función (aunque supongo que podrían ser para otras opciones, como por ejemplo definir la calidad para guardar la imagen,etc...), que utlizas para salvar la imagen para cualquier duda al respecto tendrás que dirigirte a la documentación del propio control....

p.d.: el código está hecho 'al vuelo' por lo que es posible que haya algún pequeño error, si sucede así, y no lo descubres informa del error...

saludos.

me marca un error en esta liena:
Private Function Salvar_Imagen(ByVal Ruta As String, ByVal Nombre As String, ByRef UltimoIndex As Long, Optional Formato As SapAcquisitionFormts = SAP_FORMAT_JPG) As Boolean

No se ha definido el tipo definido por el usuario

Eso no es un error es una 'ignorancia'... piensa.. yo no tengo el control ese 'sapAdquisition...' como no lo tengo ignoro cuales son los métodos y propiedades que pueda tener, haciendo uso de la lógica ayudado por un poco de imaginación, ASUMO que debe tener una enumeración que refleje los formatos. Pero esto, como digo, yo lo ignoro, porque eso es específico de ese control 'sapadquisition...' como comprenderás yo no voy a conocer al detalle los miles de controles que hay en el mercado de las cámaras de fotos, la enumeración de formatos debes buscarla tú en la documentación de ese control.

Yo he SIMULADO (lo puedo poner más grande, pero el problema supongo que no es de vista sino de comprensión) un probable nombre que podría tener la enumeración. dicho de otro modo: esta enumeración 'SapAcquisitionFormts' probablemente no exista pero la que exista debe ser bastante semejante y las contantes como:  'SAP_FORMAT_JPG' probablemente tampoco existan ni se correspondan con el valor que yo les dí. Un arquitecto conoce todos los elementos de un baño y sabe como funcionan, lo que no va a saber un arquitecto es como están distribuidos en tu casa ni de qué color o marca son, eso sólo lo sabes tú que eres quien tiene el control 'sapadquisition...loquesea'...

.. capische ???

y otra cosa unicamente tengo que agregar tres txt y un button vdd?...

Si no quieres hacer nada más, eso sería todo... sin embargo en vez de usar controles textbox, como te indicaba en  comentarios en el mensaje anterior sería más acorde usar un control Drive y un control DirListbox para proveer más cómodamente la ruta, para el nombre y el número si basta con un textbox... pero vamos eso va en el criterio de cada uno.

Listo quedo:

Numeracio = Formato (Variable, "000")

Gracias

Esto ya sería una tarea.
Te he proporcionado toda la base, sólo te falta 'decorar'...
Si no sabes como cambiar 4 textbox, entonces es mejor que tomes un manual y te apliques a la lectura.