VFP 愛用者社區

[pp2266]

請問有辦法將
thisform.line(x1,y1,x2,y2)
這種畫在form上的線所組合成的圖
在report上呈現嗎??

[garfield]

這個問題我思考過, 但尚未實做. 我覺得應該是行得通, 如果你我試出來歡迎你將經驗分享出來. 我的方法如下:
假設你所畫的圖是固定大小, 你可以利用本論壇上找一個"mydll.dll"的程式, 裡面有個function可以將form轉成一個BMP檔, 再將這個BMP檔貼到你的REPORT中即可.
Try看看囉, 祝你成功.

[syntech]

原本回覆的有點怪怪的,已刪除....

什麼樣子的圖,請再說明清楚一點,
要怎麼放?放在哪裡?

當然抓成圖檔再放上來,理論上可行,
但是若要跨越 page header,detail, page footer ,
或者大圖,小圖,
或者是印出來要多大,
那就會有很多想像不到的狀況

[pp2266]

嗯..這個檔應該有用..
我的圖其實很簡單,就是類似折線圖,但是用
Line的方式直接畫在Form上,無奈好像沒有
好的方法可以讓這個畫在Form上面的圖可
以順利的在report中呈現.
謝謝大大提供這個方法,待我試試囉,謝謝

[garfield]

自己親自用 MYDLL.DLL 再搭配以下程式碼, 就可實現你要求的功能

Set LIBRARY TO "C:\Program Files\Microsoft Visual Studio\Vfp98\foxtools.fll"
mHWnd = _WhToHwnd(_WFINDTITL( Thisform.Caption))
* ??? _WFINDTITL 這個函數須要用大寫 ???
*Declare INTEGER GetActiveWindow IN user32
*mHWnd=GetActiveWindow()
Declare Integer formtobmp IN "mydll.dll" integer hwnd,String bmpFileName
? formtobmp(mHWnd ,"c:\screen.bmp") && Save screen to file c:\screen.bmp
Declare Integer tojpeg IN "mydll.dll" String bmpfilename, String jpgfilename
? tojpeg("c:\screen.bmp","c:\screen.jpg")
return

[laurance]

可否請教一下,我第一次列印可以,第二次將 SCREEN.BMP 已修改過,
但列印出來還是第一次的樣式,但用其他軟體看,SCREEN.BMP的確已改過,
但報表確還是第一次原來ㄉ樣子,??
請問該如何解決?

[garfield]

今天看到這篇文章, 發現它最後一篇沒解答, 補上jack許的解答
abcFileName="screen.bmp"
CLEAR RESOURCES [abcFileName] &&--清掉vfp有關screen.bmp的記憶.