Ako pou�itie skriptu riadiacich modulov a postupy zbierky

Tento �l�nok ukazuje ako pou��va� vlastnosti modulov a postupy Microsoft Script ovl�dacieho prvku sa k�d segmentov�ho. To tie� dokazuje, ako m��ete dynamicky ur�i� po�et argumentov a �i postup je funkcia alebo Sub.

Ovl�dac� prvok Microsoft Script obsahuje funkcie, ktor� umo��uj� hostite�ovi uplat�ovanie na segmentu skripty do r�znych modulov. Predvolen� modul "Glob�lne", je v�dy pr�tomn�. R�znych modulov m��e obsahova� postupy rovnak� n�zov (postup men� sa maj� modul rozsahu).

Microsoft Script kontrola zah��a aj postup vlastnosti, ktor� umo��uj� Hostite�sk� aplik�cia dynamicky ur�i� �i postup Funkcia alebo �iastkovou, ako aj po�et argumentov o�ak�va. Toto umo��uje hostite�sk� aplik�cia r�chle u��vate�ov pre spr�vny po�et hodnoty parametrov.

Vlastnos� moduly ovl�dacieho prvku skript je objekt, ktor� obsahuje Zbierka predmetov modul. M� nasledovn� vlastnosti a met�dy:

• Po�et: Po�et modulov.
• Item(x): Vr�ti jeden modul objekt.
• Prida� meno: prid� pr�zdny modul s krstn� meno.

Modul objekt m� nasleduj�ce vlastnosti a met�dy:

• N�zov: N�zov modulu.
• Postupy: Postupy objekt.
• AddCode k�d: prid� k�d do modulu.
• Spusti� meno, args: be�� pomenovan� postupom.

Postupy objekt obsahuje kolekcia objektov, postup. M� vlastnosti a met�dy:

• Po�et: Po�et postupov v module.
• Item(x): Vr�ti jeden objekt postup.

Postup objekt m� nasleduj�ce vlastnosti a met�dy:

• N�zov: Postup n�zov.
• HasReturnValue: Ozna�uje, �i postup je Sub alebo Function.
• NumArgs: Po�et argumentov postup vy�aduje.

Pozn�mka: Nie v�etky vlastnosti a met�dy uveden� objektov s� dan�, len t�chto pr�slu�n�ch tohto �l�nku.

Nasleduj�ci pr�klad poskytuje interakt�vny program, ktor� ilustruje, ako Ak chcete pou�i� tieto met�dy a vlastnosti:

D�LE�IT�: Microsoft poskytuje pr�klady programovacieho z�klad�a, bez z�ruky bu� vyjadrenej alebo implicitnej z�ruky, vr�tane, ale nie s obmedzen�m na implicitn�ch z�ruk obchodovate�nosti a vhodnosti na konkr�tny ��el. Tento �l�nok predpoklad�, �e ste obozn�men� s programovac� jazyk je preuk�zan� a n�stroje, pou�it� na vytvorenie a ladenie proced�r.

Pr�klad

