Foxtable(狐表)用户栏目专家坐堂 → [求助]Try语句不起作用


  共有9386人关注过本帖树形打印复制链接

主题:[求助]Try语句不起作用

帅哥哟,离线,有人找我吗?
blueskyyq
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:295 积分:1856 威望:0 精华:1 注册:2012/7/9 23:25:00
[求助]Try语句不起作用  发帖心情 Post By:2012/11/21 0:22:00 [只看该作者]

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

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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By: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编辑过]

 回到顶部