|  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur att ärva mer än en klass i VB.NET

    Även Microsofts Visual Basic förbjuder multipelt arv , det erbjuder inkapsling som , när de används på ett kreativt , kan uppnå samma effekt . Arv och inkapsling är två grunderna för objektorienterad programmering , var mycket lättare att förstå genom exempel än definition . Båda teknikerna finns sätt att härleda och utöka nya funktioner från befintlig kod . Härled en ny klass genom att ärva en då kapsla de andra klasserna . Saker du behöver
    Microsoft Visual Studio eller Visual Basic Express 2010 Review, Grundläggande kunskaper i Visual Basic.Net
    Visa fler instruktioner
    1

    Öppna Visual Studio och skapa ett nytt Visual Basic konsol program som heter MultiClassDemo . Klicka på " File " och sedan " Ny " och fylla den nya ansökningsblanketten .
    2

    Skapa en ny klass som kallas Customer . Klicka på " Projekt " och sedan " Ny klass " sedan in kunden i namnfältet . När kodeditorn fönstret visas , modifiera koden enligt följande .

    Public class Kund

    Public Property customerId As String = " "

    Public Property Företagsnamn As String = " "

    Public Property Kontakt As String = " "

    Public Overridable Sub Load ( ByVal id As String ) katalog

    Kundnr = id

    Företagsnamn = " Acme Rental "

    Kontakt = " Joe Smith "

    End Sub

    End Class

    Denna klass beskriver en Kund objekt med egenskaper för ID , namn och kontaktuppgifter . Load metoden tilldelar värden till egenskaperna .
    3

    Upprepa ovanstående steg för att skapa en kredit klass .

    Public Class Credit

    Public Property CustomerID As String = " "

    Public Property CreditScore As String = " "

    Public Property ReportDate som Date = Date.MinValue

    Public Sub Load ( ByVal id As String )

    Kundnr = id

    CreditScore = " A + "

    ReportDate = # 6/1/2011 #

    End Sub

    End Class

    Credit klassen har ID , kredit värdering och rapportegenskaper datum samt egen Load metod .
    4

    Skapa en tredje klass som kallas CustomerCredit och lägga den ärvda uttalande enligt följande .

    Public Class CustomerCredit

    ärver Kund

    När CustomerCredit klassen får byggt av kompilatorn , ärver den de Kundnr , Företagsnamn och Kontakt egenskaper samt Load -metoden från kunden klass .
    5

    Skapa en ny privat område som kallas poäng att kapsla en instans av Credit klassen .

    privat värdering som ny kredit
    6

    Frilägg Credit klassens egenskaper med hjälp av härledda egenskaper .

    Public Property CreditScore As String


    Return score.CreditScore

    End Get
    < p > Set ( ByVal value As String ) katalog

    score.CreditScore = värde

    End Set

    End Property

    Public Property ReportDate Som Datum
    < p > Get

    Return score.ReportDate

    End Få

    Set ( ByVal value As Date ) katalog

    score.ReportDate = värde
    < p > Slut Ställ

    End Property

    Även om inte lika bekväma som multipelt arv , gör detta exponera Credit egenskaper .
    7

    Åsidosätt Kundens Load metoden att läsa både Kunden och egenskaper kredit .

    Public Åsidosätter Sub Load ( ByVal id As String ) katalog

    MyBase.Load ( id ) katalog

    score.Load ( id ) katalog

    End Sub

    End Class
    8

    Lägg koden till den viktigaste funktionen i Module1 att testa nya härledda klassen . Klicka på " Windows " och klicka sedan på " Module1.vb " . Uppdatera koden på följande sätt :

    Modul Module1

    Sub Main ( ) katalog

    Dim Cust Som New CustomerCredit

    cust.Load ( "1234 " ) katalog

    Console.WriteLine ( " Kund = " & cust.CustomerID ) katalog

    Console.WriteLine ( " Company : " & cust.CompanyName ) katalog

    Console.WriteLine ( " Kontakt : " & cust.Contact ) katalog

    Console.WriteLine ( " Credit Score : " & cust.CreditScore ) katalog

    Console.WriteLine ( " Report date : " & cust.ReportDate.ToShortDateString )

    End Sub

    ändmodul
    9

    Klicka på " F5 " för att testa programmet .

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man skapar ett nytt fönster för en webbläsare me…
    ·Hur du kontrollerar om Numbers i VBA
    ·Vilka är de olika händelser i Visual Basic
    ·Lägga till 2 Värden i Visual Basic
    ·Hur man installerar VisualStudio.Net
    ·Hur man bygger en telefonsvarare i VB6
    ·Hur man skickar text till Kommandotolken VB
    ·Hur man gör en Logon Script
    ·Hur att beräkna längden av en wav-fil i VB6
    ·Lägga till en kommentar till Visual Basic
    Utvalda artiklarna
    ·Så här konfigurerar du en variant i SAP
    ·Hur man skapar Syntax War File
    ·Hur : Java Applets & Nagle algoritm
    ·Vad är ett rutsystem
    ·Komma åt Variabler i Var Dump Med PHP
    ·Användningsområden för hashCode i Java
    ·Hur man skapar en inloggning i Visual Basic
    ·Konvertera TimeSpan Into en Float
    ·Apue.H hittades inte i Ubuntu
    ·Hur spåra med Java Script & PHP
    Copyright © Dator Kunskap http://www.dator.xyz