Eljárások láthatósága

A kísérlet célja, hogy bemutassa az eljárások hatókörét. Szemlélteti az ugyanolyan nevű modul szintű, és a bárhonnan hívható globális hatókörű eljárásokat.
A kísérlet előfeltétele, hogy a számítógépen legyen telepítve a Visual Basic program.
Hozzunk létre két űrlapot, amin két ugyanolyan nevű parancsgomb msgbox üzenetet jelenít meg (bemutatkozik), illetve a hátterükre kattintva egy globális függvényt hív meg, ami kiírja a program verzióját! Az első űrlap betöltésének eseménye nyitja meg a második űrlapot. Űrlaponként ugyanolyan nevű rutinokat használunk különböző feladatokra, illetve készíthetünk egy globális hatókörűt, ami mindenhonnan látszik. Ez utóbbit egy Modulban helyezzük el.

Forráskód (Form1)

Private Sub Form_Click()
’A globális függvény (Modul1-ben) meghívása
MsgBox Verzió()
End Sub

Private Sub Form_Load()
Form2.Show
End Sub

Private Sub gBemutatkozik_Click()
’Az űrlap privát függvényének meghívása
Bemutatkozik
End Sub

Private Sub Bemutatkozik()
’Privát, csak az űrlapról elérhető függvény
MsgBox "Egyik űrlap vagyok"
End Sub

Forráskód (Form2)

Private Sub Form_Click()
’A globális függvény (Modul1-ben) meghívása
MsgBox Verzió()
End Sub

Private Sub gBemutatkozik_Click()
’Az űrlap privát függvényének meghívása
Bemutatkozik
End Sub

Private Sub Bemutatkozik()
’Privát, csak az űrlapról elérhető függvény
MsgBox "Másik űrlap vagyok"
End Sub

Forráskód (Module1)

Public Function Verzió()
’Globális, mindenhonnan elérhető függvény
Verzió = "Bemutatkozó program: 1.00"
End Function