Inherits og Imports !

Inherits bruger du når en klasse skal arve fra en anden klasse
(normal objekt orienteret arv).

Imports importerer et namespace. D.v.s. at hvis du importerer namespace X
kan du i.s.f. det fulde navn nøjes med at skrive det simple navn uden
angivelse af namespace.

Der er lidt forskellig ekonventioner omkring hvornår man bruger fuld navn oghvornår
man bruger Imports.

Vælg det du bedst kan lide.

Hvis du selv skriver koden så bliver du hurtigt glad for Imports, fordi:
- du sparer en del tasten
- koden bliver faktisk mere læselig

Ok det giver en del af meningen. Lad os antage at jeg har et komponent der indeholder diverse functions så som denne :

'--- Function der laver Md5 sum af en streng
Public Function GenerateHash(ByVal SourceText As String) As String
    Dim Ue As New UnicodeEncoding()
    Dim ByteSourceText() As Byte = Ue.GetBytes(SourceText)
    Dim Md5 As New MD5CryptoServiceProvider()
    Dim ByteHash() As Byte = Md5.ComputeHash(ByteSourceText)
    Return Convert.ToBase64String(ByteHash)
End Function

og lad os antage at jeg har et andet komponent der tager sig af alt database historie hvor jeg så vil benytte ovenstående function til at cryptere f.eks passwords i en tabel når disse indsættes.

Hvad skal jeg så benytte i min anden klasse inherits eller imports ?

Public Class minAndenClass
    Inherits System.ComponentModel.Component
End Class

Jeg undskylder for min uvidenhed men der er jo en himmel til forskel fra asp til asp.net :o)

/Websam

Hvis den anden klasse er en specialisering af den første klasse så
kan du lade den arve fra den første klasse.

Hvis ikke så må du enten
  instantiere et objekt af den første klasse og kalde funktionen på det
eller
  lave funktionen shared og kalde den på klassen

I begge tilfælde gælder det at:
  - hvis klasserne er i samme namespace er der ingen grund til at importere namespace
  - hvis klasserne er i forskellig namespace kan du importere og bruge simple navne

Mange fremmedord ?

http://www.ondotnet.com/pub/a/dotnet/2002/09/22/vb-oop.html
http://www.ondotnet.com/pub/a/dotnet/2002/11/04/vbooppt2.htm
http://www.ondotnet.com/pub/a/dotnet/2002/11/11/singleton.html
http://www.ondotnet.com/pub/a/dotnet/2002/11/25/oop4.html

http://www.ondotnet.com/pub/a/dotnet/2001/09/25/oop_vb.html
http://www.ondotnet.com/pub/a/dotnet/2001/11/05/vbnetoop2.html

ja jeg er ikke helt med ?!? Min opbygning er på følgende måde :

1.
Design lag der viser alt ud af til til brugeren

2.
Buisness lag der indeholder en del functioner til håndtering af diverse inden datatilgang

3.
Database lag der udelukkende arbejder sådan har jeg altid arbejdet med klasisk asp.

Det du skriver med :

"Hvis den anden klasse er en specialisering af den første klasse så
kan du lade den arve fra den første klasse."

Fatter jeg ikke en brik af, men den anden er jeg med på altså ved :

Public Shared Function
    '--- Min kode
End Function

Så behøver jeg ikke lave denne :

Dim objComponent As New myComponent

Men hvor kommer så Imports ind ?!?

/Websam

Imports har ikke noget med funktionalitet at gøre. Det er bare en
måde at brugere kortere navne i koden på.

Objekt orienteret programmering kan godt være lidt tung at komme igang med. Men
har du læst nogle af de links jeg fandt ?

Måske kunne jeg lave et lille eksempel som viste nogle af mulighederne.

Ja tak for linkene og jeg kan se erd er er en del at læse på.

Og hvis jeg har forstået det med Imports rigtigt så hvis jeg har et projekt der heder myProject og et Component der heder myComponent så skal jeg skrive følgende eks :

Imports objMy = myProject.myComponent

Mit spørgsmål er så hvordan jeg tilgår en function i klassen er det så på denne måde

objMy.myFunction(ByVal "tekst" As String)

Eller ?

Og du er meget velkommen til at vise et eksempel med Inherets :o) Jeg vil oxo gerne sætte flere point af hvis du vil have flere ?

/Websam

Ok nu tror jeg jeg fandt fejlen hvis jeg vil benytte f.eks Imports objMy = myProject.myComponent så skal mine functioner i classen der importeres være shared ellers vil den have en declare på functionen :o)

/Websam

namespace & imports eksempel:

Imports System
Imports NS1

Namespace NS1
    Public Class C
        Public Shared Sub m()
            Console.WriteLine("NS1.C")
        End Sub
    End Class
End Namespace

Namespace NS2
    Public Class C
        Public Shared Sub m()
            Console.WriteLine("NS2.C")
        End Sub
    End Class
End Namespace

Namespace DefaultNamespace
    Class MainClass
        Public Shared Sub Main(ByVal args As String())
            ' eksplicit NS1
            NS1.C.m
            ' eksplicit NS2
            NS2.C.m
            ' NS1 p.g.a. import
            C.m
        End Sub
    End Class
End Namespace

Output:

NS1.C
NS2.C
NS1.C

Inherits eksempel kommer.

(sorry for console kode eksempler men jeg gør ikke meget i ASP.NET)

Imports System

Public Class Parent
    Public Shared Sub m1()
        Console.WriteLine("m1")
    End Sub
    Public Sub m2()
        Console.WriteLine("m2")
    End Sub
End Class

Public Class Child
Inherits Parent
    Public Shared Sub m3()
        Console.WriteLine("m3")
    End Sub
    Public Sub m4()
        Console.WriteLine("m4")
    End Sub
End Class

Class MainClass
    Public Shared Sub Main(ByVal args As String())
        ' statiske metoder
        Child.m1
        Child.m3
        ' ikke statiske metoder
        Dim c As Child = New Child
        c.m2
        c.m4
    End Sub
End Class

Output:

m1
m3
m2
m4

Du ser at Child klassen arver alle metoder fra Parent klassen.

Der helt i orden jeg har fanget den del med namespace den skiller der hvor man ikke vælger at benytte shared function har lige testet både med og uden shared og det virker kun med shared. Så fik jeg da den banket ind i hovedet :o)

/Websam

Jeg takker for hjælpen for denne gang, point på vej :o)

og du fik lige 30 mere :o)