Access - Traducir de VB a access

Traducir de VB a access

Publicado por Mora (4 intervenciones) el 13/05/2005 10:47:34

Hola:
Quería implementar una función de Visual Basic en access, la funcion es la siguiente: "SavePicture Clipboard.GetData(vbCFBitmap), theFile"
Esta función lo que hace es guardar en un archivo .bmp lo quehay en el portapapeles. Acces no me la reconoce, hay alguna que me pueda ser útil?
Otra cosa: Como puedo jugar con el formulario para hacerlo mas grande, mas pequeño y modificarle las dimensiones. EJ: me.windowstate no existe en access
SALUDOS Y GRACIAS DE ANTEMANO

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Guardar imagen del portapapeles en un archivo y ajustar tamaño del formulario

Publicado por Alejandro (4142 intervenciones) el 02/06/2023 00:29:47

Solución 1: Guardar imagen del portapapeles en un archivo
En Access, puedes utilizar la función `Clipboard.GetImage` para obtener la imagen del portapapeles y luego guardarla en un archivo. Aquí tienes un ejemplo de cómo hacerlo:

Public Sub GuardarImagenEnArchivo()

    Dim objClipboard As Object

    Dim img As Object

    Dim filePath As String

    ' Crear objeto para acceder al portapapeles

    Set objClipboard = CreateObject("Clipboard")

    ' Obtener la imagen del portapapeles

    Set img = objClipboard.GetImage()

    ' Verificar si se obtuvo una imagen válida

    If Not img Is Nothing Then

        ' Especificar la ruta y nombre de archivo para guardar la imagen

        filePath = "C:\ruta\archivo.bmp" ' Reemplaza con la ruta y nombre de tu elección

        ' Guardar la imagen en el archivo

        img.SaveAsFile filePath

        ' Liberar recursos

        Set img = Nothing

    End If

    ' Liberar objeto del portapapeles

    Set objClipboard = Nothing

End Sub

Solución 2: Ajustar tamaño del formulario
En cuanto al ajuste de tamaño del formulario, en Access no existe una propiedad `WindowState` directamente como en otros lenguajes de programación. Sin embargo, puedes utilizar las propiedades `Width` y `Height` del formulario para modificar su tamaño. Aquí tienes un ejemplo de cómo hacerlo:

' Ajustar tamaño del formulario a un ancho y alto específicos

Me.Width = 800 ' Reemplaza con el ancho deseado

Me.Height = 600 ' Reemplaza con la altura deseada

' Ajustar tamaño del formulario para que ocupe toda la pantalla

Me.Move 0, 0, Screen.Width, Screen.Height

Estas soluciones deberían ayudarte a guardar imágenes del portapapeles en archivos y ajustar el tamaño del formulario en Access. Recuerda adaptar el código según tus necesidades y rutas de archivo deseadas. ¡Espero que te sea útil!

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar