fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Base und Strings

Uploader:	MOD
Datum/Zeit:	20.11.2011 14:51:11

Type Animal Extends Object

    As String nam = "foo"

    As Integer n = 7

End Type



Type Dog Extends Animal

    Declare Constructor (name_ As String)

    Declare Sub test

End Type



Constructor Dog (name_ As String)

    base.nam = name_

    base.n = 6

    nam = name_

    n = 6

End Constructor



Sub Dog.test

    Print base.nam

    Print base.n

    Print nam

    Print n

End Sub





Sub main

    Dim As Dog foo = "bar"

    foo.test

End Sub



    main

Sleep

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.