txt Pensja...

Odnośniki

Smutek to uczucie, jak gdyby się tonęło, jak gdyby grzebano cię w ziemi.

SetFocus
Exit Sub End If IftxtPensja < 0 Then
MsgBox "Pensja nie mo¿e byæ negatywna." End If
i
J
Rysunek 1.37. Kiedy Visual Basic napotka punkt przerwania w trakcie odtwarzania
procedury, uruchamia siê automatycznie okno Kod programu i wyœwietla] ¿ó³t¹ strza³kê w obszarze marginesu obok polecenia, na którym ustawioi punkt przerwania
M RozOl - cPracowmik (Code)

((General* jj |lmie IPropertyGetJ jj j
Property Get lmie() As String T]Imiê = mjmiêEnd Property . ._. _ „. _ _. _ _ _ '
Property Get PensjaQ As Currency Pensja = m_Pensja End Property
' przypisz wartoœci przy u¿yciu procedur LET
Property Let ld(ref As String) mjd = ref End Property
Property Let Nazv»isko(N As String) mJMazwisko = N
End Property _ _ „„„

Property Let lmie(l As String) mjmiê = 1
Rysunek 1.38. W³aœciwoœci w³asnego obiektu ustawia siê za pomoc¹ procedur typu Property Let
193
kolekcje obiektów i klasy
o Teraz naciskaj¹c klawisz F8, przeœledŸmy wykonanie procedury cmdDo-daj_click a¿ do koñca.
Kiedy VBA napotka koniec procedury (End Sub), wy³¹czy ¿ó³te zaznaczenie woknie Kod programu. W tym momencie, wróæ do aktywnego formularza, klikaj¹c na jego przycisk w pasku zadañ Windows (u do³u ekranu). Wpisz dane nowego pracownika, i ponownie kliknij na przycisk Dodaj. Gdy Visual Basic wyœwietli okno Kod programu, wybierz Analiza => Wyczyœæ punkty przerwania (Debug => Clear All breakpoints), aby usun¹æ punkt przerwania. Nastêpnie naciœnij klawisz funkcyjny F5 aby wykonaæ pozosta³¹ czêœæ procedury w trybie normalnym bez zatrzymywania siê na poszczególnych instrukcjach. Uruchom nastêpnie formularz frmPensje, aby obejrzeæ w polu listy dane nowego pracownika. Narzêdzia s³u¿¹ce do testowania procedur
Visual Basic udostêpnia w oknie edytora Visual Basic szerg narzêdzi oraz opcji, które pozwalaj¹ na testowanie procedur i wyszukiwanie b³êdów. W ostatnim zagadnieniu tego rozdzia³u zapoznamy siê z dzia³aniem tych narzêdzi.
Podsumowanie
W poprzednich zagadnieniach dowiedzia³eœ siê, w jaki sposób mo¿esz utworzyæ w³asne kolekcje oraz w³asne obiekty w procedurach VBA. Zapozna³eœ ciê z modu³em ta niezbêdnym w procesie tworzenia w³asnych obiektów. W przyk³adowej klasie cPracownik nauczy³eœ siê tworzyæ w³aœciwoœci i metody w³asnego obiektu. Nastêpnie udostêpni³eœ modu³ klasy u¿ytkownikowi za pomoc¹ formularza frmPensje. Na zakoñczenie dowiedzia³eœ siê, w jaki sposób mo¿na analizowaæ dan¹ procedurê krok po
kroku.
1

Œledzenie toku procedur VBA ipulapkowanie b³êdów
Przy wpisywaniu procedur wystarczy chwila nieuwagi, aby pope³niæ b³¹d. Na nrzvk³ad mo¿esz pomyliæ siê przy wpisywaniu jakiejœ instrukcji, zapomnieæ
lk czy cudzys³owie, pomini¹æ wa¿n¹ kropkê lub koñcowy nawias. Tego typu osz¹ nazwê b³êdów syntaktycznych. Na szczêœcie, Visual Basic jest dosc ; „yTwyszukrwaJu tego rodzaju b³êdów. Aby Visual Basic automatycznie
Lza³ zapis syntaktyczny naszego kodu programowania w trakcie jego wpisywa-P hiPr7 Narzêdzia =* Opcje w ekranie edytora Visual Basic. Zaznacz opcjê Au-i: 1 "anie JJL (Auto Syntax Check) na zak³adce Edytor. W ten
2 kiedy Visual Basic napotka na b³¹d, wyœwietli komunikat b³êdu i zmieni kolor ^prawid³owej instrukcji kodu na czerwony lub inny kolor wskazany na zak³adce Format w oknie dialogu Opcje.
Eto | Editor Format j General j Docking jCodeSettings
fŸ Auto Syntax Check
p Require Variable Declaration
p Auto List Members
|? Auto Quick Info
p Auto Data Tips
Window Settings \
p Drag-and-Drop Text Editing ||? Default to Full Module View |p Procedure Separator |
p Auto Indent Tab Width: |4
Rysunek 1.39. Ustawienie Automatyczne sprawdzanie sk³adni (Auto Syntax Check)
na zak³adce Edytor w oknie dialogu Opcje pozwala szybko wykryæ w kodzie procedury VBA b³êdy synktaktyczne
Je¿eli wyjaœnienie b³êdu w komunikacie b³êdu nie jest jasne, kliknij przycisk Pomoc, aby uzyskaæ wiêcej informacji. Je¿eli Visual Basic nie bêdzie móg³ wskazaæ
196
Programowanie w