主题：关于发布问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:录像39.rar

发布时是不是改了主程序的名称？

是改过主程序名称

那就改成这样

 

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("机具进销存管理系统")

昨天改过经过测试，在发布前无法关闭程序

 

发布前，代码这样写 Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("foxtable")

 

你的意思是每次发布前都得作为一个更改吗？能不能满足两个条件其中一个就执行退出程序代码呢？

Dim Result As DialogResult
Result = Messagebox.Show("退出系统吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.No Then '如果用户选择否
    e.Cancel = True '取消关闭项目
Else
   
    Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("foxtable")
    For Each p As System.Diagnostics.Process In ps
        p.kill
    Next
    ps = System.Diagnostics.Process.GetProcessesByName("机具进销存管理系统")
    For Each p As System.Diagnostics.Process In ps
        p.kill
    Next
End If