Tworzenie modułu klasy w VBA

Stronę tą wyświetlono już: 6836 razy

W VBA tworząc moduł klasy tworzy się deklarację samej klasy. Moduł klasy dodaje się poprzez wybranie z menu kontekstowego Insert→Class Module tak jak pokazane zostało to na poniższym rysunku.

Dodawanie modułu klasy w VBA — Rys. 1
Dodawanie modułu klasy w **VBA**

Nazwa modułu nie może zawierać spacji, nazw specjalnych lub operatorów używanych w VBA. Nazwę w moim przypadku zmieniłem na Car.

Pola klasy

Pola klasy mogą być publiczne public, prywatne private lub statyczne static. Oto przykład deklaracji samych pól klasy:

Listing 1

Private vmark as String
Private vmodel as String
Private vmax_speed as Integer
Private vacceleration as Double
Private vcolor as String

Wszystkie pola prywatne są niedostępne spoza klasy, aby to zmienić konieczne jest użycie modyfikatora dostępu Public.

Konstruktor i destruktor klasy

Konstruktor i destruktor w VBA nie może przyjmować żadnych parametrów. Oto przykład deklaracji konstruktora klasy:

Listing 2

Private Sub Class_Initialize()
vmark = InputBox("Marka samochodu: ")
vmodel = InputBox("Model samochodu: ")
vmax_speed = InputBox("Maksymalna prędkość: ")
vacceleration = InputBox("Przyspieszenie: ")
vcolor = InputBox("Kolor: ")
End Sub

Konstruktor klasy jest uruchamiany automatycznie, gdy obiekt klasy jest tworzony za pomocą Set i new.

Destruktor w VBA wygląda następująco:

Listing 3

Private Sub Class_Terminate()
End Sub

Właściwości klasy

Za pomocą właściwości można kontrolować dostęp do pól klasy, albowiem oto słowo kluczowe Get umożliwia utworzenie makra, które będzie zwracało wartość danego pola klasy lub będzie zwracało wartości wszystkich pól jako tekst:

Listing 4

Public Property Get Description() As String
Description = "Marka: " & vmark & " Model: " & vmodel & " Maksymalna prędkość " & vmax_speed & " Przyspieszenie: " & vacceleration & " Kolor: " & vcolor
End Property

Można też udostępnić możliwość ustawiania danego pola za pomocą słowa kluczowego Let tworzy się bowiem metodę, dzięki której można kontrolować wprowadzane dane:

Listing 5

Public Property Let color(c as String)
vcolor = c
End Property

Gdy utworzony zostanie obiekt klasy Car (tak bowiem nazwa mojego modułu klasy brzmi), wtedy dostęp do pola klasy vcolor będzie wyglądał następująco:

Listing 6