错误处理代码

蜜蜂巢

  在编程界那程序的出错总是少不了的事，我们选择了VB6这些错误处理起来是非常方便的。比喻在一些计算器中，我们要求用户输入的是数字而不是字母，也不能输入为空。通常的作法都是先检察这个文本框输入为空再检察输入的字符是不是非数字，那些检察是否非数字的方法是不是很烦？在这里给出一个示例，一个文本框和按扭，在按扭的单击事件中作出检察文框内容的功能，请看如下代码：
Option Explicit
Private data1 As Integer '得到输入的数值
Private Sub Command1_Click()
  On Error GoTo 10 '如果输入的数值是非数字或输入为空就跳到第10代码中
  data1 = Text1.Text
  Exit Sub
10
  MsgBox "请输入正确的数值", 0, "Error"
End Sub
是不是很简单？再看一些别的出错处理，比喻要在一个图片框中显示另一张图片框的内容，如果图片框原先没有加载好图片，那么程序就会出错，我们的程序就会被中止，现在我们再用On Error GoTo这个处理看看，代码如下：
Option Explicit

Private Sub Form_Load()
  On Error GoTo 10 '如果未加载图片
  Picture1.PaintPicture Picture1.Picture, 0, 0
  Exit Sub
10
  MsgBox "请先加载一张位图", 0, "Error"
End Sub
经过这一处理，程序不但没有中止还会得到了提示。

psic

蜜蜂巢: 错误处理代码

  在编程界那程序的出错总是少不了的事，我们选择了VB6这些错误处理起来是非常方便的。比喻在一些计算器中，...

VB.net里可以使用结构化异常处理，要比VB6的进步很多

蜜蜂巢

vb.net错误处理过程
Try
  Picture1.PaintPicture Picture1.Picture, 0, 0
Catch
  MsgBox "请先加载一张位图", 0, "Error"
End Catch
郁闷

zodane

很好！  
蜜蜂巢出品,必属精品  .

sandy_zc_1

VB6的错误处理需要改进了。

在大一点的或者复杂一点的工程里面它的那种错误处理机制就显露出很多不足了。

系统崩溃

错误处理的要点并非在于减化处理过程，而在于尽可能维护软件的稳定运行并尽可能准确地为用户提供出错信息，所以很多时候千万不要“很烦”