Exception Handling in VB.net


Source Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Dim str As String = TextBox1.Text
        Try
            If (TextBox1.Text = "") Then
                Throw (New exc("Empty Values"))
            Else
                MsgBox(TextBox1.Text)
            End If
        Catch ex As exc
            MsgBox(ex.Message)
        End Try
        
    End Sub
End Class

Public Class exc : Inherits ApplicationException
    Sub New(ByVal msg As String)
        MyBase.New(msg)
    End Sub
End Class

Comments

Post a Comment

Popular posts from this blog

Silde show of images In JSP

In order to perform this, first create a folder in your project where you store your images to be used in the slideshow. Here the folder is 'newFolder'. <html> <head>     <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> <script type="text/javascript"> var slide = new Array() //array to load the images slide[0] = new Image() slide[0].src = "newFolder/image1.jpg" slide[1] = new Image() slide[1].src = "newFolder/image2.jpg" slide[2] = new Image() slide[2].src = "newFolder/image3.jpg" </script> </head> <body>     <img id="slide" src="newFolder/image1.jpg"   align="center" alt="Image not found"> <script type="text/javascript"> var step=0 function slideimages() { if (step<2)         step++;     else         step=0;  setTimeout("slideimages()",1000);  //function is...
Read more

Compression ratio, Compression factor, saving percentage in C++

#include<iostream.h> #include<conio.h> void main() { float ori,aft; float CR,CF,SP; clrscr(); cout<<"\nEnter the size of the source file : "; cin>>ori; cout<<"\nEnter the size of the compressed file : "; cin>>aft; CR=aft/ori; CF=ori/aft; SP=((ori-aft)/ori)*100; cout<<" Compression Ratio = "<<CR; cout<<"\n Compression Factor = "<<CF; cout<<"\n Saving percentage = "<<SP<<" %"; getch(); }
Read more

Working with database in Vb.net

Image
Fig: Design (grey square is the gridview) Source Code: Imports System.Data Imports System.Data.SqlClient Public Class Database_Connectivity     Dim conn As New SqlConnection("Data Source=.;Initial Catalog=practice ete;Integrated Security=True;Pooling=False") 'Inserting data     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         conn.Open()         Dim str As String = "insert into Table1 values(@id,@name,@age,@phone)"         'Dim str As String = "alter table Table1 add phone int"         Dim comm As New SqlCommand()         comm = New SqlCommand(str, conn)         comm.Parameters.AddWithValue("@id", TextBox1.Text)         comm.Parameters.AddWithValue("@name", TextBox2.Text)         comm.Parameters.AddWithValue("@age", ...
Read more