basemainform.visible = False
forms("小区录入窗口").visible=False
Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
ClipBoard.GetImage.save(projectPath & "attachments/test.jpg")
msgbox("保存到了")
Dim ls = Tables("xqb").current.DataRow.lines("dt")
ls.add("test.jpg")
Tables("xqb").current.DataRow.lines("dt") = ls
End If
basemainform.visible = True
forms("小区录入窗口").visible=True
老师请问一下上面代码有没有问题。click事件按下后想达到隐藏程序和当前窗口，然后能在屏幕上随意截图，保存后恢复窗口。我在测试时第一次是可以的，可是第二次就不会隐藏了，是什么问题
加好友 
发短信
Post By：2019/7/25 8:14:00 [只看该作者]
