Visual Basic - Guardar como JPG

Alguien conoce de algun OCX GRATUITO que guarde en formato JPG o alguna API que lo haga? Muchas gracias. ;)

Si lo que quieres es guardar imágenes en una base de datos basta que pongas un PictureBox (que también abre este formato) y lo enlaces con una tabla que tenga los campos tipo Memo.

No sé si era esto lo que pedías.

No es eso. Yo me referia a guardar cualquier tipo de imagen en formato JPG (por ejemplo un BMP) desde un programa hecho en Visual. De todos modos muchas gracias. ;)

Mira este código lo que hace es copiarte ese archivo que quieres guardar con otro formato y lo guerdas con la extensión en el formato que quieras.


´-------------EXISTE FICHERO---------------´Tipos, constantes y funciones para FileExist
Const MAX_PATH = 260
Const INVALID_HANDLE_VALUE = -1

Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _
(ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" _
(ByVal hFindFile As Long) As Long
´-----------------------------------------------------
Public Function FileExistC(ByVal sFile As String) As Boolean
´comprobar si existe este fichero
Dim WFD As WIN32_FIND_DATA
Dim hFindFile As Long

hFindFile = FindFirstFile(sFile, WFD)
´Si no se ha encontrado
If hFindFile = INVALID_HANDLE_VALUE Then
FileExistC = False
Else
FileExistC = True
´Cerrar el handle de FindFirst
hFindFile = FindClose2