to rainstormmaster(rainstormmaster) :
你说的还有一个小问题有正在完善是不是不好确定如果取出Word文件的一页呀而且也不能直接将整个Word文件一次就拷到PictureBox上呀,另外是不是还有控制拷贝过来的字体保持和原来在Word文档中的一样大小也有一点点麻烦是吗。
第二个问题比较好解决,我已经解决了,但第一个问题似乎有一点不好办,不知你现在研究的怎么样了。
你要放的是图片还是文字呀
!
先抓图,再放
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Sub Form_Load()
dl& = StretchBlt(Form1.hdc, 0, 0, 401, 301, GetDC(0), 0, 0, 401, 301, vbSrcCopy)
Form1.Picture = Form1.Image
SavePicture Form1.Picture, "d:\ddd.bmp"
End Sub