Skapa en egen Class

Antag att vi ofta beräknar arean på en cirkel i de program vi gör. Då vore det ju bra om vi hade koden till en funktion färdig att bara implementera i ett program. Det kan vi göra genom att skapa oss en egen klass.

Öppna ett nytt projekt men välj Class Library i stället för Windows Application. I Solution Explorer ser det nu ut som i bilden.

I kodfönstret står bara två rader:

Public Class Class1

End Class

Mellan dessa rader skall vi skriva koden för vår nya klass. Det blir en funktion som tar emot radien som argument och returnerar arean.

Public Function Cirkelarea(ByVal Radie As Single) As Single
Dim Area As Single
Area = Radie ^ 2 * 3.14
Return Area
End Function

Nu skall vi göra en dll-fil av vår klass så att vi kan använda den i andra program. Klicka i menyn på "Build - Configuration manager". Ändra till Release och se till att det är markerat vid Build.

Klicka på Close. Klicka på Build och sedan på Build filnamn där filnamn är namnet på vår projekt. I Utforskaren, i den mapp där projektet skapades, finns nu en mapp med namnet bin. I den mappen ligger vår dll-fil. Om vi hade gjort en vanlig Windowsapplikation hade det legat en exe-fil där.

Vi vill nu göra en applikation som utnyttjar vår nya klass. Skapa ett nytt projekt och välj Windows Application. För att lägga till vår class klickar vi i menyn på File - Add Existing Item och bläddrar fram till klassen. Den läggs till i Solution Explorer.

I formuläret dimensionerar vi för radien och en variabel som New Class1, vilket alltså är namnet på vår klass.

Här ser vi att det är lämpligt att döpa klasser så man vet vad de gör. Lägg märke till att när vi har skrivit New visas en lista där vår klass finns med.

Lägg en TextBox och en Button i formuläret och skriv koden

R = Val(TextBox1.Text)
Area = A.Cirkelarea(R)

När vi skrivit har Area = A. visas en alternativlista där namnet på vår funktion i klassen finns.

Som argument och indata till funktionen i klassen sänder vi variabeln R, som alltså innehåller det värde som angetts i TextBoxen. Tillbaka från funktionen får vi den uträknade arealen som läggs i variabeln Area och som slutligen visas i en meddelanderuta.

Här är hela koden:

Dim R As Single
Dim A As New Class1()
Dim Area As Single
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

R = Val(TextBox1.Text)
Area = A.Cirkelarea(R)
MsgBox("Arean är " & Area) End Sub

SupportData.Net
©