28.12.2012 Aufrufe

Ereignisse in Visual Basic .NET - Wirtschaftsinformatik HTW Berlin

Ereignisse in Visual Basic .NET - Wirtschaftsinformatik HTW Berlin

Ereignisse in Visual Basic .NET - Wirtschaftsinformatik HTW Berlin

MEHR ANZEIGEN
WENIGER ANZEIGEN

Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.

YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.

Klassen und Objekte <strong>in</strong> <strong>Visual</strong> <strong>Basic</strong> .<strong>NET</strong><br />

Beispiel "Erste Klasse" (Ausschnitt)<br />

Folie 27<br />

Public Class ErsteKlasse 'Name der Klasse<br />

Protected myE<strong>in</strong>Wert As Double 'Interne Variable<br />

'Eigenschaft, um den Wert verÑndern zu kánnen.<br />

Property E<strong>in</strong>Wert() As Double<br />

Get 'liefert den Wert der Variablen zurÄck<br />

Return myE<strong>in</strong>Wert<br />

End Get<br />

Set(ByVal Value As Double) 'gibt der Variablen e<strong>in</strong>en neuen Wert<br />

myE<strong>in</strong>Wert = Value<br />

End Set<br />

End Property<br />

'Funktion, um den Inhalt als Zeichenkette (Str<strong>in</strong>g) zurÄckzuliefern.<br />

Function AlsZeichenkette() As Str<strong>in</strong>g<br />

Return "Me<strong>in</strong>e Zahl als Zeichenkette: " & CStr(myE<strong>in</strong>Wert)<br />

End Function<br />

…<br />

End Class<br />

<strong>HTW</strong> Berl<strong>in</strong> - WI-Bachelor Realisierung DB-gestÄtzter Anwendungssysteme Prof. Dr. Peter Zschockelt<br />

27

Hurra! Ihre Datei wurde hochgeladen und ist bereit für die Veröffentlichung.

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!