1. V jazyku Visual Basic, vytvori� nov� projekt (Form1 je vytvoren� pod�a predvolen�ho nastavenia).
2. Kliknite na polo�ku s��asti v ponuke projekt a potom vyberte "Microsoft Skript kontrolu 1.0 "pol��ko.
3. Prida� skript kontroly (ScriptControl1), blok textu (Text1), tri pr�kaz tla�idl� (Command1, Command2, Command3) a dva zoznam pol� (List1, List2) na Form1. Nastavte vlastnos� MultiLine bloku textu PRAVDA. Ve�kos� bloku textu prisp�sobi� 5 riadkov 30 znakov.
4. Do Form1, pridajte nasleduj�ci k�d:

         Private Sub Command1_Click()
           ScriptControl1.Modules.Add Text1.Text
           Form_Activate
         End Sub
   
         Private Sub Command2_Click()
           ScriptControl1.Modules(List1).AddCode Text1.Text
           List1_Click
         End Sub
   
         Private Sub Command3_Click()
         Dim RetVal As Variant, m As Variant
           Set m = ScriptControl1.Modules(List1.Text)
           With m.Procedures(List2.Text)
             Select Case .NumArgs
               Case 0
                 RetVal = m.Run(List2.Text)
               Case 1
                 RetVal = m.Run(List2.Text, 5)
               Case 2
                 RetVal = m.Run(List2.Text, 4, 23)
               Case Else
                 MsgBox "Procedure has too many arguments"
             End Select
             If .HasReturnValue Then
               MsgBox List2.Text & " returned: " & RetVal
             End If
           End With
         End Sub
   
         Private Sub Form_Activate()
         Dim m As Variant
           List1.Clear
           With SCriptControl1
             .Language = "VBScript"
             .AllowUI = True
             For Each m In .Modules
               List1.AddItem m.Name
             Next m
           End With
         End Sub
   
         Private Sub Form_Load()
           Command1.Caption = "Add Module"
           Command2.Caption = "Add Code"
           Command3.Caption = "Run Procedure"
         End Sub
   
         Private Sub List1_Click()
         Dim m As String, p As Variant
           m = List1
           List2.Clear
           If m = "" Then Exit Sub
           For Each p In ScriptControl1.Modules(m).Procedures
             List2.AddItem p.Name
           Next p
         End Sub
   
         Private Sub List2_Click()
         Dim m As String, p As String, r As Boolean, a As Long
           m = List1
           p = List2
           With ScriptControl1.Modules(m).Procedures(p)
             r = .HasReturnValue
             a = .NumArgs
           End With
           MsgBox m & "." & p & " has " & IIf(r, "a", "no") & _
                  " return value and " & a & " arguments"
         End Sub
   						

5. Spusti� Form1.
6. Vytvori� nov� modul zadan�m nasledovn�ho v bloku textu a kliknut�m na Pridajte modul:

         Mod2
   
   						

7. Do textov�ho po�a zadajte nasleduj�ci skript:

         Function Calc(X)
           Calc = X * 2
         End Function
   						

8. Vyberte Global v List1 a potom kliknite na prida� k�d prida� do glob�lnej modul.
9. Do textov�ho po�a zadajte nasleduj�ci skript:

         Function Calc(X, Y)
           Calc = X * Y
         End Function
   
         Sub Test()
           MsgBox "The Test Sub in Module Mod2"
         End Sub
   						

10. Vyberte Mod2 v List1 a potom kliknite na prida� k�d prida� do glob�lnej modul.
11. Kliknite na r�znych modulov a postupy. Ke� vyberiete postup okno s hl�sen�m zobraz�, indika�n� �i postup m� Vr�ti hodnotu, ako aj po�et argumentov trv�.
12. Po v�bere postup, kliknite na tla�idlo Spusti� postup na jeho spustenie. K�d Ur�uje po�et argumentov pou�itie a vy uvid�te, r�znej hl�seniami s v�sledkami.

POZN�MKA:

• Glob�lne modul meno nemus� by� v�dy "Global" v z�vislosti na kontrolu verzia alebo lokaliz�ciu. Pou�i� GlobalName kon�tanta namiesto pevn�ho- k�dovanie sa slovo "Global".
• Neexistuje met�da odstr�ni� jednotliv� moduly alebo postupy. M�te pou��va�.Jasn� met�da kontroly skript na vymazanie v�etk�ch k�d. Ste m��ete prep�sa� postup pomocou.Met�da AddCode s postupom s rovnak�m n�zvom.

Inform�cie o z�skan� ovl�dac� skript pros�m pozrite nasleduj�ci �l�nok v datab�ze Microsoft Knowledge Base:

�al�ie inform�cie a pr�klady na volanie postupy v Global modul, pre��tajte si nasleduj�ci �l�nok v datab�ze Microsoft Knowledge Base:

Microsoft Script ovl�danie t�my Pomocn�ka: