可以把打开的窗口设置分辨率所有内容一起导出图片吗 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

可以把打开的窗口设置分辨率所有内容一起导出图片吗,程序一个窗口显示的不全，会有下拉栏，我想导出选择设置分辨率，导出一个完整的大图片，这样可以单独打印a1，a2，a3都可以

[此贴子已经被作者于2020/3/17 23:11:46编辑过]

没有办法设置。

可以利用窗口打印功能，但是只能打印一层的控件，不支持嵌套的控件打印，而且部分控件也无法打印。

可以利用截图功能，不过也只能截图屏幕看得到的地方

这下悲剧了，完蛋了

我在全局代码里这么写但是都调试不过，对象.hdc 好像是什么什么东西来着，不知道怎么弄了，我对。net 不熟啊麻烦帮我改改

'添加如下声明

Private structure re

Dim Left As Long

Dim Top As Long

Dim Right As Long

Dim Bottom As Long

End structure

Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As re) As Long

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC 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 dwRop As Long) As Long

'添加这个函数

Public Function GetWndPic(Wnd As Long, f As WinForm.Form , pic As WinForm.PictureBox )

Dim R As re, DC As Long

GetWindowRect( Wnd, R) '获取指定窗口的左上角?右下角位置(以便获取其大小)

DC = GetWindowDC(Wnd) '得到dc

BringWindowToTop( Wnd )'目标窗口提到前面(非置顶)

BitBlt( pic.hdc , 0, 0, f.Width, f.Height, DC, 0, 0, vbSrcCopy ) '复制绘图

ReleaseDC( Wnd, DC) '释放

End Function

'调用示例(把句柄131454的程序窗口截图放到Picture1中)

'GetWndPic 131454, Picture1

[此贴子已经被作者于2020/3/18 2:32:33编辑过]

全局代码：

Public Declare Function CreateDC Lib "gdi32.dll" (ByVal lpszDriver As String, ByVal lpszDevice As String, ByVal lpszOutput As String, ByVal lpInitData As IntPtr) As IntPtr

Public Declare Function BitBlt Lib "gdi32.dll" (ByVal hdcDest As IntPtr, ByVal nXDest As Integer, ByVal nYDest As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hdcSrc As IntPtr, ByVal nXSrc As Integer, ByVal nYSrc As Integer, ByVal dwRop As UInt32) As Integer

Public Declare Function CreateCompatibleDC Lib "gdi32.dll" (ByVal hdc As IntPtr) As IntPtr

Public Declare Function CreateCompatibleBitmap Lib "gdi32.dll" (ByVal hdc As IntPtr, ByVal nWidth As Integer, ByVal nHeight As Integer) As IntPtr

Public Declare Function SelectObject Lib "gdi32.dll" (ByVal hdc As IntPtr, ByVal hgdiobj As IntPtr) As IntPtr

Public Declare Function DeleteDC Lib "gdi32.dll" (ByVal hdc As IntPtr) As Integer

Public Declare Function PrintWindow Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal hdcBlt As IntPtr, ByVal nFlags As UInt32) As Boolean

Public Declare Function GetWindowDC Lib "user32.dll" (ByVal hwnd As IntPtr) As IntPtr

Public Function GetWindow(ByVal hWnd As IntPtr) As Bitmap

Dim hscrdc As IntPtr = GetWindowDC(hWnd)

Dim control As system.windows.forms.Control = system.windows.forms.Control.FromHandle(hWnd)

Dim hbitmap As IntPtr = CreateCompatibleBitmap(hscrdc, control.Width, control.Height)

Dim hmemdc As IntPtr = CreateCompatibleDC(hscrdc)

SelectObject(hmemdc, hbitmap)

PrintWindow(hWnd, hmemdc, 0)

Dim bmp As Bitmap = Bitmap.FromHbitmap(hbitmap)

DeleteDC(hscrdc)

DeleteDC(hmemdc)

Return bmp

End Function

打开需要截图的窗口，必须是独立，或者模式窗口

Dim f = Forms("窗口3")

f.open

Dim bit As Bitmap = GetWindow(f.baseform.handle)

bit.save("D:\123.jpg")

我试下了可以用但是有个问题，截图的是刚刚的窗口大小呢，我电脑屏幕小，窗口下面还有滚动的没有截出来呢，而且有点不清晰

没有办法一次性截图。只能截图窗口看得到的地方。网上搜了一下，一般都是截图，然后移动滚动条，然后截图，然后移动....最后把所有的截图合并到一起。

这里有个例子自己下载看看：https://download.csdn.net/download/lz37025/10397123?depth_1-utm_source=distribute.pc_relevant.none-task&utm_source=distribute.pc_relevant.none-task，我没有积分下载不了

好的我去看看，顺便问问如果不截图直接打印，那么这种滚动窗体能直接打印出来吗

foxtable的窗口打印是可以的。

那我换个思路把整个窗口打印导出到pdf，比如我这个窗口，这样的思路可以吗

此主题相关图片如下：qq截图20200318104628.jpg

[此贴子已经被作者于2020/3/18 10:47:05编辑过]

主题：可以把打开的窗口 设置 分辨率 所有内容一起 导出图片吗

主题：可以把打开的窗口设置分辨率所有内容一起导出图片吗