Posted by: Sourav | April 15, 2014

Error handling in VB 6.0


Private Sub Command1_Click()

On Error GoTo errorhandler
Text3.Text = CStr(Val(Text1.Text) + Val(Text2.Text))
Exit Sub

errorhandler:
MsgBox “error number” & Err.Number & vbCrLf _
& “error description” & Err.Description

End Sub

Private Sub Form_Load()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Categories

%d bloggers like this: