FoxPro/Visual FoxPro - abrir

 
Vista:

abrir

Publicado por josefina (1 intervención) el 26/04/2007 15:08:17
como puedo hacer que con un bototon pueda abrir un cuadro de dialogo, abrir una imagen,darle un nuevo nombre y poder guardarla en otra carpeta.

alguien me podria explicar como hacerlo y con codigo.

mil bessos .
bay
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:abrir

Publicado por Plinio (7841 intervenciones) el 26/04/2007 15:11:54
Algo asi funciona

ximagen = GETPICT()
oShell = createobject("WScript.Shell")
oShell.Run('MSPAINT.exe "&ximagen"',3,.T.)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:abrir

Publicado por Ernesto Hernandez (4626 intervenciones) el 26/04/2007 17:11:57
tambien puedes guardarla en la memoria con esta funcion y asi no tienes necesidad de abrirla

toPicture = LoadPicture(FORM.IMAGE.PICTURE)

CF_BITMAP = 2
Declare Long OpenClipboard In user32 Long hWnd
Declare Long CloseClipboard In user32
Declare Long EmptyClipboard In user32
Declare Long SetClipboardData In user32 Long uFormat, Long hMem
Declare Long CopyImage In user32 Long, long, long, long, long

If OpenClipboard(0) = 0
Error "Cannot open clipboard"
EndIf
EmptyClipboard()

If toPicture.Type = 1 && Bitmap
h = CopyImage(toPicture.Handle, 0, 0, 0, 0)
SetClipboardData(CF_BITMAP, h)
EndIf
CloseClipboard()

clear dlls
toPicture =null

Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar