以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  为什么用zip.Create会调到其他窗口？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130314)
--  作者：lur320
--  发布时间：2019/1/18 15:08:00
--  为什么用zip.Create会调到其他窗口？
电脑开了很多窗口，例如excel等。
在运行下面这个程序的时候，会把狐表切到后面，漏出其他窗口。然后用户每次都需要再次选择狐表主窗口。请问为何？如何处理

Dim fileloc  As String=Args(0)
Dim filenam,newfileloc As String
filenam=FileSys.GetName(fileloc)  \'\'获取文件名
Dim ex As String = filenam.SubString(filenam.LastIndexOf(".") + 1)

If FileSys.DirectoryExists(ProjectPath & "tempfile")=False Then
    FileSys.CreateDirectory(ProjectPath & "tempfile")
End If

newfileloc= ProjectPath & "tempfile\\zipfs\\file" & Rand.Next(10) & "." & ex
FileSys.CopyFile(fileloc, newfileloc,True)
Dim Val2 As Integer = Rand.Next(1000)

Dim zip As New zipFile
fileloc=ProjectPath & "tempfile\\zipfs\\tempzip" & Val2 & ".zip"

Do While FileSys.FileExists(fileloc)
    Val2 = Rand.Next(1000)
    fileloc=ProjectPath & "tempfile\\zipfs\\tempzip" & Val2 & ".zip"
Loop


zip.Create(fileloc)
zip.AddFile(newfileloc)
zip.Close()

Return fileloc
--  作者：有点甜
--  发布时间：2019/1/18 15:11:00
--  

 

我测试了下面代码，没问题，实例发上来测试。

 

Dim zip As New zipFile
zip.Create("d:\\abc.zip")
zip.AddFile("d:\\test.txt")
zip.Close()

 

 

[此贴子已经被作者于2019/1/18 15:10:51编辑过]
--  作者：lur320
--  发布时间：2019/1/18 15:11:00
--  
现象就像把狐表最小化到任务栏一样。而其他打开的excel，word等窗口则会漏出来。
--  作者：有点甜
--  发布时间：2019/1/18 15:11:00
--  

我测试了下面代码，没问题，实例发上来测试。

 

Dim zip As New zipFile
zip.Create("d:\\abc.zip")
zip.AddFile("d:\\test.txt")
zip.Close()

 
--  作者：lur320
--  发布时间：2019/1/18 15:20:00
--  
系统太大，不好放实例，猜测是在用ShowDialog 选择好文件后，复制并压缩后，退不到狐表的主程序了。。。怎么办？


If dlg.ShowDialog =DialogResult.OK Then

    Dim fl As String = dlg.FileName
--  作者：有点甜
--  发布时间：2019/1/18 15:26:00
--  

显示主程序，这样写代码，如

 

ShowAppWindow(ApplicationTitle, 2)

 

http://www.foxtable.com/webhelp/scr/2713.htm