Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请教，有没有办法把目录树导出为一个图片或其他可见的文件


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

主题：[求助]请教，有没有办法把目录树导出为一个图片或其他可见的文件
帅哥哟，离线，有人找我吗？
xxcwdlwgo
 小大  11楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：157 积分：2001 威望：0 精华：0 注册：2012/5/29 15:35:00 		  发帖心情 Post By：2019/10/27 10:01:00 [只看该作者]

大师，截图是成功了，但是截的图是程序窗口生成前，我在界面窗口中加入按钮后，加入上述代码后，截的图是我需要的，
我在程序中加入了Application.DoEvents()，截图还是程序未运行前的。请大师指点，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
程兴刚
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：7235 积分：40550 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2019/10/27 12:52:00 [只看该作者]

试试暂停和恢复绘制窗口后再执行截图代码！

 回到顶部
帅哥哟，离线，有人找我吗？
xxcwdlwgo
 小大  13楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：157 积分：2001 威望：0 精华：0 注册：2012/5/29 15:35:00 		  发帖心情 Post By：2019/10/27 14:26:00 [只看该作者]

大师， 我试了不同位置，还是得不到要的结果，请再次指教！我是在AfterLoad事件中写的如下代码。
程序结构：
Dim la1 As WinForm.Label = e.Form.Controls("Label1")
……
 Select Case CurrentTable.Current("地标颜色")
    Case "蓝色"  '正向短编
        la9.ForeColor = Color.Blue
        la10.BackColor = Color.Blue
        la01.BackColor = Color.Blue
……
end select 

'截图代码
……

应将
.StopRedraw()

.ResumeRedraw()
放在哪个代码段。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106168 积分：539957 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/27 20:39:00 [只看该作者]

AfterLoad事件没有用的，这时候窗口还没有显示出来。

放到计时器事件timetick，延迟1秒钟窗口显示后再截屏
 回到顶部
总数 14 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询