ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment copier un formulaire actif en bitmap et le coller dans un document Word   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pte Claire Quebec - Canada
de la société MCRG Software
Fiche personnelle


Note des membres
pas de note

Contributions > 05 - API et appels systèmes

Comment copier un formulaire actif en bitmap et le coller dans un document Word
# 0000000124
ajouté le 22/12/2004 21:44:16 et modifié le 22/12/2004
consulté 4865 fois
Niveau initié

Version(s) Foxpro :
VFP 7.0

Code source :
LOCAL oWord as word.application
#DEFINE CF_BITMAP   2
#DEFINE SRCCOPY     13369376
DO copyActiveWindow
PRIVATE hwnd,lnLeft,lnTop,lnRight,lnBottom,lnWidth,lnHeight
hwnd = GetFocus()
STORE 0 TO lnLeft,lnTop,lnRight,lnBottom,lnWidth,lnHeight
= getRect (@lnLeft, @lnTop, @lnRight, @lnBottom, @lnWidth,@lnHeight)
hdc = GetWindowDC (hwnd)
hVdc = CreateCompatibleDC (hdc)
hBitmap = CreateCompatibleBitmap (hdc, lnWidth, lnHeight)
= SelectObject (hVdc, hBitmap)
= BitBlt (hVdc, 0,0, lnWidth,lnHeight, hdc, 0,0, SRCCOPY)
= OpenClipboard (hwnd)
= EmptyClipboard()
= SetClipboardData (CF_BITMAP, hBitmap)
= CloseClipboard()
= DeleteObject (hBitmap)
= DeleteDC (hVdc)
= ReleaseDC (hwnd, hdc)
oWord=CREATEOBJECT("word.application")
oWord.Documents.Add()
loSelection=oword.Selection
loselection.PasteAndFormat(2)
oword.Visible =.t.
RETURN

PROCEDURE  copyActiveWindow
    DECLARE INTEGER GetWindowRect IN user32 INTEGER hwndSTRING @ lpRect
    DECLARE INTEGER SelectObject IN gdi32 INTEGER hdc,INTEGER hObject
    DECLARE INTEGER ReleaseDC IN user32 INTEGER hwnd,INTEGER hdc
    DECLARE INTEGER CreateCompatibleDC IN gdi32 INTEGER hdc
    DECLARE INTEGER DeleteObject IN gdi32 INTEGER hObject
    DECLARE INTEGER DeleteDC IN gdi32 INTEGER hdc
    DECLARE INTEGER CloseClipboard IN user32
    DECLARE INTEGER GetFocus IN user32
    DECLARE INTEGER EmptyClipboard  IN user32
    DECLARE INTEGER GetWindowDC IN user32 INTEGER hwnd
    DECLARE INTEGER OpenClipboard IN user32 INTEGER hwnd
    DECLARE INTEGER SetClipboardData IN user32 INTEGER wFormat, INTEGER hMem
    DECLARE INTEGER CreateCompatibleBitmap IN gdi32;
        INTEGER hdc, INTEGER nWidth, INTEGER nHeight

    DECLARE INTEGER BitBlt IN gdi32;
        INTEGER hDestDC, INTEGER x, INTEGER y,;
        INTEGER nWidth, INTEGER nHeight, INTEGER hSrcDC,;
        INTEGER xSrc, INTEGER ySrc, INTEGER dwRop
RETURN
PROCEDURE  getRect(lnLeft, lnTop, lnRight, lnBottom,lnWidth, lnHeight)
    LOCAL lpRect
    lpRect = Repli(Chr(0), 16)
    = GetWindowRect (hwnd, @lpRect)
    lnLeft   = buf2dword(SUBSTR(lpRect,  1,4))
    lnTop    = buf2dword(SUBSTR(lpRect,  5,4))
    lnRight  = buf2dword(SUBSTR(lpRect,  9,4))
    lnBottom = buf2dword(SUBSTR(lpRect, 13,4))
    lnWidth  = lnRight - lnLeft
    lnHeight = lnBottom - lnTop
RETURN
FUNCTION  buf2dword (lcBuffer)
RETURN Asc(SUBSTR(lcBuffer, 1,1)) + ;
    Asc(SUBSTR(lcBuffer, 2,1)) * 256 +;
    Asc(SUBSTR(lcBuffer, 3,1)) * 65536 +;
    Asc(SUBSTR(lcBuffer, 4,1)) * 16777216


*!*  Parts of this code was borrowed http://www.news2news.com/vfp/

*!*  Mike Gagnon

Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3