Boa tarde.
Encontrei em outros foruns um aplicativo para se manipular imagem no access.
Onde o criador informa que o código usa a função LaunchApp32 para executar silenciosamente um programa de manipulação de imagens chamado IrfanView (freeware).
O código básico é o seguinte:
'Put at the top of the module
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal _
dwAccess As Long, ByVal fInherit As Integer, ByVal hObject _
As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal _
hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal _
hObject As Long) As Long
Function LaunchApp32(MYAppname As String) As Integer
Const SYNCHRONIZE = 1048576
Const INFINITE = -1&
Dim ProcessID&
Dim ProcessHandle&
Dim Ret&
LaunchApp32 = -1
ProcessID = Shell(MYAppname, vbNormalFocus)
If ProcessID <> 0 Then
ProcessHandle = OpenProcess(SYNCHRONIZE, True, ProcessID&)
Ret = WaitForSingleObject(ProcessHandle, INFINITE)
Ret = CloseHandle(ProcessHandle)
Else
MsgBox "ERROR : Unable to start " & MYAppname
LaunchApp32 = 0
End If
End Function
sub flipH() ' This will flip the image
Irfan1 = "C:\Program Files\IrfanView\i_view32.exe"
Temppic2 = ""C:\Documents and Settings\tlancaster\My Documents\image1.jpg"
Compression0 = 75
stAppName = Irfan1 & " " & Temppic2
stAppName = stAppName & " /hflip " & " /jpgq=" & Compression0 & " /convert=" & Temppic2
LaunchApp32 (stAppName)
end sub
No exemplo no meu 365 não esta rodando.
Se alguém puder ajudar, penso que será interessante termos no repositório.
Obrigado.
No anexo versão original e no 365.
Encontrei em outros foruns um aplicativo para se manipular imagem no access.
Onde o criador informa que o código usa a função LaunchApp32 para executar silenciosamente um programa de manipulação de imagens chamado IrfanView (freeware).
O código básico é o seguinte:
'Put at the top of the module
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal _
dwAccess As Long, ByVal fInherit As Integer, ByVal hObject _
As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal _
hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal _
hObject As Long) As Long
Function LaunchApp32(MYAppname As String) As Integer
Const SYNCHRONIZE = 1048576
Const INFINITE = -1&
Dim ProcessID&
Dim ProcessHandle&
Dim Ret&
LaunchApp32 = -1
ProcessID = Shell(MYAppname, vbNormalFocus)
If ProcessID <> 0 Then
ProcessHandle = OpenProcess(SYNCHRONIZE, True, ProcessID&)
Ret = WaitForSingleObject(ProcessHandle, INFINITE)
Ret = CloseHandle(ProcessHandle)
Else
MsgBox "ERROR : Unable to start " & MYAppname
LaunchApp32 = 0
End If
End Function
sub flipH() ' This will flip the image
Irfan1 = "C:\Program Files\IrfanView\i_view32.exe"
Temppic2 = ""C:\Documents and Settings\tlancaster\My Documents\image1.jpg"
Compression0 = 75
stAppName = Irfan1 & " " & Temppic2
stAppName = stAppName & " /hflip " & " /jpgq=" & Compression0 & " /convert=" & Temppic2
LaunchApp32 (stAppName)
end sub
No exemplo no meu 365 não esta rodando.
Se alguém puder ajudar, penso que será interessante termos no repositório.
Obrigado.
No anexo versão original e no 365.
- Anexos
- Image Manipulation.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (127 Kb) Baixado 14 vez(es)