以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  调用第三方  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79060)
--  作者：blackzhu
--  发布时间：2015/12/23 14:45:00
--  调用第三方
e.Form.BaseForm.showintaskbar = True
e.Form.BaseForm.WindowState = System.Windows.Forms.FormWindowState.MINimized
Dim Proc As New Process
Proc.File = "D:\\Release开发版\\capture.exe"
Proc.Start
If proc.WaitForClose = True Then
    e.Form.BaseForm.WindowState = System.Windows.Forms.FormWindowState.Normal
    e.Form.Controls("Button1").Select
End If

如何完成了第三方的程序动作后,将窗口恢复到原来的状态
--  作者：大红袍
--  发布时间：2015/12/23 15:03:00
--  
Dim t1 As Boolean = e.Form.BaseForm.showintaskbar
Dim t2 As object = e.Form.BaseForm.WindowState
e.Form.BaseForm.showintaskbar = True
e.Form.BaseForm.WindowState = System.Windows.Forms.FormWindowState.MINimized
Dim Proc As New Process
Proc.File = "D:\\Release开发版\\capture.exe"
Proc.Start
If proc.WaitForClose = True Then
    e.Form.BaseForm.showintaskbar = t1
    e.Form.BaseForm.WindowState = t2
    e.Form.Controls("Button1").Select
End If
--  作者：blackzhu
--  发布时间：2015/12/23 15:07:00
--  
没有恢复 还是在任务栏
--  作者：blackzhu
--  发布时间：2015/12/23 15:09:00
--  
我的想法是 在窗口有个按钮来执行这个截图工具


按钮下去,窗口最小化任务栏,进行截图,等截图结束,窗口恢复到原来的打开状态
[此贴子已经被作者于2015/12/23 15:08:54编辑过]
--  作者：大红袍
--  发布时间：2015/12/23 15:11:00
--  
Dim t1 As Boolean = e.Form.BaseForm.showintaskbar
Dim t2 As object = e.Form.BaseForm.WindowState
e.Form.BaseForm.showintaskbar = True
e.Form.BaseForm.WindowState = System.Windows.Forms.FormWindowState.MINimized
Dim Proc As New Process
Proc.File = "D:\\Release开发版\\capture.exe"
proc.WaitForClose = True
Proc.Start

 
--  作者：blackzhu
--  发布时间：2015/12/23 15:13:00
--  
一样 无效
--  作者：大红袍
--  发布时间：2015/12/23 15:18:00
--  

不，可，能。我测试没问题

 

Dim t1 As Boolean = e.Form.BaseForm.showintaskbar
Dim t2 As object = e.Form.BaseForm.WindowState
e.Form.BaseForm.showintaskbar = True
e.Form.BaseForm.WindowState = System.Windows.Forms.FormWindowState.MINimized
Dim Proc As New Process
Proc.File = "D:\\Release开发版\\capture.exe"
proc.WaitForClose = True
Proc.Start
e.Form.BaseForm.showintaskbar = t1
e.Form.BaseForm.WindowState = t2
e.Form.Controls("Button1").Select
--  作者：blackzhu
--  发布时间：2015/12/23 15:23:00
--  
我连最小化都没有:

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:表达式.foxdb
--  作者：大红袍
--  发布时间：2015/12/23 15:25:00
--  
8楼测试，没问题。
--  作者：blackzhu
--  发布时间：2015/12/23 15:30:00
--  
我的例子是这样,截图后窗口是打开着,但是截图的时候 窗口一直显示着  没有最小化呀!


是不是我是XP的缘故


[此贴子已经被作者于2015/12/23 15:30:37编辑过]