以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]Try语句不起作用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25965)
--  作者：blueskyyq
--  发布时间：2012/11/21 0:22:00
--  [求助]Try语句不起作用

下面这段代码在没有安装邮件程序的电脑上运行没有按设定提示

Try
Dim Proc As New Process

Proc.File = "mailto:123@163.com"

Proc.Start()
Catch ex As Exception
MessageBox.Show("电脑上没有Foxmail之类的邮件程序,请自行下载安装","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
End Try

 
--  作者：lin_hailun
--  发布时间：2012/11/21 9:00:00
--  
 应该是狐表对process再次封装的时候，没有抛出异常，导致无法捕捉，你用原始的吧。

Try
    Dim proc As New System.Diagnostics.Process 
    Proc.StartInfo.FileName = "mailto:123@163.com" 
    Proc.Start()
Catch ex As Exception
    MessageBox.Show("电脑上没有Foxmail之类的邮件程序,请自行下载安装","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
End Try
[此贴子已经被作者于2012-11-21 9:00:03编辑过]