Autor podstrony: Krzysztof Zajączkowski

Stronę tą wyświetlono już: 9481 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:

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:

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:

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:

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:

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:

mycar.color = "#ffffff"

Tworzenie obiektu klasy

W zwykłym module po utworzeniu klasy Car w module klasy można stworzyć takie oto makro, pokazujące działanie kodu klasy:

Sub MyCar() Dim c As Car Set c = New Car MsgBox c.Description End Sub

Metody klasy

Wewnątrz klasy oczywiście można tworzyć prywatne, publiczne i statyczne metody w postaci makr lub funkcji.