Grundlagen der Programmierung mit VBA Visual Basic for

Do
Inp = TP.Modify ' Speicher modifizieren
MsgBox "Speicher: " & CStr(Inp)
If TP.Prop > 50 Then Exit Sub ' Speicher abfragen
Loop
End Sub
Beispiel. Definition einer Objektklasse Ampel. Zunächst wird ein Klassenmodul Ampel erzeugt. Der
Name des Klassenmoduls definiert den Namen des Objekts. Sodann folgender Code:
Option Explicit
Public Name As String ' Attribut "Name", öffentlich
Public xPos As Single ' Attribute x- und y-Koordinate
Public yPos As Single
Public Rot As Object ' Attribut "grafisches Objekt Rotlicht"
Public Gelb As Object ' "Gelblicht"
Public Grün As Object ' "Grünlicht"
Public Kasten As Object ' "Ampelkasten"
' Objekt Methode "Ampel Erzeugen"
Public Sub Create(x As Single, y As Single, label As String)
End Sub
42
xPos = x
yPos = y
Name = label
ActiveSheet.Shapes.AddShape(msoShapeRectangle, xPos, yPos, 36, 96). _
Select
Set Kasten = Selection
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 22
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
ActiveSheet.Shapes.AddShape(msoShapeOval, xPos + 6, yPos + 6, 24, _
24).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 23
Set Rot = Selection
Selection.ShapeRange.Duplicate.Select
Set Gelb = Selection
Selection.ShapeRange.IncrementLeft -12
Selection.ShapeRange.IncrementTop 18
Selection.ShapeRange.Duplicate.Select
Set Grün = Selection
Selection.ShapeRange.IncrementLeft -12
Selection.ShapeRange.IncrementTop 18
Public Sub RotAn() ' Objekt Methode "Rotlicht an"
Rot.ShapeRange.Fill.ForeColor.SchemeColor = 10
End Sub
Public Sub RotAus() ' Objekt Methode "Rotlicht aus"
Rot.ShapeRange.Fill.ForeColor.SchemeColor = 23
End Sub
Die Funktionen für das An- und Ausschalten der Gelb- und Grünlicher sind entsprechend.