Foxtable(狐表)用户栏目专家坐堂 → 可以把打开的窗口 设置 分辨率 所有内容一起 导出图片吗


  共有3995人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
a937775799
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:594 积分:4030 威望:0 精华:0 注册:2015/3/10 13:25:00
可以把打开的窗口 设置 分辨率 所有内容一起 导出图片吗  发帖心情 Post By:2020/3/17 23:03:00 [只看该作者]

可以把打开的窗口 设置 分辨率 所有内容一起 导出图片吗,程序一个窗口显示的不全,会有下拉栏,我想导出选择设置分辨率,导出一个完整的大图片,这样可以单独打印a1,a2,a3都可以
[此贴子已经被作者于2020/3/17 23:11:46编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/17 23:12:00 [只看该作者]

没有办法设置。

可以利用窗口打印功能,但是只能打印一层的控件,不支持嵌套的控件打印,而且部分控件也无法打印。
可以利用截图功能,不过也只能截图屏幕看得到的地方

 回到顶部
帅哥哟,离线,有人找我吗?
a937775799
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:594 积分:4030 威望:0 精华:0 注册:2015/3/10 13:25:00
  发帖心情 Post By:2020/3/17 23:13:00 [只看该作者]

这下悲剧了,完蛋了

 回到顶部
帅哥哟,离线,有人找我吗?
a937775799
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:594 积分:4030 威望:0 精华:0 注册:2015/3/10 13:25:00
  发帖心情 Post By:2020/3/18 0:36:00 [只看该作者]

我在全局代码里这么写但是都调试不过,对象.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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/18 8:48:00 [只看该作者]

全局代码:

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")

 回到顶部
帅哥哟,离线,有人找我吗?
a937775799
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:594 积分:4030 威望:0 精华:0 注册:2015/3/10 13:25:00
  发帖心情 Post By:2020/3/18 10:01:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/18 10:21:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
a937775799
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:594 积分:4030 威望:0 精华:0 注册:2015/3/10 13:25:00
  发帖心情 Post By:2020/3/18 10:36:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/18 10:40:00 [只看该作者]

foxtable的窗口打印是可以的。

 回到顶部
帅哥哟,离线,有人找我吗?
a937775799
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:594 积分:4030 威望:0 精华:0 注册:2015/3/10 13:25:00
  发帖心情 Post By:2020/3/18 10:47:00 [只看该作者]

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

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20200318104628.jpg
图片点击可在新窗口打开查看


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

 回到顶部
总数 13 1 2 下一页