Interface in VB.net



On button click:
Public Class Interface_form

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim obj As New classInterface
        obj.add(TextBox1.Text, TextBox2.Text)
    End Sub
End Class

Create an interface and write the code below:

Public Interface Interface1
    Sub add(ByVal n1 As Integer, ByVal n2 As Integer)
End Interface

Public Class classInterface
    Implements Interface1

    Public Sub add(ByVal n1 As Integer, ByVal n2 As Integer) Implements Interface1.add
        MsgBox("Sum is : " & n1 + n2)
    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